Aufgabe:
Berechne die Summe von 4 Zahlen,
von denen die erste 64 5/18 und
jede folgende um 6 3/8 kleiner ist.
Maxima-Code:
erste:64+5/18$
kleiner:6+3/8$
zweite:erste-kleiner$
dritte:zweite-kleiner$
vierte:dritte-kleiner$
Summe:erste+zweite+dritte+vierte$
Summe:erste+zweite+dritte+vierte$
ganz:floor(Summe)$
bruch:rat(Summe-floor(Summe))$
probe:ganz+bruch$
Ergebnis:[ganz,bruch] /* als gemische Zahl */$
display(Ergebnis)$
Ergebnis=[218,31/36]
sn=n/2*(2*a1+(n-1)*d)
numer:true$
sn=n/2*(2*a1+(n-1)*d),n=4,a1=erste,d=-kleiner;
sn=218.8611111111111
