Rotation

Kartesische Koordinaten:

Remove["Global`*"]
Needs["Calculus`VectorAnalysis`"]
SetCoordinates[Cartesian]
vektorf[x_,y_,z_]:={fx[x,y,z],fy[x,y,z],fz[x,y,z]}
Curl[vektorf[x,y,z]]  (* Berechnung der Rotation *)

Sphärische Koordinaten:

Als Beispiel wird ein elektrisches Feld eines Dipols mit der Dipolstärke p betrachtet

Remove["Global`*"]
Needs["Calculus`VectorAnalysis`"]
SetCoordinates[Spherical]
pot=p Cos[theta]/(2 Pi eps r^2);  (* Potential *)
efeld[r_,theta_,phi_]= Grad[pot]  (* Berechnung des elektrischen Feldes *)
wirbel=Curl[efeld[r,theta,phi]]