1.a

(%i5) f(x):=(1-x^2)^(1/2); g(x):=-(1-x^2)^(1/2); wxplot2d([f(x),g(x)],
 [x, -2,2]);

Result

1.b

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

Result

1.c

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

Result

1.d

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

Result

2.a

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

Result

2.b

(%i3) wxdraw2d(nticks=40,polar(sqrt(cos(2*theta)),theta,0,2*%pi),proportional_axes=xy);

Result

2.c

(%i3) wxdraw2d(nticks=400,parametric( cos(t)/(1+(sin(t))^2),(cos(t)*sin(t))/(1+(sin(t))^2),t,-2*%pi,2*%pi),proportional_axes=xy);

Result

3.

(%i3) load(draw);
numer: false; kill(all); f(x) := (exp(x)+log(abs(4-x))); wxplot2d(f(x),[x,0,5]);

Result

(%i21) kill(all); f(x):=x+cos(%pi*x); wxplot2d(f(x),[x,-49,49],[psfile,"zajimava_funkce.eps"]);

Result


Created with wxMaxima.