Kartesische Koordinaten:
restart: with(linalg): 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 *) v:=([fx,fy,fz]): n:= :`(* Normale auf die Integrationsfläche *)`: dotprod(n,curl(v,[x,y,z])); int(int(",x=xu..xo),y=yu..yo);