> |
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]); |
> |