Länge und Mittelpunkt einer Strecke

Aufgabe: Man bestimme den Abstand der Punkte und den Mittelpunkt der Strecke PQ. Code: d(X):=sqrt(X[1]^2+X[2]^2)$ PQ: matrix( [[5,4],[5,18]], [[-6,1],[-6,15]], [[-8,-1],[0,-1]], [[5,-8],[-2,-22]], [[-7,-6],[1,-14]] )$ Abstand(i):=d(PQ[i,2]-PQ[i,1])$ Mittelpunkt(i):=[(PQ[i,1][1]+PQ[i,2][1])/2,(PQ[i,1][2]+PQ[i,2][2])/2]$ Ergebnis:transpose(makelist([Abstand(i),Mittelpunkt(i)],i,1,5))$ disp([col(PQ,1),col(PQ,2),Ergebnis])$ Wir haben in…

Quadrat und Kreis

Aufgabe in Twitter: https://twitter.com/solvemymaths/status/806911486807474176 Code: Flaeche_Q: a^2; Viertelkreis_g:a^2*%pi/4; Diagonale_Q:a*sqrt(2); Radius_Kreis_k:Diagonale_Q-a; Viertelkreis_k:Radius_Kreis_k^2*%pi/4; Flaeche_schattiert:a^2-(Viertelkreis_g+Viertelkreis_k); Fraktion:Flaeche_schattiert/Flaeche_Q,expand; Fraktion:Fraktion,numer; Fraktion_in_Prozent:100*Fraktion; Fraktion_in_Prozent:\ floor(Fraktion_in_Prozent*1000+0.5)/1000.0; Maxima Online: http://maxima-online.org/?inc=r1136787028 Ergebnis: 7,985 % der Gesamtfläche sind schattiert.