>	with(plots,pointplot);

>	mydata := [[1,5],[2,3],[3,7],[4,6],[5,2],[6,1],[7,7],[8,4],[9,2],[10,2]];

>	pointplot([[1,5],[2,3]],axes=BOXED,symbol=circle,symbolsize=25,color=[red,blue]);

>	pointplot(mydata,axes=BOXED,symbol=circle,symbolsize=25,color=navy);

>	p1 := pointplot([[1,5],[2,3]],axes=BOXED,symbol=circle,symbolsize=10,color=black):

>	p2 := pointplot([[1,6],[2,4]],axes=BOXED,symbol=circle,symbolsize=20,color=green):

>	display([p1,p2]);

>

>

with(plots): F:=plot(cos(x),x=-Pi..Pi,y=-Pi..Pi,style=line,color=green): G:=plot(tan(x),x=-Pi..Pi,y=-Pi..Pi,style=point,color=red): display({F,G},axes=boxed,scaling=constrained,title=`Cosine and Tangent`); F:=plot3d(sin(x*y),x=-Pi..Pi,y=-Pi..Pi): G:=plot3d(x + y,x=-Pi..Pi,y=-Pi..Pi): H:=plot3d([2*sin(t)*cos(s),2*cos(t)*cos(s),2*sin(s)],s=0..Pi,t=-Pi..Pi): display({F,G,H}); P := animate(sin(x+t),x=-Pi..Pi,t=-Pi..Pi,frames=8): Q := animate(cos(x+t),x=-Pi..Pi,t=-Pi..Pi,frames=8): display([P,Q]); P := animate3d(x-k*y+1,x=-10..10,y=-10..10,k=-10..0,frames=4): Q := animate3d(x-k*y+1,x=-10..10,y=-10..10,k=0..10,frames=4): display([P,Q], insequence=true); P := animate3d(cos(t*x)*sin(t*y),x=-Pi..Pi, y=-Pi..Pi,t=1..2,frames=4): Q := animate3d(x*cos(t*u),x=1..3,t=1..4,u=2..4,coords=spherical,frames=4): display([P,Q],style=patch);

>