Function: math-ipow

math-ipow is an autoloaded and byte-compiled function defined in calc-misc.el.gz.

Signature

(math-ipow A N)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-misc.el.gz
;;;###autoload
(defun math-ipow (a n)   ; [O O I] [Public]
  (cond ((Math-integer-negp n)
	 (math-ipow (math-div 1 a) (Math-integer-neg n)))
	((not (consp n))
	 (if (and (Math-ratp a) (> n 20))
	     (math-iipow-show a n)
	   (math-iipow a n)))
	((math-evenp n)
	 (math-ipow (math-mul a a) (math-div2 n)))
	(t
	 (math-mul a (math-ipow (math-mul a a)
				(math-div2 (math-add n -1)))))))