>   

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

[Maple Plot]

>    with(plots):

>    animatecurve([1+cos(x),x,x=0..2*Pi],coords=polar,numpoints=100,frames=100);

[Maple Plot]