> plot(cos(x),x=-2*Pi..2*Pi,numpoints=500,color=green,thickness=2,scaling=constrained);

> plot([cos(t),sin(t),t=-Pi..Pi],axes=none,color=green,thickness=2,scaling=constrained);

>

> restart;

> plot([[(cos(x),cos(n*x),x=0..Pi)]$n=1..6],scaling=constrained);

> with(plots):

Warning, the name changecoords has been redefined

> w:=1+cos(t)/2:z:=t/6-sin(2*t)/12:x:=w*sin(z):y:=w*cos(z):plot([x,y,t=0..12*Pi],scaling=constrained,color=green,thickness=2,axes=none);

> restart;

> m:=[x,binomial(100,k)*x^(100-k)*(1-x)^k,x=0..1]:

> plot({m$k=0..100},thickness=2,axes=none);

> restart;

> r:=exp(t):

> m:=64:

> a1:=plot({[r*cos(t+2*k*Pi/m),r*sin(t+2*k*Pi/m),t=3..5]$k=1..m},scaling=constrained,axes=none):

> a2:=plot({[r*cos(t+2*k*Pi/m),-r*sin(t+2*k*Pi/m),t=3..5]$k=1..m},scaling=constrained,axes=none):

> with(plots):

> display(a1,a2);

> plot(cos(7*t/2)+1/4,t=0..4*Pi,color=green,thickness=2,coords=polar,axes=none,scaling=constrained);

> plot(2-cos(3*t)-cos(31*3*t/32),t=0..64*Pi,coords=polar,numpoints=1000,axes=none,scaling=constrained,color=green);

> plot(100+t+15*cos(3.05*t),t=0..200,coords=polar,axes=none,scaling=constrained,color=green);

> animate((sin(x+t),x=-2*Pi..2*Pi),t=0..2*Pi,axes=none,color=green,thickness=2);

>