Aufgabe:
Eine Anzahl m von Aufgaben zur Zinseszinsrechnung ist zu lösen. Gesucht ist das Endkapital.
Programmcode:
Ko:[1000,1000,2000,3000,4000,5000]; p:[3,2.25,1.875,2.5,3,2.785]; n:[10,10,9,3,7,6]; i:p/100.0; r:1+i; m:length(Ko); Kn:makelist(Ko[i]*r[i]^n[i],i,1,m); Liste:makelist([Ko[i],p[i],n[i],Kn[i]],i,1,m); print(""); printf(true,"~{~{~9,2f ~}~%~}",Liste);
Ko : Anfangskapital
p : Zinssatz dek. p.a.
n : Laufzeit in Jahren
i : Zinssatz als Dezimalzahl
Kn : Endkapital
Maxima Online: http://maxima-online.org/?inc=r-862965041
Bessere Version: http://maxima-online.org/?inc=r-239382725
Eine sehr elegante Lösung mit map(<Funktion>,<Liste>), allerdings ohne tabellarische Ausgabe:
http://maxima-online.org/?inc=r-995003097