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.