>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
with(plots):
f:=x->exp(-x^2)*sin(Pi*x^3):
plot(f(x), x=-2..2);
plot([sin(x), cos(x)], x=-Pi..Pi, color=[blue,red]);
plot(sin(x^2)/x^2, x=-6..6, y=0..1);
plot(sin(x^2)/x^2, x=-6..6, y=0..1, scaling=constrained);
plot([[1,2],[2,3],[3,5],[4,7]], style=point);
plots[polygonplot]([[3,-2],[7,-2],[5,5]],color=red, axes=none);
plot(x/(1-cos(5*x)), x=-5..5, y=-5..5, numpoints=200);
plot([cos(t), sin(t),t=0..2*Pi], scaling=constrained);
polarplot(sin(3*theta), theta=0..2*Pi);
implicitplot(x^3+y^3-5*x*y+1/5=0,x=-3..3,y=-3..3);
maple_vs_maxima7.wxm 1 / 1
--> load(draw)$
--> set_draw_defaults(xaxis=true,yaxis=true);
--> f(x):=exp(-x^2)*sin(%pi*x^3);
--> wxdraw2d(explicit(f(x),x,-2,2));
--> wxdraw2d(color=blue, explicit(sin(x),x,-%pi,%pi),
color=red, explicit(cos(x),x,-%pi,%pi));
--> wxdraw2d(yrange=[0,1],explicit(sin(x^2)/x^2,x,-6,6));
--> wxdraw2d(yrange=[0,1],explicit(sin(x^2)/x^2,x,-6,6),
proportional_axes=xy);
--> wxdraw2d(points([[1,2],[2,3],[3,5],[4,7]]));
--> wxdraw2d(points([1,2,3,4],[2,3,5,7]));
--> wxdraw2d(polygon([[3,-2],[5,7],[7,-2]]));
--> wxdraw2d(nticks=200,yrange=[-5,5],explicit(x/(1-cos(5*x)),
x,-5,5));
--> wxdraw2d(parametric(cos(t),sin(t),t,0,2*%pi),
proportional_axes=xy);
--> wxdraw2d(nticks=200,polar(sin(3*theta),theta,0,2*%pi));
--> wxdraw2d(implicit(x^3+y^3-5*x*y+1/5=0,x,-3,3,y,-3,3));
--> draw2d(explicit(sin(x),x,-%pi,%pi), terminal=eps_color,
file_name="sin");