User:Tom Allen/ta/AddendumU00P00

From J Wiki
Jump to: navigation, search


NB. ... script experimentalU00.ijs ...

cx0=:0{]
cx1=:1{]
cx2=:2{]
cx3=:3{]

cy0=:0{]
cy1=:1{]
cy2=:2{]
cy3=:3{]

cz0=:0{]
cz1=:1{]
cz2=:2{]
cz3=:3{]

cw0=:0{]
cw1=:1{]
cw2=:2{]
cw3=:3{]

cx0XX=:cx0;1 0 0 0;((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
cx1XX=:cx1;0 1 0 0;((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
cx2XX=:cx2;0 0 1 0;((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
cx3XX=:cx3;0 0 0 1;((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_

cy0XX=:cy0;1 0 0 0;((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
cy1XX=:cy1;0 1 0 0;((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
cy2XX=:cy2;0 0 1 0;((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
cy3XX=:cy3;0 0 0 1;((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_

cz0XX=:cz0;1 0 0 0;((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
cz1XX=:cz1;0 1 0 0;((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
cz2XX=:cz2;0 0 1 0;((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
cz3XX=:cz3;0 0 0 1;((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_

cw0XX=:cw0;1 0 0 0;((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
cw1XX=:cw1;0 1 0 0;((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
cw2XX=:cw2;0 0 1 0;((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
cw3XX=:cw3;0 0 0 1;((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_