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…