Přívěšky  

>	with(plots):

Warning, the name changecoords has been redefined

>

>	r1:=4-4*sin(t);

>	r2:=3-4*sin(t);

>	r3:=2-4*sin(t);

>	p1:=plot([r1,t,t=0..2*Pi],coords=polar,color=blue):

>	p2:=plot([r2,t,t=0..2*Pi],coords=polar):

>	p3:=plot([r3,t,t=0..2*Pi],coords=polar,color=green):

>	display([p1,p2,p3]);

>	animate( [(4-a)-4*sin(t),t,t=0..2*Pi], a=0..8,coords=polar,frames=60,numpoints=100);

>	animate( [(5-a)-4*sin(t),t,t=0..2*Pi], a=0..10,coords=polar,frames=60,numpoints=100);

>

>