例 4.3.1 作出以下极坐标曲线的动画。
解 输入以下命令:
with(plots): a:=1: b:=3: r:=a* sin(b* t):
K:=30: for i from 1 to K do ti:=i* 2*Pi/K:
quxian[i]:=polarplot(r(t), t=0…ti) od:
L:=display(seq(quxian[i],i=1…K), insequence=true):
display(L,L,scaling=constrained,tickmarks=[0,0],
thickness=3);
得到动画(三叶玫瑰线):
输入以下命令:
with(plots): a:=1: b:=3: r:=a* sin(b* t):
K:=30: for i from 1 to K do ti:=i*Pi/K:
quxian[i]:=polarplot(r(t), t=0…ti) od:
L:=display(seq(quxian[i],i=1…K), insequence=true):
display(L,scaling=constrained,tickmarks=[0,0],
thickness=3);
输出各帧图像:
例 4.3.2 作出以下极坐标曲线的动画。