>

restart;

>	with(plots);

Warning, the name changecoords has been redefined

>	animate([cos(r)*cos(t),cos(r)*sin(t),t=0..2*Pi],r=0..2*Pi,frames=50);

>	p1:=plot([cos(t)^3,sin(t)^3,t=0..2*Pi],color=blue):

>	p2:=animate([cos(s)^2*cos(t),sin(s)^2*sin(t),t=0..2*Pi],s=0..2*Pi,frames=100):

>	display(p1,p2,axes=none);

>