Länge und Mittelpunkt einer Strecke

Aufgabe:

Man bestimme den Abstand der Punkte und den Mittelpunkt der Strecke PQ.
abstand_und_mittelpunkt


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 diesem Code Matrizen und Listen verwendet. Rein aus Übungszwecken. Notwendig ist es ja nicht.


wxMaxima
:

Bildschirmfoto-wxMaxima 15.04.0  [ abstand_mittelpunkt.wxmx ].png