User:Tom Allen/ta/AddendumX03P01

From J Wiki
Jump to navigation Jump to search


NB. ... execute (ijx) ...

   uQ0=:0 0 0 0 0 0 0 0 0,:0.9"_

   xCpts=:_ 0.7 1.3 51,_ 0.4p1 0.6p1 51,_ 0 2p1 51,:_ 0 2p1 51"_

   (uQ0 vZRv00])''
0.9

   (uQ0(([vZyc[wXzc[wXwc vZzc)"_ 1(((2^_44);2^_42)qteq[;])"1])]) (uQ0 zfyc"_ 1])@((0;50"_)pTRandom xCpts)''    NB. ... y->z->w->z->y ...
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1


NB. ... execute (ijx) ...

   uQ0=:0 0 0 0 0 0 0 0 0,:0.9"_

   xCpts=:_ 0.7 1.3 51,_ 0.4p1 0.6p1 51,_ 0 2p1 51,:_ 0 2p1 51"_

   mtA=:(uQ0(>@(1{])@jNyXXS"_ 1)])                    (uQ0([wXwc[vZzc zfyc)"_ 1])@((0;50"_)pTRandom xCpts)''
   mtB=:(uQ0(0|:])@([:(uQ0>@(0{])@jNyXXS])D.1])"_ 1]) (uQ0([wXwc[vZzc zfyc)"_ 1])@((0;50"_)pTRandom xCpts)''
   
   mtA(((2^_18);2^_14)qteq[;])"2 mtB
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   mtA=:(uQ0(>@(2{])@jNyXXS"_ 1)])                    (uQ0([wXwc[vZzc zfyc)"_ 1])@((0;50"_)pTRandom xCpts)''
   mtB=:(uQ0(0|:])@([:(uQ0>@(1{])@jNyXXS])D.1])"_ 1]) (uQ0([wXwc[vZzc zfyc)"_ 1])@((0;50"_)pTRandom xCpts)''
   
   mtA(((2^_19);2^_14)qteq[;])"3 mtB
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   mtA=:(uQ0(>@(3{])@jNyXXS"_ 1)])                    (uQ0([wXwc[vZzc zfyc)"_ 1])@((0;50"_)pTRandom xCpts)''
   mtB=:(uQ0(0|:])@([:(uQ0>@(2{])@jNyXXS])D.1])"_ 1]) (uQ0([wXwc[vZzc zfyc)"_ 1])@((0;50"_)pTRandom xCpts)''
   
   mtA(((2^_18);2^_14)qteq[;])"4 mtB
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   mtA=:(uQ0(>@(4{])@jNyXXS"_ 1)])                    (uQ0([wXwc[vZzc zfyc)"_ 1])@((0;50"_)pTRandom xCpts)''
   mtB=:(uQ0(0|:])@([:(uQ0>@(3{])@jNyXXS])D.1])"_ 1]) (uQ0([wXwc[vZzc zfyc)"_ 1])@((0;50"_)pTRandom xCpts)''

   mtA(((2^_19);2^_14)qteq[;])"5 mtB
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   mtA=:(uQ0(>@(5{])@jNyXXS"_ 1)])                    (uQ0([wXwc[vZzc zfyc)"_ 1])@((0;50"_)pTRandom xCpts)''
   mtB=:(uQ0(0|:])@([:(uQ0>@(4{])@jNyXXS])D.1])"_ 1]) (uQ0([wXwc[vZzc zfyc)"_ 1])@((0;50"_)pTRandom xCpts)''

   mtA(((2^_18);2^_14)qteq[;])"6 mtB
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1


NB. ... execute (ijx) ...

   uQ0=:0 0 0 0 0 0 0 0 0,:0.9"_

   xCpts=:_ 0.7 1.3 51,_ 0.4p1 0.6p1 51,_ 0 2p1 51,:_ 0 2p1 51"_

   mtA=:(uQ0(>@(1{])@jNwXXS"_ 1)])                    ((2^_44)qtsz]) (uQ0 zfyc"_ 1])@((0;50"_)pTRandom xCpts)''
   mtB=:(uQ0(0|:])@([:(uQ0>@(0{])@jNwXXS])D.1])"_ 1]) ((2^_44)qtsz]) (uQ0 zfyc"_ 1])@((0;50"_)pTRandom xCpts)''
   
   mtA(((2^_25);2^_09)qteq[;])"2 mtB
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   mtA=:(uQ0(>@(2{])@jNwXXS"_ 1)])                    ((2^_44)qtsz]) (uQ0 zfyc"_ 1])@((0;50"_)pTRandom xCpts)''
   mtB=:(uQ0(0|:])@([:(uQ0>@(1{])@jNwXXS])D.1])"_ 1]) ((2^_44)qtsz]) (uQ0 zfyc"_ 1])@((0;50"_)pTRandom xCpts)''
   
   mtA(((2^_25);2^_10)qteq[;])"3 mtB
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   mtA=:(uQ0(>@(3{])@jNwXXS"_ 1)])                    ((2^_44)qtsz]) (uQ0 zfyc"_ 1])@((0;50"_)pTRandom xCpts)''
   mtB=:(uQ0(0|:])@([:(uQ0>@(2{])@jNwXXS])D.1])"_ 1]) ((2^_44)qtsz]) (uQ0 zfyc"_ 1])@((0;50"_)pTRandom xCpts)''
   
   mtA(((2^_24);2^_09)qteq[;])"4 mtB
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   mtA=:(uQ0(>@(4{])@jNwXXS"_ 1)])                    ((2^_44)qtsz]) (uQ0 zfyc"_ 1])@((0;50"_)pTRandom xCpts)''
   mtB=:(uQ0(0|:])@([:(uQ0>@(3{])@jNwXXS])D.1])"_ 1]) ((2^_44)qtsz]) (uQ0 zfyc"_ 1])@((0;50"_)pTRandom xCpts)''

   mtA(((2^_22);2^_10)qteq[;])"5 mtB
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   mtA=:(uQ0(>@(5{])@jNwXXS"_ 1)])                    ((2^_44)qtsz]) (uQ0 zfyc"_ 1])@((0;50"_)pTRandom xCpts)''
   mtB=:(uQ0(0|:])@([:(uQ0>@(4{])@jNwXXS])D.1])"_ 1]) ((2^_44)qtsz]) (uQ0 zfyc"_ 1])@((0;50"_)pTRandom xCpts)''

   mtA(((2^_20);2^_10)qteq[;])"6 mtB
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1



Next Page: User:Tom Allen/ta/AddendumX03P02
Prev Page: User:Tom Allen/ta/AddendumX03P00