>   

Graf a animácia asteroidy s parametrickými rovnicami              (krivka v polárnych súradniciach má rovnicu:  )

>    with(plots):

Warning, the name changecoords has been redefined

>    asteroida:= plot( [ (cos(t))*cos(t)*cos(t),(sin(t))*sin(t)*sin(t), t=0..2*Pi]):
a:= animate( pointplot, [ [(cos(t))*cos(t)*cos(t),(sin(t))*sin(t)*sin(t)],symbol=circle, symbolsize=20],
         t=0..2*Pi, frames=60, background=asteroida ):                                                

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

>    display([a,b]);

[Maple Plot]

>