Notendurchschnitt

Kommentar Maxima Anweisung
„*“/* NOTENDURCHSCHNITT */;
„*“/* Urliste */; x:[1,2,1,3,1,2,4,3,5,2,3,2,3,4,2,3,2,2,3,4];
„*“/* Anzahl */; n:length(x);
„*“/* Arithmetisches Mittel */; m:sum(x[i],i,1,n)/n,numer;
„*“/* Rundung */; m:floor(m*10+0.5)/10.0;
„*“/* Berechnung der gruppierten Liste */;
„*“/* Unterprogramm Beschreibende Statistik */; load(descriptive);
„*“/* Gruppierung */; gruppierung:discrete_freq(x);
„*“/* Note */; X:gruppierung[1];
„*“/* Haeufigkeit */; H:gruppierung[2];
„*“/* Berechnung von n */; n:length(X);
„*“/* Gewogener Durchschnitt */; E:sum(H[i]*X[i],i,1,n)/sum(H[i],i,1,n);
„*“/* Rundung */; E:floor(E*10+0.5)/10.0;
http://maxima-online.org/?inc=r1832170021

Trapezfläche aus 4 Seiten

Kommentar Maxima Anweisung

Anmerkung:
Wenn man diese Zeichnung kennt, kann man die Fläche dieser speziellen Aufgabe auch durch Kopfrechnen finden. Aber, es wird angenommen, dass man nur die Seiten a,b,c und d kennt und keine Zeichnung (die im Allgemeinen auch nicht hilft).
„*“/* TRAPEZFLAECHE */;
„*“/* Eingabe von a */; a:10;
„*“/* Eingabe von b */; b:4.47;
„*“/* Eingabe von c */; c:5;
„*“/* Eingabe von d */; d:5;
„*“/* Gleichung 1 */; g1:x^2+h^2=d^2;
„*“/* Gleichung 2 */; g2:y^2+h^2=b^2;
„*“/* Gleichung 3 */; g3:c=a-x-y;
„*“/* Loesung Gleichungssystem */; l:solve([g1,g2,g3],[h,x,y]);
„*“/* h aus der Liste nehmen */; h:ev(h,l[1][1]);
„*“/* h runden */; h:floor(h*10+0.5)/10.0;
„*“/* Berechnung der Flaeche */; A:(a+c)/2*h;
http://maxima-online.org/?inc=r-785650468

Alternative: Cosinussatz.

Rechtwinkeliges Dreieck

Kommentar Maxima Anweisung
„*“/* RECHTWINKELIGES DREIECK */;
„*“/* Eingabe der ersten Kathete */;
a:3;
„*“/* Eingabe der zweiten Kathete */;
b:4;
„*“/* Berechnung der Hypotenuse */;
c:sqrt(a^2+b^2);
„*“/* Berechnung der Fläche */;
F:a*b/2;
„*“/* Berechnung der Höhe */;
h:2*F/c;
„*“/* Berechnung Umfang */;
U:a+b+c;
„*“/* Rundungsfunktion */;
r(x):=floor(x*10+0.5)/10.0;
„*“/* Ergebnisliste */;
Ergebnisliste:[a,b,c,F,U,h];
„*“/* Ergebnisliste runden */;
Ergebnisliste:map(r,Ergebnisliste);
„*“/* Ausgabe der Ergebnisliste */;
matrix([„a“,“b“,“c“,“F“,“U“,“h“],Ergebnisliste);
http://maxima-online.org/?inc=r-317392694

Berechnung der Laufzeit

„*“/* Berechnung der Laufzeit in Jahren*/;
„*“/* Eingabe des Anfangskapitals */;
Ko:1000;
„*“/* Eingabe des Endkapitals */;
Kn:1343.92;
„*“/* Eingabe vom Zinssatz */;
p:3;
„*“/* Berechnung von i */;
i:p/100.0;
„*“/* Berechnung des Aufzinsungsfaktors */;
r:1+i;
„*“/* Berechnung der Laufzeit */;
n:(log(Kn)-log(Ko))/log(r);
„*“/* Runden der Laufzeit */;
n:floor(n*10+0.5)/10.0;

Berechnung des Zinssatzes

„*“/* Berechnung vom Zinssatz */;
„*“/* Eingabe des Anfangskapitals */;
Ko:1000;
„*“/* Eingabe der Laufzeit in Jahren */;
n:10;
„*“/* Eingabe des Endkapitals */;
Kn:1343.92;
„*“/* Berechnung Aufzinsungfaktor */;
r:(Kn/Ko)^(1/n);
„*“/* Berechnung von i */;
i:r-1;
„*“/* Berechnung Zinssatz */;
p:i*100;
„*“/* Rundung Zinssatz */;
p:floor(p*1000+0.5)/1000.0;
http://maxima-online.org/?inc=r-949217077