#Load the plots and plottools librarieswith(plots): with(plottools):

Warning, the name changecoords has been redefined

Warning, the assigned name arrow now has a global binding

Satellite:=theta->point([cos(theta),sin(theta)]);

NiM+SSpTYXRlbGxpdGVHNiJmKjYjSSZ0aGV0YUdGJUYlNiRJKW9wZXJhdG9yR0YlSSZhcnJvd0dGJUYlLV9JKnBsb3R0b29sc0c2JEkqcHJvdGVjdGVkR0YwSShfc3lzbGliR0YlSSZwb2ludEdGLzYjNyQtSSRjb3NHRi82IzkkLUkkc2luR0YvRjdGJUYlRiU=

N:=100: Center:=point([0,0]): for i from 1 to N do t:=i*2*Pi/N: frame[i]:=display(Satellite(t),Center): od: display(seq(frame[i],i=1..N),insequence=true,scaling=constrained,axes=boxed);