Lines Matching refs:rate
82 (defun calc-fin-rate ()
87 (if (calc-is-inverse) "ratb" "rate"))
92 'calcFunc-rate))
142 (defun calcFunc-pv (rate num amount &optional lump)
143 (math-check-financial rate num)
145 (let ((p (math-pow (math-add 1 rate) num)))
148 rate))
152 (defun calcFunc-pvl (rate num amount)
153 (calcFunc-pv rate num 0 amount))
156 (defun calcFunc-pvb (rate num amount &optional lump)
157 (math-check-financial rate num)
159 (let* ((p (math-pow (math-add 1 rate) num)))
162 (math-add 1 rate))
163 rate))
167 (defun calcFunc-npv (rate &rest flows)
168 (math-check-financial rate 1)
171 (pp (math-add 1 rate))
180 (defun calcFunc-npvb (rate &rest flows)
181 (math-check-financial rate 1)
184 (pp (math-add 1 rate))
193 (defun calcFunc-fv (rate num amount &optional initial)
194 (math-check-financial rate num)
196 (let ((p (math-pow (math-add 1 rate) num)))
199 rate))
203 (defun calcFunc-fvl (rate num amount)
204 (calcFunc-fv rate num 0 amount))
207 (defun calcFunc-fvb (rate num amount &optional initial)
208 (math-check-financial rate num)
210 (let ((p (math-pow (math-add 1 rate) num)))
213 (math-add 1 rate))
214 rate))
218 (defun calcFunc-pmt (rate num amount &optional lump)
219 (math-check-financial rate num)
221 (let ((p (math-pow (math-add 1 rate) num)))
224 rate)
228 (defun calcFunc-pmtb (rate num amount &optional lump)
229 (math-check-financial rate num)
231 (let ((p (math-pow (math-add 1 rate) num)))
232 (math-div (math-mul (math-sub amount (math-div (or lump 0) p)) rate)
234 (math-add 1 rate))))))
237 (defun calcFunc-nper (rate pmt amount &optional lump)
238 (math-compute-nper rate pmt amount lump nil))
241 (defun calcFunc-nperb (rate pmt amount &optional lump)
242 (math-compute-nper rate pmt amount lump 'b))
245 (defun calcFunc-nperl (rate pmt amount)
246 (math-compute-nper rate pmt amount nil 'l))
249 (defun math-compute-nper (rate pmt amount lump bflag)
256 (or (math-objectp rate) (and math-expand-formulas (null lump))
257 (math-reject-arg rate 'numberp))
258 (and (math-zerop rate)
259 (math-reject-arg rate 'nonzerop))
272 rate
286 (math-sub 1 (math-div (math-mul amount rate)
288 (math-mul pmt (math-add 1 rate))
291 (math-neg (calcFunc-log temp (math-add 1 rate)))
292 (math-reject-arg pmt "*Payment too small to cover interest rate"))))))
294 (defun calcFunc-rate (num pmt amount &optional lump)
295 (math-compute-rate num pmt amount lump 'calcFunc-pv))
298 (math-compute-rate num pmt amount lump 'calcFunc-pvb))
300 (defun math-compute-rate (num pmt amount lump func)
352 (defun math-check-financial (rate num)
353 (or (math-objectp rate) math-expand-formulas
354 (math-reject-arg rate 'numberp))
355 (and (math-zerop rate)
356 (math-reject-arg rate 'nonzerop))