保险精算--第五周作业

借款人原计划在每月末偿还 1000 元，用 5 年时间可以还清贷款。每月复利一次的年名义利率为 $12\%$。如果借款人希望在第 3 年末一次性支付还清贷款，问他需要在第 3 年末需偿还多少？

#R
 a<-function(n,i){(1-(1+ i)^(-n ))/i}
 s<-function(n,i){(1+i)^n*((1-(1+ i)^(-n ))/i)}
1000*(a(24,0.01)+s(36,0.01))
#64320.27

某人在退休前 10 年，每季度末将其季度奖中的 5000 元存入养老基金账户，直到退休（某年 1 月 1 日退休）。退休后 20 年内的每月末可获得一笔等额养老金。假设年实际利率为 $6\%$，问他退休时每月末可领到多少养老金？

#R
s<-function(n ,i){a(n,i)*(1+ i )^n}
a<-function(n,i){(1-(1+ i)^(-n ))/i}
5000*s(40,(1+0.06)^(1/4)-1)/a(240,(0.06+1)^(1/12)-1)
# 1905.977

一项 10 年期的年金，在前 5 年的每月末付款 1000 元，后 5 年的每季度末付 2000 元。如果年实际利率为 $5\%$，计算该年金在第 10 年末的累积值。

s<-function(n ,i){a(n,i)*(1+ i )^n}
1000*s(60,(0.05+1)^(1/12)-1)*(1+0.05)^5+2000*s(20,(0.05+1)^(1/4)-1)
#131574.9