Sviluppa in una tabella il piano di ammortamento al 12% in 5 rate annue costanti posticipate di un debito di 5000 €.

I calcoli fatti con R:

D <- 5000; n <- 5; i <- 12/100
R <- i*D/(1-(1+i)^-n)
write(c("k","R","Ck","Ik"),file="", sep="\t", ncolumns=4)
k       R       Ck      Ik
for(k in 1:n){v <- 1/(1+i)^(n-k+1);
  write(round(c(k,R,R*v,R*(1-v)),2),file="",sep="\t",ncolumns=4)}
1       1387.05 787.05  600
2       1387.05 881.49  505.55
3       1387.05 987.27  399.77
4       1387.05 1105.75 281.3
5       1387.05 1238.44 148.61

  Per altri commenti: Matematica finanziaria neGli Oggetti Matematici.