Векторный график 2d-функций в математике

Я пытаюсь построить 1 / r (r-шляпа), используя VectorPlot в Mathematica, разбивая r-шляпу на x-шляпу и y-шляпу.

Я использую:

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

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

а затем построить график вышеуказанной функции в плоскости x, y.

Но для x<0 и y<0 векторы не имеют правильного знака, потому что единичные векторы имеют разные знаки в каждом из квадрантов. Я безуспешно пытался определить кусочную функцию, чтобы обойти это.


plot vector 2d wolfram-mathematica mathematica-8
person user1945474    schedule 03.01.2013    source источник
comment
Вы должны показать, что вы на самом деле замышляете. В любом случае может оказаться полезным использовать форму ArcTan с двумя аргументами: ArcTan[x,y] дает угол в правильном квадранте.   -  person agentp    schedule 03.01.2013

Ответы (1)


arrow_upward
2
arrow_downward 

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]

Графика Mathematica

person Dr. belisarius    schedule 04.01.2013