(%i1) rov:x^3-(a-1)*x^2+a^2*x-a^3;

Result

(%i2) domain:complex;

Result

(%i3) m:solve(rov,x);

Result

(%i4) define(F(a),m[3]);

Result

(%i5) expand(F(1));F(0);

Result

(%i7) float(F(2));

Result

(%i8) kill(all);

Result

(%i1) domain:real;

Result

(%i2) f(x):=(if x<-1 then 0 elseif x>1 then 0 else 1);

Result

(%i3) wxplot2d(f(x),[x,-2,2],[y,-1,2]);

Result

(%i4) kill(all);

Result

(%i6) Leo(n):=(if n=0 then 1 elseif n=1 then x else expand(((2*n-1)*x*Leo(n-1)-(n-1)*Leo(n-2))/n));

Result

(%i2) Leo(7);

Result

(%i5) m:orthopoly_recur(legendre_p,[6,x]);

Result

(%i4) load(orthopoly);

Result

(%i7) expand(legendre_p(7,x));

Result

(%i8) kill(all);

Result

(%i1) rov1:x^2+y^2=5;

Result

(%i2) rov2:x*y=y^2-2;

Result

(%i3) k:solve([rov1,rov2],[x,y]);

Result

(%i4) if numer#false then numer:false else numer:true;

Result

(%i5) solve([rov1,rov2],[x,y]);

Result

(%i6) if numer#true then numer:true else numer:false;

Result

(%i7) define(K(x,y),rov1);

Result

(%i8) K(1,2);K(-1,-2);K(-3/sqrt(2),1/sqrt(2));

Result

(%i11) load(mnewton);

Result

(%i12) mnewton([rov1,rov2],[x,y],[5,5]);

Result

(%i14) kill(all);

Result

(%i1) load(solve_rat_ineq);

Result

(%i2) solve_rat_ineq(x<(x-3)^2);

Result


Created with wxMaxima.