/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/
/* [ Created by wxMaxima version 0.7.5 ] */

/* [wxMaxima: title   start ]
Annuitätentilgungsplan
   [wxMaxima: title   end   ] */

/* [wxMaxima: section start ]
Problembeschreibung
   [wxMaxima: section end   ] */

/* [wxMaxima: comment start ]
******************************************
Dokumentnummer: D1093
Gebiet:  Finanzmathematik
******************************************

Ein Annuitätentilgungsplan ist zu erstellen, wenn die Höhe
der Hypothek, die Annuität und der jährliche Zinssatz gegeben
sind.
   [wxMaxima: comment end   ] */

/* [wxMaxima: section start ]
Problemlösung
   [wxMaxima: section end   ] */

/* [wxMaxima: comment start ]
EINGABE
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
H:read("Gib die Höhe der Hypothek ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
A:read("Gib die Höhe der Annuität ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
p:read("Gib den Zinssatz ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
VERARBEITUNG
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
RS[0]:H;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
Jahr:0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
block(loop,
                  ev(Jahr:Jahr +1),
                  ev(Z[Jahr]:RS[Jahr-1]*p/100.0),
                  if RS[Jahr-1]<A then ev(T[Jahr]:RS[Jahr-1]) else ev(T[Jahr]:A-Z[Jahr]),
                  RS[Jahr]:RS[Jahr-1]-T[Jahr],
                  if RS[Jahr]>0 then go(loop))$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
for i:1 thru Jahr do ev(RS[i]:floor(RS[i]*100+0.5)/100.0)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
for i:1 thru Jahr do ev(Z[i]:floor(Z[i]*100+0.5)/100.0)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
for i:1 thru Jahr do ev(T[i]:floor(T[i]*100+0.5)/100.0)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
VORBEREITUNG DER AUSGABE
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
spalte0:makelist(i,i,1,Jahr)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
spalte1:makelist(RS[i-1],i,1,Jahr)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
spalte2:makelist(Z[i],i,1,Jahr)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
spalte3:makelist(T[i],i,1,Jahr)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
spalte4:makelist(Z[i]+T[i],i,1,Jahr)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
zeile0:["Jahr","Restschuld","Zinsen","Tilgung","Annuität"]$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
spalte0:transpose(spalte0)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
spalte1:transpose(spalte1)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
spalte2:transpose(spalte2)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
spalte3:transpose(spalte3)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
spalte4:transpose(spalte4)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ergebnis:[spalte0,spalte1,spalte2,spalte3,spalte4]$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ausgabe:matrix(
 [zeile0], 
 [ergebnis]
)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
AUSGABE
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
print(ausgabe)$
/* [wxMaxima: input   end   ] */

/* Maxima can't load/batch files which end with a comment! */
"Created with wxMaxima"$