Nerovnice

a) Řešte nerovnici x^2-5*x+6<0.

(%i1) ner1:x^2-5*x+6<0;

Result

(%i2) wxplot2d(lhs(ner1),[x,1,4]);

Result

(%i3) load(fourier_elim);

Result

(%i4) fourier_elim(ner1,[x]);

Result

b) Řešte nerovnici x^2-3*x+1<0.

(%i5) ner2:x^2-3*x+1<0;

Result

(%i6) wxplot2d(lhs(ner2),[x,0,3]);

Result

(%i7) fourier_elim(ner2,[x]);

Result

Pozn.: Vidíme, že v tomto případě příkaz fourier_elim na vyřešení
nestačí. Naštěstí nám dobře poslouží příkaz solve_rat_ineq.

(%i8) load(solve_rat_ineq);

Result

(%i9) solve_rat_ineq(ner2);

Result

Created with wxMaxima.