User:Tom Allen/ta/AddendumT01E14

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

Ups      =:(]+-@(      0|:]))"2@Ocvcv
Upsdc    =:(]+-@(    0 2|:]))"3@Ocvcvdc
Upsdcdc  =:(]+-@(  0 2 3|:]))"4@Ocvcvdcdc
Upsdcdcdc=:(]+-@(0 2 3 4|:]))"5@Ocvcvdcdcdc

---

---

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

---

---

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

S=:Ups*/"2 1 Ocn


Sdct0=:(   ])"4@(Ups  (*/)"2 2 Ocndc)
Sdct1=:(2|:])"4@(Upsdc(*/)"3 1 Ocn  )

Sdc=:Sdct0+Sdct1


Sdcdct0=:(     ])"5@(Ups    */"2 3 Ocndcdc)
Sdcdct1=:(  2|:])"5@(Upsdc  */"3 2 Ocndc  )
Sdcdct2=:(2 4|:])"5@(Upsdc  */"3 2 Ocndc  )
Sdcdct3=:(2 3|:])"5@(Upsdcdc*/"4 1 Ocn    )

Sdcdc=:Sdcdct0+Sdcdct1+Sdcdct2+Sdcdct3


Sdcdcdct0=:(       ])"6@(Ups      */"2 4 Ocndcdcdc)
Sdcdcdct1=:(    2|:])"6@(Upsdc    */"3 3 Ocndcdc  )
Sdcdcdct2=:(  2 5|:])"6@(Upsdc    */"3 3 Ocndcdc  )
Sdcdcdct3=:(  2 3|:])"6@(Upsdcdc  */"4 2 Ocndc    )
Sdcdcdct4=:(2 4 5|:])"6@(Upsdc    */"3 3 Ocndcdc  )
Sdcdcdct5=:(2 5 3|:])"6@(Upsdcdc  */"4 2 Ocndc    )
Sdcdcdct6=:(2 3 5|:])"6@(Upsdcdc  */"4 2 Ocndc    )
Sdcdcdct7=:(2 3 4|:])"6@(Upsdcdcdc*/"5 1 Ocn      )

Sdcdcdc=:Sdcdcdct0+Sdcdcdct1+Sdcdcdct2+Sdcdcdct3+Sdcdcdct4+Sdcdcdct5+Sdcdcdct6+Sdcdcdct7

---

---

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

---

---

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

Gam      =:ch2k      +0.5*S
Gamdc    =:ch2kdc    +0.5*Sdc
Gamdcdc  =:ch2kdcdc  +0.5*Sdcdc
Gamdcdcdc=:ch2kdcdcdc+0.5*Sdcdcdc

---

Download: File:LTE1400D.txt
Download: File:LTE1402C.txt
Download: File:LTE1404C.txt

---