Function: calcFunc-pv

calcFunc-pv is an autoloaded and byte-compiled function defined in calc-fin.el.gz.

Signature

(calcFunc-pv RATE NUM AMOUNT &optional LUMP)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-fin.el.gz
;;; Financial functions.

(defun calcFunc-pv (rate num amount &optional lump)
  (math-check-financial rate num)
  (math-with-extra-prec 2
    (let ((p (math-pow (math-add 1 rate) num)))
      (math-add (math-mul amount
			  (math-div (math-sub 1 (math-div 1 p))
				    rate))
		(math-div (or lump 0) p)))))