Gradient

Anstelle der Funktion müssen Sie Ihre spezielle Funktion einsetzen.

Kartesische Koordinaten

Remove["Global`*"]
Clear[u]
Needs["Calculus`VectorAnalysis`"]
SetCoordinates[Cartesian]
u[x_,y_,z_]:=g[x,y,z]
Grad[u[x,y,z]]

Spärisches Koordinatensystem:

Clear[u]
Needs["Calculus`VectorAnalysis`"]
SetCoordinates[Spherical]
u[r_,theta_,phi_]:=g[r,theta,phi]
Grad[u[r,theta,phi]]