User:Tom Allen/ta/AddendumT01E13
< User:Tom Allen | ta
Jump to navigation
Jump to search
... see TensorExperiments/TensorExperiments24 (GTE2400C.jpg) ...
NB. ... script experimental.ijs ... Ocv=:mcv smx"2 1 Ocn Ocvdct0=:mcv (( [)smx 0|:])"2 2 Ocndc Ocvdct1=:mcvdc((1|:[)smx ])"3 1 Ocn Ocvdc=:Ocvdct0+Ocvdct1 Ocvdcdct0=:( ])"3@(mcv (( [)smx 0|:])"2 3 Ocndcdc) Ocvdcdct1=:(1|:])"3@(mcvdc ((1|:[)smx 0|:])"3 2 Ocndc ) Ocvdcdct2=:( ])"3@(mcvdc ((1|:[)smx 0|:])"3 2 Ocndc ) Ocvdcdct3=:( ])"3@(mcvdcdc((1|:[)smx ])"4 1 Ocn ) Ocvdcdc=:Ocvdcdct0+Ocvdcdct1+Ocvdcdct2+Ocvdcdct3 Ocvdcdcdct00=:( ])"4@(mcv (( [)smx 0|:])"2 4 Ocndcdcdc) Ocvdcdcdct01=:( 1|:])"4@(mcvdc ((1|:[)smx 0|:])"3 3 Ocndcdc ) Ocvdcdcdct10=:(1 3|:])"4@(mcvdc ((1|:[)smx 0|:])"3 3 Ocndcdc ) Ocvdcdcdct11=:(1 2|:])"4@(mcvdcdc ((1|:[)smx 0|:])"4 2 Ocndc ) Ocvdcdcdct20=:( ])"4@(mcvdc ((1|:[)smx 0|:])"3 3 Ocndcdc ) Ocvdcdcdct21=:( 2|:])"4@(mcvdcdc ((1|:[)smx 0|:])"4 2 Ocndc ) Ocvdcdcdct30=:( ])"4@(mcvdcdc ((1|:[)smx 0|:])"4 2 Ocndc ) Ocvdcdcdct31=:( ])"4@(mcvdcdcdc((1|:[)smx ])"5 1 Ocn ) Ocvdcdcdct0=:Ocvdcdcdct00+Ocvdcdcdct01 Ocvdcdcdct1=:Ocvdcdcdct10+Ocvdcdcdct11 Ocvdcdcdct2=:Ocvdcdcdct20+Ocvdcdcdct21 Ocvdcdcdct3=:Ocvdcdcdct30+Ocvdcdcdct31 Ocvdcdcdc=:Ocvdcdcdct0+Ocvdcdcdct1+Ocvdcdcdct2+Ocvdcdcdct3 Ocvdcdcdcdct00=:( ])"5@(mcv (( [)smx 0|:])"2 5 Ocndcdcdcdc) Ocvdcdcdcdct01=:( 1|:])"5@(mcvdc ((1|:[)smx 0|:])"3 4 Ocndcdcdc ) Ocvdcdcdcdct02=:( 1 4|:])"5@(mcvdc ((1|:[)smx 0|:])"3 4 Ocndcdcdc ) Ocvdcdcdcdct03=:( 1 2|:])"5@(mcvdcdc ((1|:[)smx 0|:])"4 3 Ocndcdc ) Ocvdcdcdcdct10=:(1 3 4|:])"5@(mcvdc ((1|:[)smx 0|:])"3 4 Ocndcdcdc ) Ocvdcdcdcdct11=:(1 4 2|:])"5@(mcvdcdc ((1|:[)smx 0|:])"4 3 Ocndcdc ) Ocvdcdcdcdct12=:(1 2 4|:])"5@(mcvdcdc ((1|:[)smx 0|:])"4 3 Ocndcdc ) Ocvdcdcdcdct13=:(1 2 3|:])"5@(mcvdcdcdc ((1|:[)smx 0|:])"5 2 Ocndc ) Ocvdcdcdcdct20=:( ])"5@(mcvdc ((1|:[)smx 0|:])"3 4 Ocndcdcdc ) Ocvdcdcdcdct21=:( 2|:])"5@(mcvdcdc ((1|:[)smx 0|:])"4 3 Ocndcdc ) Ocvdcdcdcdct22=:( 2 4|:])"5@(mcvdcdc ((1|:[)smx 0|:])"4 3 Ocndcdc ) Ocvdcdcdcdct23=:( 2 3|:])"5@(mcvdcdcdc ((1|:[)smx 0|:])"5 2 Ocndc ) Ocvdcdcdcdct30=:( ])"5@(mcvdcdc ((1|:[)smx 0|:])"4 3 Ocndcdc ) Ocvdcdcdcdct31=:( 3|:])"5@(mcvdcdcdc ((1|:[)smx 0|:])"5 2 Ocndc ) Ocvdcdcdcdct32=:( ])"5@(mcvdcdcdc ((1|:[)smx 0|:])"5 2 Ocndc ) Ocvdcdcdcdct33=:( ])"5@(mcvdcdcdcdc((1|:[)smx ])"6 1 Ocn ) Ocvdcdcdcdct0=:Ocvdcdcdcdct00+Ocvdcdcdcdct01+Ocvdcdcdcdct02+Ocvdcdcdcdct03 Ocvdcdcdcdct1=:Ocvdcdcdcdct10+Ocvdcdcdcdct11+Ocvdcdcdcdct12+Ocvdcdcdcdct13 Ocvdcdcdcdct2=:Ocvdcdcdcdct20+Ocvdcdcdcdct21+Ocvdcdcdcdct22+Ocvdcdcdcdct23 Ocvdcdcdcdct3=:Ocvdcdcdcdct30+Ocvdcdcdcdct31+Ocvdcdcdcdct32+Ocvdcdcdcdct33 Ocvdcdcdcdc=:Ocvdcdcdcdct0+Ocvdcdcdcdct1+Ocvdcdcdcdct2+Ocvdcdcdcdct3
NB. ... script experimental.ijs ... Ocvcv=:Ocvdc+-@(ch2k smx"3 1 Ocv) Ocvcvdct0=: Ocvdcdc Ocvcvdct1=:-@(ch2k (( [)smx 0|:])"3 2 Ocvdc ) Ocvcvdct2=:-@(ch2kdc((2|:[)smx ])"4 1 Ocv ) Ocvcvdc=:Ocvcvdct0+Ocvcvdct1+Ocvcvdct2 Ocvcvdcdct0=: Ocvdcdcdc Ocvcvdcdct1=:-@:(( ])"4)@(ch2k (( [)smx 0|:])"3 3 Ocvdcdc ) Ocvcvdcdct2=:-@:((2|:])"4)@(ch2kdc ((2|:[)smx 0|:])"4 2 Ocvdc ) Ocvcvdcdct3=:-@:(( ])"4)@(ch2kdc ((2|:[)smx 0|:])"4 2 Ocvdc ) Ocvcvdcdct4=:-@:(( ])"4)@(ch2kdcdc((2|:[)smx ])"5 1 Ocv ) Ocvcvdcdc=:Ocvcvdcdct0+Ocvcvdcdct1+Ocvcvdcdct2+Ocvcvdcdct3+Ocvcvdcdct4 Ocvcvdcdcdct00=: Ocvdcdcdcdc Ocvcvdcdcdct10=:-@:(( ])"5)@(ch2k (( [)smx 0|:])"3 4 Ocvdcdcdc ) Ocvcvdcdcdct11=:-@:((4 2|:])"5)@(ch2kdc ((2|:[)smx 0|:])"4 3 Ocvdcdc ) Ocvcvdcdcdct12=:-@:((2 4|:])"5)@(ch2kdc ((2|:[)smx 0|:])"4 3 Ocvdcdc ) Ocvcvdcdcdct13=:-@:((2 3|:])"5)@(ch2kdcdc ((2|:[)smx 0|:])"5 2 Ocvdc ) Ocvcvdcdcdct20=:-@:(( ])"5)@(ch2kdc ((2|:[)smx 0|:])"4 3 Ocvdcdc ) Ocvcvdcdcdct21=:-@:(( 3|:])"5)@(ch2kdcdc ((2|:[)smx 0|:])"5 2 Ocvdc ) Ocvcvdcdcdct22=:-@:(( ])"5)@(ch2kdcdc ((2|:[)smx 0|:])"5 2 Ocvdc ) Ocvcvdcdcdct23=:-@:(( ])"5)@(ch2kdcdcdc((2|:[)smx ])"6 1 Ocv ) Ocvcvdcdcdct0=:Ocvcvdcdcdct00 Ocvcvdcdcdct1=:Ocvcvdcdcdct10+Ocvcvdcdcdct11+Ocvcvdcdcdct12+Ocvcvdcdcdct13 Ocvcvdcdcdct2=:Ocvcvdcdcdct20+Ocvcvdcdcdct21+Ocvcvdcdcdct22+Ocvcvdcdcdct23 Ocvcvdcdcdc=:Ocvcvdcdcdct0+Ocvcvdcdcdct1+Ocvcvdcdcdct2
Download: File:LTE1300D.txt
Download: File:LTE1301C.txt