>
with(plots):
>
animatecurve([1+cos(x),x,x=0..2*Pi],coords=polar,numpoints=100,frames=100);
>