一个三维的带箭头螺旋线

Show[Graphics3D[{Arrowheads[{0}~Join~Table[0.045, {i, 1, 20}]], 
   Arrow[Table[{Cos[t], Sin[t], t/10}, {t, 0.1, 10.5 Pi, 0.02}]~Tube~
     0.015]}, Axes -> False, Boxed -> False], 
 Graphics3D[
  Map[{Apply[RGBColor, #], Arrow[Tube[{{0, 0, 0}, #}]]} &, {{1, 0, 
     0}, {0, 1, 0}, {0, 0, 3.5}}], Axes -> True, 
  AxesOrigin -> {0, 0, 0}, Boxed -> False], ImageSize -> 700]