有興趣可以看一下!
等角螺線及其他
equiangular[ntemp_Integer,ttemp_]:=
Block[{n=ntemp,t=ttemp,myarrow,mypoint},
myarrow={Exp[-#(2Pi/n)-Pi*(t-0.005)+#(2Pi/n)]*{Cos[-#(2Pi/n)-Pi*(t-0.005)],Sin[-#(2Pi/n)-Pi*(t-0.005)]},
Exp[-#(2Pi/n)-Pi*t+#(2Pi/n)]*{Cos[-#(2Pi/n)-Pi*t],Sin[-#(2Pi/n)-Pi*t]}}&/@Range[0,n-1];
mypoint=Flatten[{Exp[-#(2Pi/n)-Pi*t+#(2Pi/n)]*{Cos[-#(2Pi/n)-Pi*t],Sin[-#(2Pi/n)-Pi*t]}}&/@Range[0,n-1],1];
Show[Graphics[{Red,PointSize[0.02],Arrow[#]&/@myarrow},
PlotRange->{{-3/2,3/2},{-3/2,3/2}}],
Graphics[Line/@Partition[mypoint,2,1,1]],PolarPlot[{Exp[x+#(2Pi/n)]},{x,-#(2Pi/n),-#(2Pi/n)-
Pi*t}]&/@Range[0,n-1],Frame->True]]
Manipulate[equiangular[5,t],{t,0.001,3}]
讀者回應 ( 0 意見 )
訂閱發佈留言 (Atom)
發佈留言
Please leave your name and tell me what you thought about this site. Comments, suggestions and views are welcomed.
如果這篇文章對你有幫助，那請留個訊息給我～