(* 18/10/2018, K. Byczuk,  materialy pomocnicze do wykladu Elektrodynamika IN *)

(*Pole bezwirowe*)
VectorPlot[{x,y},{x,-3,3},{y,-3,3}]
VectorPlot[{y,x},{x,-3,3},{y,-3,3}]

(*Pole wirowe*)
VectorPlot[{y,-x},{x,-3,3},{y,-3,3}]
VectorPlot[{-y,x},{x,-3,3},{y,-3,3}]

(*Wir Rankina*)
r[x_,y_]:=Sqrt[x^2+y^2];
f[x_,y_]:=If[r[x,y]≤1,1/(2 Pi),(1/r[x,y]^2)/(2 Pi)];
VectorPlot[{-y f[x,y],x f[x,y]},{x,-2,2},{y,-2,2}]