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