User:Tom Allen/ta/AddendumA00P01

For unification the gravitational field, the electromagnetic field, and the charge
distribution must be calculated from the tensor R.

Beginning with AddendumX06 the verbs in AddendumT02Z28 are replaced by those in
AddendumA00P01.

NB. ... script experimentalA00.txt ...

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

NB. ... script experimentalA00.txt ...

FREM012=:(<0 1 2){]
FREM120=:(<1 2 0){]
FREM201=:(<2 0 1){]

FREM013=:(<0 1 3){]
FREM130=:(<1 3 0){]
FREM301=:(<3 0 1){]

FREM023=:(<0 2 3){]
FREM230=:(<2 3 0){]
FREM302=:(<3 0 2){]

FREM123=:(<1 2 3){]
FREM231=:(<2 3 1){]
FREM312=:(<3 1 2){]


FREM102=:(<1 0 2){]
FREM021=:(<0 2 1){]
FREM210=:(<2 1 0){]

FREM103=:(<1 0 3){]
FREM031=:(<0 3 1){]
FREM310=:(<3 1 0){]

FREM203=:(<2 0 3){]
FREM032=:(<0 3 2){]
FREM320=:(<3 2 0){]

FREM213=:(<2 1 3){]
FREM132=:(<1 3 2){]
FREM321=:(<3 2 1){]

... electric field ...

NB. ... script experimentalA00.txt ...

FREEMcv0=:FREM201+FREM301+FREM302+FREM203
FREEMcv1=:FREM310+FREM021+FREM312+FREM023
FREEMcv2=:FREM130+FREM031+FREM032+FREM132

FREEMcv=:FREEMcv0,FREEMcv1,FREEMcv2

... magnetic field and energy flow ...

NB. ... script experimentalA00.txt ...

FRXEMcv0=:FREM012+FREM013
FRXEMcv1=:FREM120+FREM123
FRXEMcv2=:FREM230+FREM231

FRXEMcv=:FRXEMcv0,FRXEMcv1,FRXEMcv2

... magnetic field ...

NB. ... script experimentalA00.txt ...

FRHEMcv0=:(FREEMcv1*FRXEMcv2)+-@(FREEMcv2*FRXEMcv1)
FRHEMcv1=:(FREEMcv2*FRXEMcv0)+-@(FREEMcv0*FRXEMcv2)
FRHEMcv2=:(FREEMcv0*FRXEMcv1)+-@(FREEMcv1*FRXEMcv0)

FRHEMcv=:FRHEMcv0,FRHEMcv1,FRHEMcv2

... energy flow ...

NB. ... script experimentalA00.txt ...

FRPEMcv0=:(FREEMcv1*FRHEMcv2)+-@(FREEMcv2*FRHEMcv1)
FRPEMcv1=:(FREEMcv2*FRHEMcv0)+-@(FREEMcv0*FRHEMcv2)
FRPEMcv2=:(FREEMcv0*FRHEMcv1)+-@(FREEMcv1*FRHEMcv0)

FRPEMcv=:FRPEMcv0,FRPEMcv1,FRPEMcv2

... negative of magnetic field and energy flow used (N) ...

NB. ... script experimentalA00.txt ...

FRNXEMcv0=:FREM102+FREM103
FRNXEMcv1=:FREM210+FREM213
FRNXEMcv2=:FREM320+FREM321

FRNXEMcv=:FRNXEMcv0,FRNXEMcv1,FRNXEMcv2

... magnetic field (N) ...

NB. ... script experimentalA00.txt ...

FRNHEMcv0=:(FREEMcv1*FRNXEMcv2)+-@(FREEMcv2*FRNXEMcv1)
FRNHEMcv1=:(FREEMcv2*FRNXEMcv0)+-@(FREEMcv0*FRNXEMcv2)
FRNHEMcv2=:(FREEMcv0*FRNXEMcv1)+-@(FREEMcv1*FRNXEMcv0)

FRNHEMcv=:FRNHEMcv0,FRNHEMcv1,FRNHEMcv2

... energy flow (N) ...

NB. ... script experimentalA00.txt ...

FRNPEMcv0=:(FREEMcv1*FRNHEMcv2)+-@(FREEMcv2*FRNHEMcv1)
FRNPEMcv1=:(FREEMcv2*FRNHEMcv0)+-@(FREEMcv0*FRNHEMcv2)
FRNPEMcv2=:(FREEMcv0*FRNHEMcv1)+-@(FREEMcv1*FRNHEMcv0)

FRNPEMcv=:FRNPEMcv0,FRNPEMcv1,FRNPEMcv2

NB. ... script experimentalA00.txt ...

FREM011=:(<0 1 1){]
FREM022=:(<0 2 2){]
FREM033=:(<0 3 3){]

FREM100=:(<1 0 0){]
FREM122=:(<1 2 2){]
FREM133=:(<1 3 3){]

FREM200=:(<2 0 0){]
FREM211=:(<2 1 1){]
FREM233=:(<2 3 3){]

FREM300=:(<3 0 0){]
FREM311=:(<3 1 1){]
FREM322=:(<3 2 2){]


FREM010=:(<0 1 0){]
FREM020=:(<0 2 0){]
FREM030=:(<0 3 0){]

FREM101=:(<1 0 1){]
FREM121=:(<1 2 1){]
FREM131=:(<1 3 1){]

FREM202=:(<2 0 2){]
FREM212=:(<2 1 2){]
FREM232=:(<2 3 2){]

FREM303=:(<3 0 3){]
FREM313=:(<3 1 3){]
FREM323=:(<3 2 3){]

... charge ...

NB. ... script experimentalA00.txt ...

FRJEMcv0=:FREM011+FREM100+FREM200+FREM300
FRJEMcv1=:FREM022+FREM122+FREM211+FREM311
FRJEMcv2=:FREM033+FREM133+FREM233+FREM322

FRJEMcv=:FRJEMcv0,FRJEMcv1,FRJEMcv2

...

NB. ... script experimentalA00.txt ...

FRDJEMcv0=:FREM010+FREM101+FREM202+FREM303
FRDJEMcv1=:FREM020+FREM121+FREM212+FREM313
FRDJEMcv2=:FREM030+FREM131+FREM232+FREM323

FRDJEMcv=:FRDJEMcv0,FRDJEMcv1,FRDJEMcv2

---

Next Page: User:Tom Allen/ta/AddendumA00P02
Prev Page: User:Tom Allen/ta/AddendumA00P00

---