:

## Example of animation

Maple

At first I wanted to post this message as a response to a question

But for some reason the message is not loaded.

Look at the example of animation of astroid. First you need to create animation frames as separate graphical structure (in my example - it is E[k] ). And only then by  plots [display] command with the option insequence=true these structures are sequentially displayed on the screen, and when Maple displays the following structure, the previous structure is erased.

R:=4: r:=1: N:=180: # R-radius of the large circle, r-radius of the small circle, N-number of frames of animation

A:=plot([R*cos(t),R*sin(t),t=0..2*Pi],color=blue,thickness=2):

B:=seq(plottools[disk]([(R-r)*cos(2*Pi*k/N),(R-r)*sin(2*Pi*k/N)],r,color=yellow),k=1..N):

C:=seq(plottools[disk]([(R-r)*cos(2*Pi*k/N)+r*cos(2*Pi*k/N-R*2*Pi*k/r/N),(R-r)*sin(2*Pi*k/N)+r*sin(2*Pi*k/N-R*2*Pi*k/r/N)],r/15,color=red),k=1..N):

F:=seq(plot([(R-r)*cos(t)+r*cos(t-R*t/r),(R-r)*sin(t)+r*sin(t-R*t/r),t=0..2*Pi*k/N],x=-R..R,y=-R..R,color=red,thickness=2),k=1..N):

for k from 1 to N do

E[k]:=plots[display](A,C[k],B[k],F[k]);

end do:

plots[display]([seq(E[k],k=1..N)],insequence=true,scaling=constrained,view=[-R-1..R+1,-R-1..R+1]);

﻿