##參考網路R的操作,希望未來有實際運用的機會
#借入L金額的貸款,必須支付M個月,還款額r的比率
dta <- function(L,r,M){print(L*(r/(1-(1+r)^(-M))))}
#依照借款金額5百萬、1千萬、1千5百萬分別額度收取2%,5%或7%的利息
#在10、15、20、25、30年內,每月需要支付多少?
dta(5000000,0.02,c(10,15,20,25,30))## [1] 556632.6 389127.4 305783.6 256102.2 223249.6
## [1] 1295045.7 963422.9 802425.9 709524.6 650514.4
## [1] 2135663 1646919 1415894 1287158 1208796