【mathematica画三维空间坐标系箭头】

先看图

代码(符号什么的都是英文状态下)

Graphics3D[{{Thick, Red, Arrowheads[.03], 
   Arrow[{{0, 0, 0}, {2, 0, 0}}]}, {Thick, Green, Arrowheads[.03], 
   Arrow[{{0, 0, 0}, {0, 2, 0}}]}, {Thick, Blue, Arrowheads[.03], 
   Arrow[{{0, 0, 0}, {0, 0, 2}}]}}, Axes -> False, Ticks -> False, 
 AxesOrigin -> {0, 0, 0}, AxesLabel -> CharacterRange["X", "Z"], 
 Boxed -> False]

阅读更多
想对作者说点什么?

博主推荐

换一批

没有更多推荐了,返回首页