19
Erklärung:
Ein Tilgungsplan ist eine Liste (meist in tabellarischer Form), die den zeitlichen Verlauf von Zinsen, Tilgung und Restschuld ausweist.
Code und Ausführung:
Der Link zu Maxima-Online: http://maxima-online.org/?inc=r-440310424
(%i1) "*"/* Berechnung eines Tilgungsplanes */; (%o1) * (%i2) kill(all); (%o0) done (%i1) "*"/* Eingabe der Hypothek */; (%o1) * (%i2) H:100000; (%o2) 100000 (%i3) "*"/* Eingabe vom Zinssatz in % */; (%o3) * (%i4) p:8; (%o4) 8 (%i5) "*"/* Eingabe der Annuität */; (%o5) * (%i6) A:10000; (%o6) 10000 (%i7) "*"/* Interest i ist der Zinssatz als Dezimalzahl */; (%o7) * (%i8) i:p/100.0; (%o8) 0.08 (%i9) "*"/* Das Anfangskapital ist identisch mit der Hypothek */; (%o9) * (%i10) K[0]:H; (%o10) 100000 (%i11) "+"/* Die rekursive Berechnung des Tilgungsplans */; (%o11) + (%i12) for n:1 step 1 while K[n-1]>=0 do(K[n]:=K[n-1]+i*K[n-1]-A, display(K[n])); K = 98000.0 1 K = 95840.0 2 K = 93507.2 3 K = 90987.776 4 K = 88266.79807999999 5 K = 85328.14192639999 6 K = 82154.39328051198 7 K = 78726.74474295294 8 K = 75024.88432238917 9 K = 71026.87506818031 10 K = 66709.02507363474 11 K = 62045.74707952552 12 K = 57009.40684588757 13 K = 51570.15939355858 14 K = 45695.77214504327 15 K = 39351.43391664673 16 K = 32499.54862997846 17 K = 25099.51252037674 18 K = 17107.47352200688 19 K = 8476.071403767426 20 K = - 845.84288393118 21 (%o12) done (%i13)