背景
某些情况下(如在三维绘图),需要绘制系统坐标系。
首先来看一下三维迪卡尔坐标系的组成:坐标原点(0,0,0)
,带箭头的坐标轴,坐标轴标签。因此在绘制坐标系时,需要绘制这些元素。
Mathematica实现
coordinateSystem3D = {
{RGBColor[{1, 0, 0}], Arrowheads[0.05], Arrow[Tube[{
{0, 0, 0}, {1, 0, 0}}, 0.01]],
Text[Style["X", FontSize -> 16,
FontFamily -> "Arial Baltic"], {1.1, 0, 0}]},
{RGBColor[{0, 1, 0}], Arrowheads[0.05], Arrow[Tube[{
{0, 0, 0}, {0, 1, 0}}, 0.01]],
Text[Style["Y", FontSize -> 16,
FontFamily -> "Arial Baltic"], {0, 1.1, 0}]},
{RGBColor[{0, 0, 1}], Arrowheads[0.05], Arrow[Tube[{
{0, 0, 0}, {0, 0, 1}}, 0.01]],
Text[Style["Z", FontSize -> 16,
FontFamily -> "Arial Baltic"], {0, 0, 1.1}]}};