User:Tom Allen/ta/AddendumU01P01

From J Wiki
Jump to: navigation, search


GU01P0100D.jpg


NB. ... script experimentalU01.ijs ...

zfhcn      =:1 0 0 0,0 1 0 0,0 0 1 0,:0 0 0 _1"_
zfhcndy    =:(3$4:)$0:
zfhcndydy  =:(4$4:)$0:
zfhcndydydy=:(5$4:)$0:

zfhcnXXS=:zfhcn;zfhcndy;zfhcndydy;zfhcndydydy;(1$_"_);1$_"_
zfhcnXX =:<@:>"1@(0|:])@([zfhcnXXS"_ 1 ypts)


GU01P0101C.jpg


NB. ... script experimentalU01.ijs ...

zfgcn=:xdy([smx"2 smx"2)zfhcn


GU01P0102C.jpg


NB. ... script experimentalU01.ijs ...

zfgcndx0=:(1|:])"3@(xdy((   [)smx    ])"2 3 ydx  ((0|:[)smx 1|:])"2 3 xdydy((1|:[)smx   ])"3 2 zfhcn)
zfgcndx1=:(0|:])"3@(ydx((0|:[)smx 1|:])"2 3 xdydy((1|:[)smx    ])"3 2 xdy  ((   [)smx   ])"2 2 zfhcn)

zfgcndx=:zfgcndx0+zfgcndx1


GU01P0103C.jpg


NB. ... script experimentalU01.ijs ...

zfgcndxdx00=:(1 2|:])"4@(xdy((   [)smx    ])"2 4   ydx((0|:[)smx 2|:])"2 4     ydx((0|:[)smx 2|:])"2 4 xdydydy((1|:[)smx   ])"4 2 zfhcn)
zfgcndxdx01=:(1 2|:])"4@(                          xdy((   [)smx    ])"2 4   ydxdx((0|:[)smx 1|:])"3 3   xdydy((1|:[)smx   ])"3 2 zfhcn)
zfgcndxdx02=:(2 0|:])"4@(ydx((0|:[)smx 1|:])"2 4 xdydy((1|:[)smx    ])"3 3     ydx((0|:[)smx 1|:])"2 3   xdydy((1|:[)smx   ])"3 2 zfhcn)

zfgcndxdx10=:(0 2|:])"4@(ydx((0|:[)smx 1|:])"2 4 xdydy((1|:[)smx    ])"3 3     ydx((0|:[)smx 1|:])"2 3   xdydy((1|:[)smx   ])"3 2 zfhcn)
zfgcndxdx11=:(0 1|:])"4@(ydx((0|:[)smx 2|:])"2 4   ydx((0|:[)smx 2|:])"2 4 xdydydy((1|:[)smx    ])"4 2     xdy((1|:[)smx   ])"2 2 zfhcn)
zfgcndxdx12=:(0 1|:])"4@(                        ydxdx((0|:[)smx 1|:])"3 3   xdydy((1|:[)smx    ])"3 2     xdy((1|:[)smx   ])"2 2 zfhcn)

zfgcndxdx0=:zfgcndxdx00+zfgcndxdx01+zfgcndxdx02
zfgcndxdx1=:zfgcndxdx10+zfgcndxdx11+zfgcndxdx12

zfgcndxdx=:zfgcndxdx0+zfgcndxdx1


GU01P0104C.jpg


NB. ... script experimentalU01.ijs ...

