R-Radius of The Large Circle R-Radius of The Small Circle N-Number of Frames of Animation
R-Radius of The Large Circle R-Radius of The Small Circle N-Number of Frames of Animation
R-Radius of The Large Circle R-Radius of The Small Circle N-Number of Frames of Animation
sm
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):
plots[display]([seq(E[k],k=1..N)],insequence=true,scaling=constrained,
view=[-R-1..R+1,-R-1..R+1]);
start time 0
0
time 0 start 15.188 с