vector - Mathematica 中二维函数的矢量图

Question

我试图通过将 r-hat 分解为 x-hat 和 y-hat 在 Mathematica 中使用 VectorPlot 绘制 1/r (r-hat)。

我在用：

[Chi][x_, y_] := Sqrt[x^2 + y^2]

[Phi][x_, y_] := ArcTan[y/x]

然后在 x,y 平面上绘制上述函数。

但是，对于x<0和y<0，向量没有正确的符号，因为单位向量在每个象限中具有不同的符号。我尝试定义一个分段函数来解决这个问题，但没有成功。

Answer 1

VectorPlot[ 1/Sqrt[x x + y y] {Cos[ArcTan[x, y]], Sin[ArcTan[x, y]]}, 
          {x, -2, 2},  {y, -2, 2},
          RegionFunction -> Function[{x, y, vx, vy, n}, Sqrt[x x + y y] > 1/3], 
          VectorPoints -> 10]