1)ukol

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

Result

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

Result

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

Result

(%i5) load(draw);

Result

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

Result

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

Result

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

Result

2)ukol

a) implicitně

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

Result

b) polárně

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

Result

c)parametricky

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

Result

3)ukol

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

Result

(%i19) log(%e);

Result

4)ukol

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

Result

5)ukol

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

Result

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]);

Result

(%i45) kill(all);

Result


Created with wxMaxima.