Function: math-normalize-polar

math-normalize-polar is an autoloaded and byte-compiled function defined in calc-cplx.el.gz.

Signature

(math-normalize-polar A)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-cplx.el.gz
;;;; Complex numbers.

(defun math-normalize-polar (a)
  (let ((r (math-normalize (nth 1 a)))
	(th (math-normalize (nth 2 a))))
    (cond ((math-zerop r)
	   '(polar 0 0))
	  ((or (math-zerop th))
	   r)
	  ((and (not (eq calc-angle-mode 'rad))
		(or (equal th '(float 18 1))
		    (equal th 180)))
	   (math-neg r))
	  ((math-negp r)
	   (math-neg (list 'polar (math-neg r) th)))
	  (t
	   (list 'polar r th)))))