lisp 代码计算月供

;; 等额本息还款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万。