例 4.2.1 作出椭圆 x=3cost, y=2sint 的动画。
解 输入以下命令:
with(plots):
x:=3* cos(t):y:=2* sin(t):
a:=0: b:=2* Pi: K:=30:
for i from 1 to K do ti:=a+i*(b-a)/K:
M[i]:=plot([x(t), y(t), t=a…ti], thickness=2) od:
display(seq(M[i], i=1…K), insequence=true,
tickmarks=[4,4], scaling=constrained);
输出动画:
例 4.2.2 作下列旋轮线的动画。
解 输入以下命令:
with(plots):R:=1:
x:=R*(t-sin(t)): y:=R*(1-cos(t)):
a:=0: b: