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

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){]

FRpEEMcv0=:FREM201+FREM301
FRpEEMcv1=:FREM310+FREM021
FRpEEMcv2=:FREM130+FREM031

FRqEEMcv0=:FREM302+FREM203
FRqEEMcv1=:FREM312+FREM023
FRqEEMcv2=:FREM032+FREM132

FREEMcv0=:FRpEEMcv0+FRqEEMcv0
FREEMcv1=:FRpEEMcv1+FRqEEMcv1
FREEMcv2=:FRpEEMcv2+FRqEEMcv2

FREEMcv=:FREEMcv0,FREEMcv1,FREEMcv2


FRHEMcv0=:(FRpEEMcv1*FRqEEMcv2)+-@(FRpEEMcv2*FRqEEMcv1)
FRHEMcv1=:(FRpEEMcv2*FRqEEMcv0)+-@(FRpEEMcv0*FRqEEMcv2)
FRHEMcv2=:(FRpEEMcv0*FRqEEMcv1)+-@(FRpEEMcv1*FRqEEMcv0)

FRHEMcv=:FRHEMcv0,FRHEMcv1,FRHEMcv2

... orthogonal with (+/-)12 numbers (12 groups of 3) ...

 [(pcv0+qcv0)]

=[(201+301)+(302+203)]

 [(pcv1+qcv1)]

=[(310+021)+(312+023)]

 [(pcv2+qcv2)]

=[(130+031)+(032+132)]


 [(pcv1*qcv2)-(pcv2*qcv1)]

=[{(310+021)*(032+132)}-{(130+031)*(312+023)}]

 [(pcv2*qcv0)-(pcv0*qcv2)]

=[{(130+031)*(302+203)}-{(201+301)*(032+132)}]

 [(pcv0*qcv1)-(pcv1*qcv0)]

=[{(201+301)*(312+023)}-{(310+021)*(302+203)}]


 [(pcv0+qcv0)]*[(pcv1*qcv2)-(pcv2*qcv1)]
+[(pcv1+qcv1)]*[(pcv2*qcv0)-(pcv0*qcv2)]
+[(pcv2+qcv2)]*[(pcv0*qcv1)-(pcv1*qcv0)]

= [(201+301)+(302+203)]*[{(310+021)*(032+132)}-{(130+031)*(312+023)}]
 +[(310+021)+(312+023)]*[{(130+031)*(302+203)}-{(201+301)*(032+132)}]
 +[(130+031)+(032+132)]*[{(201+301)*(312+023)}-{(310+021)*(302+203)}]

= [(201+301)*(310+021)*(032+132)]-[(201+301)*(130+031)*(312+023)]
 +[(302+203)*(310+021)*(032+132)]-[(302+203)*(130+031)*(312+023)]

 +[(310+021)*(130+031)*(302+203)]-[(310+021)*(201+301)*(032+132)]
 +[(312+023)*(130+031)*(302+203)]-[(312+023)*(201+301)*(032+132)]

 +[(130+031)*(201+301)*(312+023)]-[(130+031)*(310+021)*(302+203)]
 +[(032+132)*(201+301)*(312+023)]-[(032+132)*(310+021)*(302+203)]

= 0

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){]

---

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

---