Muster-Erkennung

Aufgabe: Das Muster ist leicht zu erkennen. Es ist aber interessant, das Muster zu programmieren (zweidimensionale Felder). Code: Summanden:[[5,2],[6,3],[7,4],[8,3],[9,6],[13,6],[16,5],[17,8]]$ n:length(Summanden)$ S1:makelist(Summanden[i][1],i,1,n)$ S2:makelist(Summanden[i][2],i,1,n)$ s(x):=block(S:map(string,[x[1]-x[2],x[1]+x[2],x[1]*x[2]]),sconcat(S[1],S[2],S[3]))$ Summen:map(s,Summanden)$ disp([" x "," y ","Summe"])$ Aufgabe:[transpose(S1),transpose(S2),transpose(Summen)]$…

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…