> |
Graf a animácia srdcovky s parametrickými rovnicami (krivka v polárnych súradniciach má rovnicu: )
> | with(plots): |
> | srdce:= plot( [ (1+cos(t))*cos(t),(1+cos(t))*sin(t), t=0..2*Pi]): animate( pointplot, [ [(1+cos(t))*cos(t),(1+cos(t))*sin(t)],symbol=circle, symbolsize=20], t=0..2*Pi, frames=60, background=srdce ); |
> | with(plots): |
> | animatecurve([1+cos(x),x,x=0..2*Pi],coords=polar,numpoints=100,frames=100); |