Tilgungsplan

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)

Über Johnny Weilharter

Direktor i. R. der Bundeshandelsakademie und Bundeshandelssschule in Tamsweg, Österreich
Dieser Beitrag wurde unter Finanzmathematik veröffentlicht. Setze ein Lesezeichen auf den Permalink.

Schreibe einen Kommentar

Trage deine Daten unten ein oder klicke ein Icon um dich einzuloggen:

WordPress.com-Logo

Du kommentierst mit Deinem WordPress.com-Konto. Abmelden / Ändern )

Twitter-Bild

Du kommentierst mit Deinem Twitter-Konto. Abmelden / Ändern )

Facebook-Foto

Du kommentierst mit Deinem Facebook-Konto. Abmelden / Ändern )

Google+ Foto

Du kommentierst mit Deinem Google+-Konto. Abmelden / Ändern )

Verbinde mit %s