一个三维的带箭头螺旋线

最新推荐文章于 2024-04-27 13:14:05 发布

lcfactorization

最新推荐文章于 2024-04-27 13:14:05 发布

阅读量3.6k

点赞数 1

分类专栏：高等数学软件使用文章标签： mathematica 三维立体几何 3d 软件

本文链接：https://blog.csdn.net/lcfactorization/article/details/50202177

版权

高等数学同时被 2 个专栏收录

34 篇文章 2 订阅

订阅专栏

软件使用

28 篇文章 0 订阅

订阅专栏

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]