# Copia le righe seguenti e incolla; avrai l'esito.
tas = 8.5/100; deb = 1e5; nrate = 12
# da  deb=rata*(1-(1+tas)^-nrate/tas  ho:
rata = deb*tas/(1-(1+tas)^-nrate); rata;  est = 0; resid = deb
for (n in 1:12) {
  quotaInt = resid*tas; quotaCap = rata-quotaInt; est = est+quotaCap;
  resid = resid-quotaCap; print(round(c(n,quotaInt, quotaCap, est, resid))) }
###
###
# ovvero mettendo i dati in una matrice (facendo poi la trasposta)
tas = 8.5/100; deb = 1e5; nrate = 12
rata = deb*tas/(1-(1+tas)^-nrate); rata;  est = 0; resid = deb
dati = NULL
for (n in 1:12) {
  quotaInt = resid*tas; quotaCap = rata-quotaInt; est = est+quotaCap;
  resid = resid-quotaCap; dati = c(dati, quotaInt, quotaCap, est, resid) }
tabella = matrix(round(dati), nrow=4, ncol=12); t(tabella)