>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
>>
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);
f (x)=e ^( -x^2)* sin ( pi *x^3)
plot ( f (x) ,( x , -2 ,2) , f i g s i z e =2)
plot ( sin (x) ,( x , - pi , pi ) , color='blue ')+plot ( cos (x) ,( x , - pi , pi ) , color='red ' , f i g s i z e \
=2)
plot ( sin (x^2)/x^2 , (x , -6 ,6) ,ymin=0,ymax=1, f i g s i z e =2)
plot ( sin (x^2)/x^2 , (x , -6 ,6) ,ymin=0,ymax=1, aspect_ratio =1, f i g s i z e =2)
point ( [ ( 1 , 2 ) ,(2 ,3) ,(3 ,5) ,(4 ,7) ] , s i z e =30, f i g s i z e =2)
1
polygon ( [ ( 3 , - 2 ) ,(7 , -2) ,(5 ,5) ] , color='red ' , axes=False , f i g s i z e =2)
plot (x/(1 - cos (5*x) ) , (x , -5 ,5) , ymin=-5, ymax=5, plot_points =200, f i g s i z e =2)
var ( 't ') ; parametric_plot (( cos ( t ) , sin ( t ) ) ,( t ,0 ,2* pi ) , aspect_ratio =1, f i g s i z e =2)
t
polar_plot ( sin (3* t ) , ( t , 0 , 2* pi ) , f i g s i z e =2)
var ( 'y')
y
implicit_plot (x^3+y^3 -5*x*y+1/5, (x , -3 ,3) , (y , -3 ,3) , f i g s i z e =2)
c=plot ( sin (x) ,( x , - pi , pi ) ) ; c . save ( ' sin . pdf ' , aspect_ratio =1)
2