7楼: Originally posted by wurongjun at 2015-12-05 09:55:39
这个是用Matlab画的!

tp.jpg

8楼: Originally posted by somebodykiss at 2015-12-05 17:29:25
x = r Cos
y = r Sin
z = a

p3d = Graphics3D[{
   Arrowheads,
   Hue,
   Arrow}, Axes -> True, AxesLabel -> {"x", "y", "z"}]

Export


Mathematica代码 ...

Graphics3D[{Arrowheads[{0}~Join~Table[0.045,{i,1,20}]],Arrow[Table[{Cos[t],Sin[t],t/10},{t,0,10.5Pi,0.02}]~Tube~0.015]},Axes->False,Boxed->False]

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]