div rot bzw. div grad

Kartesische Koordinaten:

restart:
with(linalg):
f:=     : #(* Funktion eingeben *)

d:=diverge(grad(f,[x,y,z]),[x,y,z]);
fx:=    :# (* Funktion eingeben *)
fy:=    :# (* Funktion eingeben *)
fz:=    :# (* Funktion eingeben *)
v:=([fx,fy,fz]);
r:=diverge(curl(v,[x,y,z]),[x,y,z]);