User:Tom Allen/ta/AddendumT00E11

From J Wiki
Jump to navigation Jump to search


GTE1103C.jpg


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

ch1k      =:0.5*((      1|:])+(      0 1|:])-])"3@mcvdc
ch1kdc    =:0.5*((    1 3|:])+(    0 1 3|:])-])"4@mcvdcdc
ch1kdcdc  =:0.5*((  1 3 4|:])+(  0 1 3 4|:])-])"5@mcvdcdcdc
ch1kdcdcdc=:0.5*((1 3 4 5|:])+(0 1 3 4 5|:])-])"6@mcvdcdcdcdc


GTE1104C.jpg


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

ch2k=:(0|:])"3@(mcn smx"2 3 ch1k)

ch2kdct0=:(0 3|:])"4@(mcn  ((   [)smx 2|:])"2 4 ch1kdc)
ch2kdct1=:(0 1|:])"4@(mcndc((1|:[)smx    ])"3 3 ch1k  )
ch2kdc  =:ch2kdct0+ch2kdct1

ch2kdcdct0=:(0 3 4|:])"5@(mcn    ((   [)smx 2|:])"2 5 ch1kdcdc)
ch2kdcdct1=:(0 4 1|:])"5@(mcndc  ((1|:[)smx 2|:])"3 4 ch1kdc  )
ch2kdcdct2=:(0 1 4|:])"5@(mcndc  ((1|:[)smx 2|:])"3 4 ch1kdc  )
ch2kdcdct3=:(0 1 2|:])"5@(mcndcdc((1|:[)smx    ])"4 3 ch1k    )
ch2kdcdc  =:ch2kdcdct0+ch2kdcdct1+ch2kdcdct2+ch2kdcdct3

ch2kdcdcdct0=:(0 3 4 5|:])"6@(mcn      ((   [)smx 2|:])"2 6 ch1kdcdcdc)
ch2kdcdcdct1=:(0 4 5 1|:])"6@(mcndc    ((1|:[)smx 2|:])"3 5 ch1kdcdc  )
ch2kdcdcdct2=:(0 4 1 5|:])"6@(mcndc    ((1|:[)smx 2|:])"3 5 ch1kdcdc  )
ch2kdcdcdct3=:(0 5 1 2|:])"6@(mcndcdc  ((1|:[)smx 2|:])"4 4 ch1kdc    )
ch2kdcdcdct4=:(0 1 4 5|:])"6@(mcndc    ((1|:[)smx 2|:])"3 5 ch1kdcdc  )
ch2kdcdcdct5=:(0 1 5 2|:])"6@(mcndcdc  ((1|:[)smx 2|:])"4 4 ch1kdc    )
ch2kdcdcdct6=:(0 1 2 5|:])"6@(mcndcdc  ((1|:[)smx 2|:])"4 4 ch1kdc    )
ch2kdcdcdct7=:(0 1 2 3|:])"6@(mcndcdcdc((1|:[)smx    ])"5 3 ch1k      )
ch2kdcdcdc  =:ch2kdcdcdct0+ch2kdcdcdct1+ch2kdcdcdct2+ch2kdcdcdct3+ch2kdcdcdct4+ch2kdcdcdct5+ch2kdcdcdct6+ch2kdcdcdct7



Download: File:LTE1103C.txt
Download: File:LTE1104C.txt