User:Tom Allen/ta/AddendumT01E15

---

---

... see TensorExperiments/TensorExperiments24 (GTE2405D.jpg) ...

---

---

NB. ... script experimental.ijs ...

B2kt0=:   ((0 3 1|:])"4)@(Gamdc               )
B2kt1=:-@:((0 1 3|:])"4)@(Gamdc               )
B2kt2=:   ((0 2 1|:])"4)@(Gam([smx 0|:])"3 Gam)
B2kt3=:-@:((0 1 2|:])"4)@(Gam([smx 0|:])"3 Gam)

B2k=:B2kt0+B2kt1+B2kt2+B2kt3

NB. ... script experimental.ijs ...

B2kdct0=:   ((0 3 1 4|:])"5)@(Gamdcdc                        )
B2kdct1=:-@:((0 1 3 4|:])"5)@(Gamdcdc                        )
B2kdct2=:   ((0 2 1 4|:])"5)@(Gam  ((   [)smx 0|:])"3 4 Gamdc)
B2kdct3=:   ((0 3 1 2|:])"5)@(Gamdc((2|:[)smx 0|:])"4 3 Gam  )
B2kdct4=:-@:((0 1 2 4|:])"5)@(Gam  ((   [)smx 0|:])"3 4 Gamdc)
B2kdct5=:-@:((0 1 3 2|:])"5)@(Gamdc((2|:[)smx 0|:])"4 3 Gam  )

B2kdc=:B2kdct0+B2kdct1+B2kdct2+B2kdct3+B2kdct4+B2kdct5

---

---

... see TensorExperiments/TensorExperiments24 (GTE2406D.jpg) ...

---

---

NB. ... script experimental.ijs ...

B2kcvt0=:                                             B2kdc
B2kcvt1=:   ((      0|:])"5)@(Gam((0|:[)smx 0|:])"3 4 B2k  )
B2kcvt2=:-@:((0 3 4 1|:])"5)@(Gam((   [)smx 1|:])"3 4 B2k  )
B2kcvt3=:-@:((  0 4 1|:])"5)@(Gam((   [)smx 2|:])"3 4 B2k  )
B2kcvt4=:-@:((    0 1|:])"5)@(Gam((   [)smx    ])"3 4 B2k  )

B2kcv=:B2kcvt0+B2kcvt1+B2kcvt2+B2kcvt3+B2kcvt4

---

---

... see TensorExperiments/TensorExperiments24 (GTE2407D.jpg) ...

---

---

NB. ... script experimental.ijs ...

SBk=:(0 1 4|:])"5@(S smx"3 4 B2k)

---

Download: File:LTE1500C.txt
Download: File:LTE1502C.txt
Download: File:LTE1503C.txt
Download: File:LTE1505D.txt

---