;; 等额本息还款debx, 输入总金额A, 年利率y, m个月还清, 计算月供和总利息:
;; 例子: (debx 1000000 0.0631 (* 30 12)) ;==>
;; 6196.247877564253
;; 1230649.235923131
(define (debx A y m)
(let* [(b (/ y 12))
(b1 (expt (+ 1 b) m))
(A1 (/ (* b A b1) (- b1 1)))]
(values A1 (- (* A1 m) A))))
;;公式推导 https://baike.baidu.com/item/等额本息/3227456
向银行借100万,30年还清, 每月还6200, 总共还利息123万。
lisp 代码计算月供
最新推荐文章于 2024-04-09 09:57:26 发布