zfgcndxdxdx000=:(1 2 3|:])"5@(xdy((1|:[)smx    ])"2 5   ydx((0|:[)smx 3|:])"2 5     ydx((0|:[)smx 3|:])"2 5     ydx((0|:[)smx 3|:])"2 5 xdydydydy((1|:[)smx   ])"5 2 zfhcn)
zfgcndxdxdx001=:(1 2 3|:])"5@(                          xdy((1|:[)smx    ])"2 5     ydx((0|:[)smx 3|:])"2 5   ydxdx((0|:[)smx 2|:])"3 4   xdydydy((1|:[)smx   ])"4 2 zfhcn)
zfgcndxdxdx002=:(1 3 2|:])"5@(                          xdy((1|:[)smx    ])"2 5   ydxdx((0|:[)smx 2|:])"3 4     ydx((0|:[)smx 2|:])"2 4   xdydydy((1|:[)smx   ])"4 2 zfhcn)
zfgcndxdxdx003=:(2 3 0|:])"5@(ydx((0|:[)smx 1|:])"2 5 xdydy((1|:[)smx    ])"3 4     ydx((0|:[)smx 2|:])"2 4     ydx((0|:[)smx 2|:])"2 4   xdydydy((1|:[)smx   ])"4 2 zfhcn)

zfgcndxdxdx010=:(1 2 3|:])"5@(                          xdy((1|:[)smx    ])"2 5   ydxdx((0|:[)smx 2|:])"3 4     ydx((0|:[)smx 2|:])"2 4   xdydydy((1|:[)smx   ])"4 2 zfhcn)
zfgcndxdxdx011=:(1 2 3|:])"5@(                                                      xdy((1|:[)smx    ])"2 5 ydxdxdx((0|:[)smx 1|:])"4 3     xdydy((1|:[)smx   ])"3 2 zfhcn)
zfgcndxdxdx012=:(2 3 0|:])"5@(                          ydx((0|:[)smx 1|:])"2 5   xdydy((1|:[)smx    ])"3 4   ydxdx((0|:[)smx 1|:])"3 3     xdydy((1|:[)smx   ])"3 2 zfhcn)

zfgcndxdxdx020=:(2 0 3|:])"5@(ydx((0|:[)smx 1|:])"2 5 xdydy((1|:[)smx    ])"3 4     ydx((0|:[)smx 2|:])"2 4     ydx((0|:[)smx 2|:])"2 4   xdydydy((1|:[)smx   ])"4 2 zfhcn)
zfgcndxdxdx021=:(2 0 3|:])"5@(                          ydx((0|:[)smx 1|:])"2 5   xdydy((1|:[)smx    ])"3 4   ydxdx((0|:[)smx 1|:])"3 3     xdydy((1|:[)smx   ])"3 2 zfhcn)
zfgcndxdxdx022=:(3 0 1|:])"5@(ydx((0|:[)smx 2|:])"2 5   ydx((0|:[)smx 2|:])"2 5 xdydydy((1|:[)smx    ])"4 3     ydx((0|:[)smx 1|:])"2 3     xdydy((1|:[)smx   ])"3 2 zfhcn)
zfgcndxdxdx023=:(3 0 1|:])"5@(                        ydxdx((0|:[)smx 1|:])"3 4   xdydy((1|:[)smx    ])"3 3     ydx((0|:[)smx 1|:])"2 3     xdydy((1|:[)smx   ])"3 2 zfhcn)

zfgcndxdxdx100=:(0 2 3|:])"5@(ydx((0|:[)smx 1|:])"2 5 xdydy((1|:[)smx    ])"3 4     ydx((0|:[)smx 2|:])"2 4     ydx((0|:[)smx 2|:])"2 4   xdydydy((1|:[)smx   ])"4 2 zfhcn)
zfgcndxdxdx101=:(0 2 3|:])"5@(                          ydx((0|:[)smx 1|:])"2 5   xdydy((1|:[)smx    ])"3 4   ydxdx((0|:[)smx 1|:])"3 3     xdydy((1|:[)smx   ])"3 2 zfhcn)
zfgcndxdxdx102=:(0 3 1|:])"5@(ydx((0|:[)smx 2|:])"2 5   ydx((0|:[)smx 2|:])"2 5 xdydydy((1|:[)smx    ])"4 3     ydx((0|:[)smx 1|:])"2 3     xdydy((1|:[)smx   ])"3 2 zfhcn)
zfgcndxdxdx103=:(0 3 1|:])"5@(                        ydxdx((0|:[)smx 1|:])"3 4   xdydy((1|:[)smx    ])"3 3     ydx((0|:[)smx 1|:])"2 3     xdydy((1|:[)smx   ])"3 2 zfhcn)

