akishi<-function(i,n){
v<-1/(1+i)
(1-v^n)/(1-v)
}
akimatsu<-function(i,n){
v<-1/(1+i)
v*(1-v^n)/(1-v)
}
akishi(0.05,10)
akimatsu(0.05,10)
