Lístky a lístečky  

>

 a podobné

>	with(plots):

Warning, the name changecoords has been redefined

>	r:=2*cos(3*t);

>	plot([r,t,t=0..2*Pi],coords=polar);

>	a:=T->plot([r,t,t=0..T],coords=polar);

>	animate([2*cos(3*t*k),t*k,t=0..Pi],k=0..1,coords=polar,numpoints=100,frames=100);

>

>

>

>	r:=(cos(t))^2;

>	plot([r,t,t=0..2*Pi],coords=polar);

>	a:=T->plot([r,t,t=0..T],coords=polar);

>	animate([(cos(k*t))^2,t*k,t=0..2*Pi],k=0..1,coords=polar,numpoints=100,frames=100);

>

>	r:=(cos(2*t))^2;

>	plot([r,t,t=0..2*Pi],coords=polar);

>	a:=T->plot([r,t,t=0..T],coords=polar);

>	animate([(cos(2*k*t))^2,t*k,t=0..2*Pi],k=0..1,coords=polar,numpoints=100,scaling=constrained,frames=100);

>

>

>	r:=(cos(4*t))^2;

>	plot([r,t,t=0..2*Pi],coords=polar);

>	a:=T->plot([r,t,t=0..T],coords=polar);

>	animate([(cos(4*k*t))^2,t*k,t=0..2*Pi],k=0..1,coords=polar,numpoints=100,scaling=constrained,frames=100);

>

>	animate([sin(x*t),x,x=-4..4],t=1..4,coords=polar,numpoints=100,frames=100);

>

>

>