hdmaple.mws

Vektorpotential des Hertzschen Dipols

>    A:=VectorField( <0,0,-I*k*exp(I*k*R)/R>, 'cylindrical'[r,theta,z] );

A := Vector(%id = 13291800)

Zugehöriges B-Feld

>    B:=Curl(A);

B := Vector(%id = 13727624)

in kartesischen Koordinaten

>    MapToBasis(B,cartesian[x,y,z]);

Vector(%id = 13727984)
Vector(%id = 13727984)

>   

E-Feld

>    E:=I/k*Curl(B);

E := Vector(%id = 12228656)
E := Vector(%id = 12228656)
E := Vector(%id = 12228656)
E := Vector(%id = 12228656)

>    simplify(%);

Vector(%id = 10843444)
Vector(%id = 10843444)

komma@oe.uni-tuebingen.de