Function: calcFunc-npv

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

Signature

(calcFunc-npv RATE &rest FLOWS)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-fin.el.gz
(defun calcFunc-npv (rate &rest flows)
  (math-check-financial rate 1)
  (math-with-extra-prec 2
    (let* ((flat (math-flatten-many-vecs flows))
	   (pp (math-add 1 rate))
	   (p pp)
	   (accum 0))
      (while (setq flat (cdr flat))
	(setq accum (math-add accum (math-div (car flat) p))
	      p (math-mul p pp)))
      accum)))