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…

Lineare Regression

Aufgabe: Man ermittle die Regressionsgerade für die folgenden Punkte: P1:[-2,2]; P2:[-1,0]; P3:[1,1]; P4:[2,3]; P5:[3,4]; Code: numer:true; P1:[-2,2]; P2:[-1,0]; P3:[1,1]; P4:[2,3]; P5:[3,4]; n:5; x:makelist(concat(P,i)[1],i,1,n); y:makelist(concat(P,i)[2],i,1,n); g1:a*sum(x[i]^2,i,1,n)+b*sum(x[i],i,1,n)=sum(x[i]*y[i],i,1,n); g2:a*sum(x[i],i,1,n)+b*n=sum(y[i],i,1,n); l:solve([g1,g2],[a,b]); Regressionsgerade:Y=a*X+b,l; Die Regressionsgleichungen…