Coração Animado
Como curiosidade apresenta-se a seguir um método que permite, utilizando o software Maple, animar uma cardióide.A cardióide escolhida para ser animada tem equação r = 2 (1 - sin(t)).
with(plots):
> polarplot(2-2*sin(t),t=0..2*Pi,scaling=constrained);
![[Maple Plot]](coracaoanim1.gif)
> cardióideanimado:=seq(display([
polarplot(2-2*sin(t),t=0..r*2*Pi/40,scaling=constrained,thickness=5)]),
r=0..40):display(cardióideanimado,insequence=true,scaling=constrained);
![[Maple Plot]](coracaoanim2.gif)