SHARE
TWEET

Untitled

a guest Jun 25th, 2019 55 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. r[x_, y_] := Sqrt[x^2 + y^2];
  2. R2[x_, y_] := r[x, y]^2 + 1 + 2/r[x, y];
  3. phidot[x_, y_] := If[r[x, y] >= 2, 2/((r[x, y])^3 + r[x, y] + 2), 0];
  4. vx[x_, y_] := -y phidot[x, y];
  5. vy[x_, y_] := x phidot[x, y];
  6. VectorPlot[{vx[x, y], vy[x, y]}, {x, -2 [Pi], 2 [Pi]}, {y, -2 [Pi],
  7. 2 [Pi]}]
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top