User:Tom Allen/ta/AddendumT01E18

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

Scvt0=:                                         Sdc
Scvt1=:-@:((    1|:])"4)@(Gam((   [)smx 0|:])"3 S  )
Scvt2=:-@:((0 3 1|:])"4)@(Gam((   [)smx 1|:])"3 S  )
Scvt3=:   ((  1 0|:])"4)@(Gam((0|:[)smx    ])"3 S  )

Scv=:Scvt0+Scvt1+Scvt2+Scvt3

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

SBkcvt0=:(0 1 4 5|:])"6@(S  ((   [)smx 3|:])"3 5 B2kcv)
SBkcvt1=:(0 1 5 2|:])"6@(Scv((2|:[)smx    ])"4 4 B2k  )

SBkcv=:SBkcvt0+SBkcvt1

---

Download: File:LTE1800C.txt
Download: File:LTE1801C.txt

---