User:Tom Allen/ta/AddendumT01E13

From J Wiki
Jump to navigation Jump to search




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




GTE1300D.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


GTE1301C.jpg


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