|
|
|
|
|
|
|
|
Kartesische Koordinaten:
Remove["Global`*"]
Needs["Calculus`VectorAnalysis`"]
SetCoordinates[Cartesian];
vecf={fx,fy,fz}
fx= ; (* Funktion eingeben *)
fy= ; (* Funktion eingeben *)
fz= ; (* Funktion eingeben *)
xu= ; (* untere Grenze von x *)
xo= ; (* obere Grenze von x *)
yu= ; (* untere Grenze von y *)
yo= ; (* obere Grenze von y *)
norm= ; (* Normalenvektor auf die Oberfläche *)
DotProduct[norm,Curl[vecf]]
Integrate[Integrate[%, {x,xu,xo}],{y,yu,yo}] //Simplify
Analoges gilt für sphärische Koordinaten.
