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)
Advertisements

Kommentar verfassen

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