Function: calcFunc-sln

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

Signature

(calcFunc-sln COST SALVAGE LIFE &optional PERIOD)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-fin.el.gz
(defun calcFunc-sln (cost salvage life &optional period)
  (or (math-realp cost) math-expand-formulas
      (math-reject-arg cost 'realp))
  (or (math-realp salvage) math-expand-formulas
      (math-reject-arg salvage 'realp))
  (or (math-realp life) math-expand-formulas
      (math-reject-arg life 'realp))
  (if (math-zerop life) (math-reject-arg life 'nonzerop))
  (if (and period
	   (if (math-num-integerp period)
	       (or (Math-lessp life period) (not (math-posp period)))
	     (math-reject-arg period 'integerp)))
      0
    (math-div (math-sub cost salvage) life)))