Sviluppa in una tabella il piano di ammortamento relativo ad un debito di 8000 € rimborsato in 4 anni a quote costanti al tasso di interesse del 10% annuo.

D=8000, n=4, i=10/100, Q=D/n, Ik=i*(D-(k-1)*Q), Rk = Q+Ik

I calcoli fatti con R:

D <- 8000; n <- 4; i <- 10/100
write(c("k","Ik","Rk"),file="", sep="\t", ncolumns=3)
k       Ik      Rk
for(k in 1:n){t <- i*(D-(k-1)*D/n); write(c(k,t,D/n+t),file="",sep="\t",ncolumns=3)}
1       800     2800
2       600     2600
3       400     2400
4       200     2200

  Per altri commenti: Matematica finanziaria neGli Oggetti Matematici.