zfgcndxdxdx110=:(0 1 3|:])"5@(ydx((0|:[)smx 2|:])"2 5   ydx((0|:[)smx 2|:])"2 5 xdydydy((1|:[)smx    ])"4 3       ydx((0|:[)smx 1|:])"2 3   xdydy((1|:[)smx   ])"3 2 zfhcn)
zfgcndxdxdx111=:(0 1 2|:])"5@(ydx((0|:[)smx 3|:])"2 5   ydx((0|:[)smx 3|:])"2 5     ydx((0|:[)smx 3|:])"2 5 xdydydydy((1|:[)smx    ])"5 2     xdy((1|:[)smx   ])"2 2 zfhcn)
zfgcndxdxdx112=:(0 1 2|:])"5@(                          ydx((0|:[)smx 3|:])"2 5   ydxdx((0|:[)smx 2|:])"3 4   xdydydy((1|:[)smx    ])"4 2     xdy((1|:[)smx   ])"2 2 zfhcn)
zfgcndxdxdx113=:(0 2 1|:])"5@(                        ydxdx((0|:[)smx 2|:])"3 4     ydx((0|:[)smx 2|:])"2 4   xdydydy((1|:[)smx    ])"4 2     xdy((1|:[)smx   ])"2 2 zfhcn)

zfgcndxdxdx120=:(0 1 3|:])"5@(                        ydxdx((0|:[)smx 1|:])"3 4   xdydy((1|:[)smx    ])"3 3       ydx((0|:[)smx 1|:])"2 3   xdydy((1|:[)smx   ])"3 2 zfhcn)
zfgcndxdxdx121=:(0 1 2|:])"5@(                        ydxdx((0|:[)smx 2|:])"3 4     ydx((0|:[)smx 2|:])"2 4   xdydydy((1|:[)smx    ])"4 2     xdy((1|:[)smx   ])"2 2 zfhcn)
zfgcndxdxdx122=:(0 1 2|:])"5@(                                                  ydxdxdx((0|:[)smx 1|:])"4 3     xdydy((1|:[)smx    ])"3 2     xdy((1|:[)smx   ])"2 2 zfhcn)

zfgcndxdxdx00=:zfgcndxdxdx000+zfgcndxdxdx001+zfgcndxdxdx002+zfgcndxdxdx003
zfgcndxdxdx01=:zfgcndxdxdx010+zfgcndxdxdx011+zfgcndxdxdx012
zfgcndxdxdx02=:zfgcndxdxdx020+zfgcndxdxdx021+zfgcndxdxdx022+zfgcndxdxdx023
zfgcndxdxdx10=:zfgcndxdxdx100+zfgcndxdxdx101+zfgcndxdxdx102+zfgcndxdxdx103
zfgcndxdxdx11=:zfgcndxdxdx110+zfgcndxdxdx111+zfgcndxdxdx112+zfgcndxdxdx113
zfgcndxdxdx12=:zfgcndxdxdx120+zfgcndxdxdx121+zfgcndxdxdx122

zfgcndxdxdx0=:zfgcndxdxdx00+zfgcndxdxdx01+zfgcndxdxdx02
zfgcndxdxdx1=:zfgcndxdxdx10+zfgcndxdxdx11+zfgcndxdxdx12

zfgcndxdxdx=:zfgcndxdxdx0+zfgcndxdxdx1


NB. ... script experimentalU01.ijs ...

zfgcnXX=:zfgcn;zfgcndx;zfgcndxdx;zfgcndxdxdx;([(1$_"_)"_ 1 xpts);[(1$_"_)"_ 1 xpts



Download: File:LU01P0100D.txt
Download: File:LU01P0101C.txt
Download: File:LU01P0102C.txt
Download: File:LU01P0103C.txt
Download: File:LU01P0104C.txt