动画的Maple程序:
with(plots): with(plottools):
a:=1:b:=1.5:k:=60:
K:=720:
for i from 1 to K do
ti:=i*2*Pi/K:
shizhen[i]:=plot([[0,0],[a*cos(-ti+Pi/2),a*sin(-ti+Pi/2)]],color=blue,thickness=3):
fenzhen[i]:=plot([[0,0],[b*cos(-k*ti+Pi/2),b*sin(-k*ti+Pi/2)]],color=black,thickness=3) od:
shizhen:=display(seq(shizhen[i],i=1..K),insequence=true):
fenzhen:=display(seq(fenzhen[i],i=1..K),insequence=true):
yuan:=circle([0,0],1.6,color=red,thickness=3):
display(yuan,shizhen,fenzhen,scaling=constrained,tickmarks=[0,0]);
评论