12楼: Originally posted by Mr__Right at 2015-12-07 08:38:18
这个好. 图片可以美化.



代码调整:

Graphics3D[{Arrowheads,Arrow[Table~Tube~0.015]},Axes->False,Boxed->False]...

Show[Graphics3D[{Arrowheads[{0}~Join~Table[0.045,{i,1,20}]],Arrow[Table[{Cos[t],Sin[t],t/10},{t,0.1,10.5Pi,0.02}]~Tube~0.015]},Axes->False,Boxed->False],Graphics3D[{Map[{Apply[RGBColor,(*0.8{1,1,.5}+0.**)#*.9],Arrow[Tube[{{0.,0.,0.},#}]]}&,{{1,0,0},{0,1,0},{0,0,3.65}}],Sphere[{0,0,0},.045]},Axes->False,Boxed->False],ImageSize->700]