x=read.table(file="input_piano_ammortamento_28_02_09.txt",sep=";",header=F)
                               #lettura da file di testo dei dati di input
                               #esempio di file di input:
                               #0.05; 100; 7

i <- x[1,1]                    #il primo elemento del file di input è il
                               #il tasso di interesse unitario
S <- x[1,2]                    #il secondo elemento è il capitale prestato
n <- x[1,3]                    #il terzo elemento è il numero delle rate


nu <- 1/(1+i)                  #variabile ausiliaria: fattore di sconto
a_n_i <- nu * ( 1 - nu^n )/(1 - nu)
R <- S / a_n_i                 #valore della rata




amm <- array(0, dim=c(n+1,6))  #qui si definiscono le dimensioni della
                               #tabella che costituirà il piano di
                               #ammortamento
                               #ha tante righe quanto il numero delle
                               #rate più 1
                               #la tabella è inizializzata
                               #riempiendola di zeri

colnames(amm) <- c("  k","  R_k","  C_k","  I_k","  D_k","  E_k")
                               #intestazione delle colonne
                               #della tabella


                               #segue: costruzione della prima riga della
                               #tabella di ammortamento
I <- 1
amm[I,1] <- I-1
amm[I,2] <- 0
amm[I,3] <- 0
amm[I,4] <- 0
amm[I,5] <- S
amm[I,6] <- 0


                               #segue: riempimento delle righe della
                               #tabella di ammortamento
lunghezza_ciclo <- n+1

for (I in 2:lunghezza_ciclo)   {
amm[I,1] <- I - 1
amm[I,2] <- R
amm[I,3] <- R - amm[I-1,5] * i
amm[I,4] <- amm[I-1,5] * i
amm[I,5] <- amm[I-1,5] - amm[I,3]
amm[I,6] <- amm[I-1,6] + amm[I,3]
}


write.table(amm, file="output_piano_ammortamento_28_02_09.txt", row.names=FALSE, col.names=TRUE)
                               #la tabella di ammortamento viene
                               #esportata in un file di testo