maxima6

1. priklad

(%i1)

domain:complex;

Result

(%i2)

rce:x^3-(a-1)*x^2+a^2*x-a^3=0;

Result

(%i3)

vysledky:solve(rce, x);

Result

(%i4)

realne:vysledky[3];

Result

(%i5)

define(F(a),realne);

Result

(%i6)

F(0);

Result

(%i7)

F(1);

Result

(%i8)

float(F(2));

Result

2. priklad

(%i9)

kill(all);

Result

(%i1)

s(x):=(if x>=-1 and x<=1 then 1 else 0);

Result

(%i2)

wxplot2d(s(x),[x,-2,2],[y,-1,2]);

Result

3. priklad

(%i3)

L(n,x):=(if n=0 then 1 elseif n=1 then x else ((2*n-1)*x*L(n-1,x)-(n-1)*L(n-2,x))/n);

Result

(%i4)

load(orthopoly);

Result

(%i5)

expand(legendre_p(7,x));

Result

(%i6)

sedmy:L(7,x);

Result

(%i7)

expand(sedmy);

Result

4. priklad

(%i8)

kill(all);

Result

(%i1)

rce1:x^2+y^2=5;

Result

(%i2)

rce2:x*y=y^2-2;

Result

(%i3)

soustava:[rce1, rce2];

Result

(%i4)

sol:solve([rce1, rce2], [x, y]);

Result

(%i5)

if numer#false then numer:false else numer:true;

Result

(%i6)

sol:solve([rce1, rce2], [x, y]);

Result

(%i7)

ev(soustava, sol[1]);

Result

(%i8)

ev(soustava, sol[2]);

Result

(%i9)

ev(soustava, sol[3]);

Result

5. priklad

(%i10)

kill(all);

Result

(%i1)

if numer#false then numer:false else numer:true;

Result

(%i2)

nerce:x<(x-3)^2;

Result

(%i3)

load(solve_rat_ineq);

Result

(%i4)

solve_rat_ineq(nerce);

Result

Created with wxMaxima.