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…

Borwein Integral

Borwein-Integrale scheinen einem Muster zu folgen, tun es aber nicht ... Aufgabe aus Twitter: https://twitter.com/pickover/status/813105662788075521 Code: integrate(sin(x)/x,x,0,inf); integrate(sin(x)/x*sin(x/3)/(x/3),x,0,inf); integrate(sin(x)/x*sin(x/3)/(x/3)*sin(x/5)/(x/5),x,0,inf); Und weiter: integrate(sin(x)/x,x,0,inf); integrate(sin(x)/x*sin(x/3)/(x/3),x,0,inf); integrate(sin(x)/x*sin(x/3)/(x/3)*sin(x/5)/(x/5),x,0,inf); f(n):=integrate((prod(sin(x/(2*i-1))/(x/(2*i-1)),i,1,n)),x,0,inf); makelist(f(n),n,1,8); Probelauf: http://maxima-online.org/?inc=r1391720563