【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]