Local a,ac,co,du,moi
ClrIO
setMode("Exact/Approx","APPROXIMATE")
Disp "attention prorata se calcul"
Disp "a partir du 1er jour"
Disp "du mois d'acquisition"
Disp "raisonement en mois entier"
Pause 
" "
Input "montant de l'acquiition :",ac
Input "duree de l'amortissement :",du
Input "prorata en mois :",moi
If moi=0 Then
12->moi
EndIf
newMat(du+1,5)->lin
For a,1,du
a->lin[a+1,1]
EndFor
annees->lin[1,1]
base->lin[1,2]
annuite->lin[1,3]
"am cumule"->lin[1,4]
"vnc"->lin[1,5]
If du=3 or du=4 Then
1.25->co
EndIf
If du=5 or du=6 Then
1.75->co
EndIf
If du>6 Then
2.25->co
EndIf
ac->lin[2,2]
ac*1/du*co*moi/12->lin[2,3]
lin[2,3]->lin[2,4]
ac-lin[2,4]->lin[2,5]
For a,3,du+1
lin[a-1,5]->lin[a,2]
If 1/du*co>1/(du+2-a) Then
lin[a,2]*1/du*co->lin[a,3]
Else
lin[a,2]*1/(du+2-a)->lin[a,3]
EndIf
lin[a-1,4]+lin[a,3]->lin[a,4]
ac-lin[a,4]->lin[a,5]
EndFor
setMode("Split 1 App","Data/Matrix Editor")