星形线（Astroid）
星形线的一般方程是：
参数方程是：
星形线的图形：
with(plots):a:=1:
curve:=plot([a*cos(theta)^3,a*sin(theta)^3,theta=0..2*Pi],thickness=3):
display(curve,scaling=constrained,tickmarks=[0,0]);
参数方程的动画：
with(plots):
x:=t->cos(t)^3:y:=t->sin(t)^3:
K:=60:for i from 1 to K do ti:=i*2*Pi/K:
quxian[i]:=plot([x(t),y(t),t=0..ti],thickness=3):
zhixian[i]:=plot([[0,0],[x(ti),y(ti)]],color=blue,thickness=3) od:
quxian:=display(seq(quxian[i],i=1..K),insequence=true):
zhixian:=display(seq(zhixian[i],i=1..K),insequence=true):
display(quxian,zhixian,scaling=constrained,tickmarks=[5,3],view=[-1.2..1.2,-1.2..1.2]);
评论