BusyCircleA10.mws

BusyCircleA10.mws

>    restart;

>    with(plots, animate);

[animate]

>    #Parametric plots

>    x := t -> 5*cos(t) - cos(5*t);

x := t -> 5*cos(t)-cos(5*t)

>    y := t -> 5*sin(t) - sin(5*t);

y := t -> 5*sin(t)-sin(5*t)

>    plot(y, colour=BLUE);

[Maple Plot]

>    plot([x, y, 0..2*Pi]);

[Maple Plot]

>    animate(plot, [[x, y, 0..T]], T=0..2*Pi);

[Maple Plot]

>   

>   

>