> plot(sin(x),x=0..2*Pi);

> plot([cos(t),sin(t),t=0..2*Pi],scaling=constrained,axes=none,numpoints=500);

> plot([cos(10*t),sin(11*t),t=0..2*Pi],scaling=constrained,axes=none,numpoints=500);

> plot(cos(2*t),t=0..2*Pi,coords=polar,scaling=constrained,numpoints=500);

> plot({[cos(t),cos(n*t),t=0..Pi]$n=1..6},scaling=constrained,axes=none,numpoints=500);

> with(plots);

Warning, the name changecoords has been redefined

> animate(sin(x+t),x=-5..5,t=0..2*Pi);

> animate(x*sin(x+t),x=-5..5,t=0..2*Pi,axes=none,scaling=constrained);

> animate([x*cos(t),x*sin(t),t=0..2*Pi],x=0..1,frames=50,axes=none,scaling=constrained);

> animate([5*x*cos(t),3*x*sin(t),t=0..2*Pi],x=0..1,frames=50,axes=none,scaling=constrained);

> animate([x^2*cos(t),x^3*sin(t),t=0..2*Pi],x=0..1,frames=50,axes=none,scaling=constrained);

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

> restart;

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

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

> r:=exp(t);

> m:=64;

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

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

> with(plots):

> display(a,b);

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

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

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

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

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

>