IntenseFinance/gnucash
3
0
Fork 0
mirror of https://github.com/Gnucash/gnucash.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Merge T Edmunds's 'computeInterestIncrement' to maint.

Browse Source
This commit is contained in:
John Ralls 2019-04-20 12:32:17 -07:00
commit 3c946a8449
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
libgnucash/app-utils/fin.scm
View File

@ -63,12 +63,9 @@
;; formula from http://www.riskglossary.com/articles/compounding.htm
(* a (expt (+ 1 (/ r n)) (* n t))))
(define (gnc:computeInterestIncrement amount interest periods i)
(let ((thisVal (gnc:futureValue amount interest periods i))
(prevVal (gnc:futureValue amount interest periods (- i 1))))
(- thisVal prevVal)
)
)
(define (gnc:computeInterestIncrement pv ann-rate compounds period)
(let ((rate (/ ann-rate compounds)))
(* rate (* pv (expt (+ 1 rate) (- period 1))))))
;;;;;
;; below: not-exposed/"private" functions, used by the "public" functions