User:Tom Allen/TensorExperimentsR13

---

NOTE: This page is for verbs copied from elsewhere.

---

... verbs from TensorExperimentsZ05 ...
... for the divergence of space and time ...

NB. ... script experimentalZ.ijs ...

E3=:+/"1@((<0 3)|:])"5@R

E1cv=:+/"1@((<0 1)|:])"3@(mcn([smx 0|:])"2 3 E3)

E1cn=:mcn smx"2 1 E1cv

... verbs from TensorExperimentsZ28 ...
... for the electric field, magnetic field, Poynting vector and charge distribution ...
... (these verbs have also been copied previously for the ADDENDUM in TensorExperimentsB13) ...

NB. ... script experimentalZ.ijs ...

NB. ... these verbs are valid only in Cartesian coordinates ...

FEMcvcv    =:+/"1@((<0 1)|:])"4@B2k
FEMcvcvdn  =:+/"1@((<0 1)|:])"5@B2kdc
FEMcvcvdndn=:+/"1@((<0 1)|:])"6@B2kdcdc

NB. ... script experimentalZ.ijs ...

NB. ... these verbs are valid only in Cartesian coordinates ...

NB. ... electric and magnetic fields ...

FEMcvcv01=:((<0 1){])"2@FEMcvcv
FEMcvcv02=:((<0 2){])"2@FEMcvcv
FEMcvcv03=:((<0 3){])"2@FEMcvcv
FEMcvcv10=:((<1 0){])"2@FEMcvcv
FEMcvcv12=:((<1 2){])"2@FEMcvcv
FEMcvcv13=:((<1 3){])"2@FEMcvcv
FEMcvcv20=:((<2 0){])"2@FEMcvcv
FEMcvcv21=:((<2 1){])"2@FEMcvcv
FEMcvcv23=:((<2 3){])"2@FEMcvcv
FEMcvcv30=:((<3 0){])"2@FEMcvcv
FEMcvcv31=:((<3 1){])"2@FEMcvcv
FEMcvcv32=:((<3 2){])"2@FEMcvcv

NB. ... used for Maxwell's equation (2) ...

FEMcvcvdn231=:((<2 3 1){])"3@FEMcvcvdn
FEMcvcvdn312=:((<3 1 2){])"3@FEMcvcvdn
FEMcvcvdn123=:((<1 2 3){])"3@FEMcvcvdn

FEMcvcvdn302=:((<3 0 2){])"3@FEMcvcvdn
FEMcvcvdn023=:((<0 2 3){])"3@FEMcvcvdn
FEMcvcvdn230=:((<2 3 0){])"3@FEMcvcvdn

FEMcvcvdn013=:((<0 1 3){])"3@FEMcvcvdn
FEMcvcvdn130=:((<1 3 0){])"3@FEMcvcvdn
FEMcvcvdn301=:((<3 0 1){])"3@FEMcvcvdn

FEMcvcvdn120=:((<1 2 0){])"3@FEMcvcvdn
FEMcvcvdn201=:((<2 0 1){])"3@FEMcvcvdn
FEMcvcvdn012=:((<0 1 2){])"3@FEMcvcvdn

NB. ... used for Maxwell's equation (1) ...

FEMcvcvdn011=:((<0 1 1){])"3@FEMcvcvdn
FEMcvcvdn022=:((<0 2 2){])"3@FEMcvcvdn
FEMcvcvdn033=:((<0 3 3){])"3@FEMcvcvdn

FEMcvcvdn100=:((<1 0 0){])"3@FEMcvcvdn
FEMcvcvdn122=:((<1 2 2){])"3@FEMcvcvdn
FEMcvcvdn133=:((<1 3 3){])"3@FEMcvcvdn

FEMcvcvdn200=:((<2 0 0){])"3@FEMcvcvdn
FEMcvcvdn211=:((<2 1 1){])"3@FEMcvcvdn
FEMcvcvdn233=:((<2 3 3){])"3@FEMcvcvdn

FEMcvcvdn300=:((<3 0 0){])"3@FEMcvcvdn
FEMcvcvdn311=:((<3 1 1){])"3@FEMcvcvdn
FEMcvcvdn322=:((<3 2 2){])"3@FEMcvcvdn

NB. ... script experimentalZ.ijs ...

NB. ... these verbs are valid only in Cartesian coordinates ...

EEMcn0=:FEMcvcv30
EEMcn1=:FEMcvcv31
EEMcn2=:FEMcvcv32

EEMcn=:(0|:])@(EEMcn0,EEMcn1,:EEMcn2)

HEMcn0=:FEMcvcv12
HEMcn1=:FEMcvcv20
HEMcn2=:FEMcvcv01

HEMcn=:(0|:])@(HEMcn0,HEMcn1,:HEMcn2)

NB. ... script experimentalZ.ijs ...

NB. ... these verbs are valid only in Cartesian coordinates ...

PEMcn0=:(EEMcn1*HEMcn2)+-@(EEMcn2*HEMcn1)
PEMcn1=:(EEMcn2*HEMcn0)+-@(EEMcn0*HEMcn2)
PEMcn2=:(EEMcn0*HEMcn1)+-@(EEMcn1*HEMcn0)

PEMcn=:(0|:])@(PEMcn0,PEMcn1,:PEMcn2)

NB. ... script experimentalZ.ijs ...

NB. ... these verbs are valid only in Cartesian coordinates ...

JEMcn  =:+/"1@((<1 2)|:])"3@FEMcvcvdn
JEMcndn=:+/"1@((<1 2)|:])"4@FEMcvcvdndn