使用Mathematica在3D中绘制矢量和平面

Question

我正在尝试使用Mathematica软件，并在平面上播放一些矢量投影。

我达到了这一点：

我知道......看起来并不那么令人印象深刻，并且想要求帮助修改红色箭头的斜角，改变平面的颜色，获得看起来更像阴影的投影向量，以及标记情节上的矢量。或者其中一些......

这是我到目前为止使用的代码：

Show[{Plot3D[{z = 0}, {x, 0, .75}, {y, 0, .75}, 
   AxesLabel -> {x, y, z}, Mesh -> None, Boxed -> False, 
   Axes -> False],
  Graphics3D[{Red, Arrowheads[0.05], 
    Arrow[Tube[{{0.25, 0.25, 0}, {0.5, 0.5, 1}}]], Brown, 
    Arrowheads[0.05], Arrow[Tube[{{0.25, 0.25, 0}, {0.5, 0.5, 0}}]]}]}]