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…

Puzzle#86

Aufgabe: https://twitter.com/shahlock/status/850294052767531008 Mathematische Anmerkung: Kryptogramme mit Wurzeln sind ein "Leckerbissen", eine Delikatesse. Üblicherweise herrscht die Addition vor. Code: zahl1:[N,O,N,R,A,N,D,O,M]$ zahl2:[D,E,I,T,Y]$ f9:[10^8,10^7,10^6,10^5,10^4,10^3,10^2,10^1,10^0]$ f5:[10^4,10^3,10^2,10^1,10^0]$ gleichung:sqrt(zahl1.f9)=zahl2.f5$ ziffern:setify(makelist(i,i,0,9))$ zaehler:0$ disp(["#",zahl1,zahl2])$ for N in setdifference(ziffern,{0})…