Function: math-imaginary

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

Signature

(math-imaginary A)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-cplx.el.gz
;;; Multiply A by the imaginary constant i.  [N N] [Public]
(defun math-imaginary (a)
  (if (and (or (Math-objvecp a) (math-infinitep a))
	   (not calc-symbolic-mode))
      (math-mul a
		(if (or (eq (car-safe a) 'polar)
			(and (not (eq (car-safe a) 'cplx))
			     (eq calc-complex-mode 'polar)))
		    (list 'polar 1 (math-quarter-circle nil))
		  '(cplx 0 1)))
    (math-mul a '(var i var-i))))