使用Mathematica绘制向量

问题&＃xff1a;

计算出答案后&＃xff0c;如何验证答案的正确性&＃xff1f;可通过Mathematica绘图确认。

代码如下&＃xff1a;

Graphics3D[{Blue, Arrow[{{0, 0, 0}, {1, 0, 0}}], Arrow[{{0, 0, 0}, {0, 2, 0}}], Arrow[{{0, 0, 0}, {0, 0, 3}}], Red, Arrow[{{0, 0, 0}, {1, 2, 3}}]}, Axes -> True, AxesLabel -> {x, y, z}]

图中红色的向量即为三个向量之和。

遗留问题&＃xff1a;

如何在图中标注向量夹角及模&＃xff1f;