1)ukol

 (%i2) f(x):=sqrt(1-x^2);

 (%i4) g(x):=-sqrt(1-x^2);

 (%i44) wxplot2d([f(x),g(x)], [x,-1,1], [gnuplot_preamble, "set size ratio 1;"]);

 (%i12) wxdraw2d(polar(1,theta,0,2*%pi),proportional_axes=xy);

 (%i13) wxdraw2d(parametric(cos(t),sin(t),t,0,2*%pi),proportional_axes=xy);

 (%i14) wxdraw2d(implicit(x^2+y^2=1,x,-1,1,y,-1,1),proportional_axes=xy);

2)ukol

a) implicitně

 (%i15) wxdraw2d(implicit((x^2+y^2)^2=(x^2-y^2),x,-1,1,y,-1,1));

b) polárně

 (%i16) wxdraw2d(polar(sqrt(cos(2*theta)),theta,-%pi,%pi));

c)parametricky

 (%i17) wxdraw2d(parametric(cos(t)/(1+(sin(t))^2),(cos(t)*sin(t))/(1+(sin(t))^2),t,-%pi,%pi));

3)ukol

 (%i39) wxplot2d((%e)^x+log(abs(4-x)),[x,0,5]);

 (%i19) log(%e);

4)ukol

 --> wxplot2d(x+cos(%pi*x),[x,-49,49],[psfile, "vlnka.eps"]);

5)ukol

 (%i41) plot2d(x+cos(%pi*x),[x,-49,49],[psfile, "vlnka.eps"]);

je moc zajímavé měnit počet nticks :) čím víc tím líp

 (%i43) wxplot2d([parametric, t*cos(2*%pi*t), t*sin(2*%pi*t), [t,0,10]], [nticks,2]);

 (%i45) kill(all);

Created with wxMaxima.