Function: math-to-complex-quad-one

math-to-complex-quad-one is a byte-compiled function defined in calc-funcs.el.gz.

Signature

(math-to-complex-quad-one X)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-funcs.el.gz
(defun math-to-complex-quad-one (x)
  (if (eq (car-safe x) 'polar) (setq x (math-complex x)))
  (if (eq (car-safe x) 'cplx)
      (list 'cplx (math-abs (nth 1 x)) (math-abs (nth 2 x)))
    x))