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.