User:Tom Allen/ta/AddendumT01E17

From J Wiki
Jump to: navigation, search


GTE1700C.jpg


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

B2kdcdct00=:   ((0 3 1 4 5|:])"6)@(Gamdcdcdc                          )
B2kdcdct10=:-@:((0 1 3 4 5|:])"6)@(Gamdcdcdc                          )
B2kdcdct20=:   ((0 2 1 4 5|:])"6)@(Gam    ((   [)smx 0|:])"3 5 Gamdcdc)
B2kdcdct21=:   ((0 3 1 5 2|:])"6)@(Gamdc  ((2|:[)smx 0|:])"4 4 Gamdc  )
B2kdcdct30=:   ((0 3 1 2 5|:])"6)@(Gamdc  ((2|:[)smx 0|:])"4 4 Gamdc  )
B2kdcdct31=:   ((0 4 1 2 3|:])"6)@(Gamdcdc((2|:[)smx 0|:])"5 3 Gam    )
B2kdcdct40=:-@:((0 1 2 4 5|:])"6)@(Gam    ((   [)smx 0|:])"3 5 Gamdcdc)
B2kdcdct41=:-@:((0 1 3 5 2|:])"6)@(Gamdc  ((2|:[)smx 0|:])"4 4 Gamdc  )
B2kdcdct50=:-@:((0 1 3 2 5|:])"6)@(Gamdc  ((2|:[)smx 0|:])"4 4 Gamdc  )
B2kdcdct51=:-@:((0 1 4 2 3|:])"6)@(Gamdcdc((2|:[)smx 0|:])"5 3 Gam    )

B2kdcdct0=:B2kdcdct00
B2kdcdct1=:B2kdcdct10
B2kdcdct2=:B2kdcdct20+B2kdcdct21
B2kdcdct3=:B2kdcdct30+B2kdcdct31
B2kdcdct4=:B2kdcdct40+B2kdcdct41
B2kdcdct5=:B2kdcdct50+B2kdcdct51

B2kdcdc=:B2kdcdct0+B2kdcdct1+B2kdcdct2+B2kdcdct3+B2kdcdct4+B2kdcdct5


GTE1701C.jpg


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

B2kcvdct00=:                                                 B2kdcdc
B2kcvdct10=:   ((      0 5|:])"6)@(Gam  ((0|:[)smx 0|:])"3 5 B2kdc  )
B2kcvdct11=:   ((      0 2|:])"6)@(Gamdc((0|:[)smx 0|:])"4 4 B2k    )
B2kcvdct20=:-@:((0 3 4 1 5|:])"6)@(Gam  ((   [)smx 1|:])"3 5 B2kdc  )
B2kcvdct21=:-@:((0 4 5 1 2|:])"6)@(Gamdc((2|:[)smx 1|:])"4 4 B2k    )
B2kcvdct30=:-@:((  0 4 1 5|:])"6)@(Gam  ((   [)smx 2|:])"3 5 B2kdc  )
B2kcvdct31=:-@:((  0 5 1 2|:])"6)@(Gamdc((2|:[)smx 2|:])"4 4 B2k    )
B2kcvdct40=:-@:((    0 1 5|:])"6)@(Gam  ((   [)smx 3|:])"3 5 B2kdc  )
B2kcvdct41=:-@:((    0 1 2|:])"6)@(Gamdc((2|:[)smx    ])"4 4 B2k    )

B2kcvdct0=:B2kcvdct00
B2kcvdct1=:B2kcvdct10+B2kcvdct11
B2kcvdct2=:B2kcvdct20+B2kcvdct21
B2kcvdct3=:B2kcvdct30+B2kcvdct31
B2kcvdct4=:B2kcvdct40+B2kcvdct41

B2kcvdc=:B2kcvdct0+B2kcvdct1+B2kcvdct2+B2kcvdct3+B2kcvdct4


GTE1702C.jpg


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

B2kcvcvt0=:                                               B2kcvdc
B2kcvcvt1=:   ((        0|:])"6)@(Gam((0|:[)smx 0|:])"3 5 B2kcv  )
B2kcvcvt2=:-@:((0 3 4 5 1|:])"6)@(Gam((   [)smx 1|:])"3 5 B2kcv  )
B2kcvcvt3=:-@:((  0 4 5 1|:])"6)@(Gam((   [)smx 2|:])"3 5 B2kcv  )
B2kcvcvt4=:-@:((    0 5 1|:])"6)@(Gam((   [)smx 3|:])"3 5 B2kcv  )
B2kcvcvt5=:-@:((      0 1|:])"6)@(Gam((   [)smx    ])"3 5 B2kcv  )

B2kcvcv=:B2kcvcvt0+B2kcvcvt1+B2kcvcvt2+B2kcvcvt3+B2kcvcvt4+B2kcvcvt5



Download: File:LTE1700C.txt
Download: File:LTE1701C.txt
Download: File:LTE1702C.txt