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;"]); |
(%i5) | load(draw); |
(%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); |