User:Tom Allen/ta/AddendumX06P01

From J Wiki
Jump to navigation Jump to search


NB. ... script experimentalX06.txt ...

pUX06B0=:([zfyXX zfxc"_ 1),:zfxXX

pUX06B1=:(0 1{]),zfhcvXX,zfgcvXX,zfhcnXX,:zfgcnXX

pUX06B2=:<@:>"1@(0|:])@:(pUOmSSXX"_ 1)

hkyX06B=:[(],OcAXX)([pUX06B1 pUX06B0),pUX06B2


GX06P0100C.png


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

   pU0=:,:@(1 1 2 8 1 1 1 1 0.1"_)

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

   mtA=:(pU0([Ocndc       yRef@hkyX06B)])                                 zfyc"1 ((0.1;50"_)pTRandom xCpts)''
   mtB=:(pU0(0|:])@([:(pU0([(0{])@Ocn       yRef@hkyX06B),:@])D.1])"_ 1]) zfyc"1 ((0.1;50"_)pTRandom xCpts)''

   mtA (((2^_44);2^_12)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=:(pU0([Ocndcdc     yRef@hkyX06B)])                                 zfyc"1 ((0.1;50"_)pTRandom xCpts)''
   mtB=:(pU0(0|:])@([:(pU0([(0{])@Ocndc     yRef@hkyX06B),:@])D.1])"_ 1]) zfyc"1 ((0.1;50"_)pTRandom xCpts)''

   mtA (((2^_44);2^_11)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=:(pU0([Ocndcdcdc   yRef@hkyX06B)])                                 zfyc"1 ((0.1;50"_)pTRandom xCpts)''
   mtB=:(pU0(0|:])@([:(pU0([(0{])@Ocndcdc   yRef@hkyX06B),:@])D.1])"_ 1]) zfyc"1 ((0.1;50"_)pTRandom xCpts)''

   mtA (((2^_44);2^_10)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=:(pU0([Ocndcdcdcdc yRef@hkyX06B)])                                 zfyc"1 ((0.1;50"_)pTRandom xCpts)''
   mtB=:(pU0(0|:])@([:(pU0([(0{])@Ocndcdcdc yRef@hkyX06B),:@])D.1])"_ 1]) zfyc"1 ((0.1;50"_)pTRandom xCpts)''

   mtA (((2^_44);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


GX06P0101C.png


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

   pU0=:,:@(1 1 2 8 1 1 1 1 0.1"_)

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

   mtA=:(pU0([Ocndc       xRef@hkyX06B)])                                                         zfyc"1@((0.1;50"_)pTRandom xCpts)''
   mtB=:(pU0([(0|:])@([:(pU0([(0{])@Ocn       xRef@([hkyX06B zfyc"_ 1)),:@])D.1])"_ 1 zfxc"_ 1)]) zfyc"1@((0.1;50"_)pTRandom xCpts)''

   mtA (((2^_44);2^_12)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=:(pU0([Ocndcdc     xRef@hkyX06B)])                                                         zfyc"1@((0.1;50"_)pTRandom xCpts)''
   mtB=:(pU0([(0|:])@([:(pU0([(0{])@Ocndc     xRef@([hkyX06B zfyc"_ 1)),:@])D.1])"_ 1 zfxc"_ 1)]) zfyc"1@((0.1;50"_)pTRandom xCpts)''

   mtA (((2^_44);2^_13)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=:(pU0([Ocndcdcdc   xRef@hkyX06B)])                                                         zfyc"1@((0.1;50"_)pTRandom xCpts)''
   mtB=:(pU0([(0|:])@([:(pU0([(0{])@Ocndcdc   xRef@([hkyX06B zfyc"_ 1)),:@])D.1])"_ 1 zfxc"_ 1)]) zfyc"1@((0.1;50"_)pTRandom xCpts)''

   mtA (((2^_44);2^_11)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=:(pU0([Ocndcdcdcdc xRef@hkyX06B)])                                                         zfyc"1@((0.1;50"_)pTRandom xCpts)''
   mtB=:(pU0([(0|:])@([:(pU0([(0{])@Ocndcdcdc xRef@([hkyX06B zfyc"_ 1)),:@])D.1])"_ 1 zfxc"_ 1)]) zfyc"1@((0.1;50"_)pTRandom xCpts)''

   mtA (((2^_44);2^_09)qteq[;])"5 mtB


GX06P0102C.png


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

   pU0=:,:@(1 1 2 8 1 1 1 1 0.1"_)

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

   (pU0([(([Ocn xRef)(((2^_44);2^_44)qteq[;])"1 xdy smx"2 1[Ocn yRef)hkyX06B)]) zfyc"1@((0.1;50"_)pTRandom xCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   (pU0([(([Ocn yRef)(((2^_44);2^_44)qteq[;])"1 ydx smx"2 1[Ocn xRef)hkyX06B)]) zfyc"1@((0.1;50"_)pTRandom xCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1


GX06P0103D.png


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

   pU0=:,:@(1 1 2 8 1 1 1 1 0.1"_)

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

   Ocncv=:Ocndc+(0|:])"2@(ch2k((0|:[)smx])"3 1 Ocn)

   (pU0([(([Ocncv xRef)(((2^_44);2^_44)qteq[;])"2 xdy smx"2 2 ydx((0|:[)smx])"2 2 [Ocncv yRef)hkyX06B)]) zfyc"1@((0.1;50"_)pTRandom xCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   (pU0([(([Ocncv yRef)(((2^_44);2^_44)qteq[;])"2 ydx smx"2 2 xdy((0|:[)smx])"2 2 [Ocncv xRef)hkyX06B)]) zfyc"1@((0.1;50"_)pTRandom xCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1


GX06P0104C.png


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

   pU0=:,:@(1 1 2 8 1 1 1 1 0.1"_)

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

   Ocncv=:Ocndc+(0|:])"2@(ch2k((0|:[)smx])"3 1 Ocn)

   (0=]) ((2^_44)qtsz]) +/@((<0 1)|:])"2 (pU0([Ocncv yRef@hkyX06B)]) zfyc"1@((0;50"_)pTRandom xCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   (0=]) ((2^_44)qtsz]) +/@((<0 1)|:])"2 (pU0([Ocncv xRef@hkyX06B)]) zfyc"1@((0;50"_)pTRandom xCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1


GX06P0105C.png


GX06P0106C.png


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

   pU0=:,:@(1 1 2 8 1 1 1 1 0.1"_)

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

   vB0=:((0|:[)smx])"2 5
   vB1=:((0|:[)smx])"2 5
   vB2=:((0|:[)smx])"2 5
   vB3=:((0|:[)smx])"2 5
   vB4=:((   [)smx])"2 5

NB. ... R is a tensor ...

   vA=:[R xRef
   vB=:[(xdy vB4 ydx vB3 ydx vB2 ydx vB1 ydx vB0 R)yRef

   (pU0([(vA(((2^_44);2^_26)qteq[;])"5 vB)hkyX06B)]) zfyc"1@((0.1p1;50"_)pTRandom xCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   vC=:[R yRef
   vD=:[(ydx vB4 xdy vB3 xdy vB2 xdy vB1 xdy vB0 R)xRef

   (pU0([(vC(((2^_44);2^_31)qteq[;])"5 vD)hkyX06B)]) zfyc"1@((0.1p1;50"_)pTRandom xCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1


GX06P0107C.png


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

   pU0=:,:@(1 1 2 8 1 1 1 1 0.1"_)

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

   *./^:3"3 (0=]) ((2^_44)qtsz]) (pU0([(]+(0|:])+0 1|:])"3@(+/"1@((<0 1)|:])"5@R)yRef@hkyX06B)])      zfyc"1@((0;50"_)pTRandom xCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   *./^:3"3 (0=]) ((2^_44)qtsz]) (pU0([(]+(0|:])+0 1|:])"3@(+/"1@((<0 1)|:])"5@R)xRef@hkyX06B)])      zfyc"1@((0;50"_)pTRandom xCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1


   *./^:3"3 (0=]) ((2^_44)qtsz]) (pU0([(]+0|:])"2@:((0 1|:])"3)@(+/"1@((<0 1)|:])"5@R)yRef@hkyX06B)]) zfyc"1@((0;50"_)pTRandom xCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   *./^:3"3 (0=]) ((2^_44)qtsz]) (pU0([(]+0|:])"2@:((0 1|:])"3)@(+/"1@((<0 1)|:])"5@R)xRef@hkyX06B)]) zfyc"1@((0;50"_)pTRandom xCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1


   (pU0([([FREXVEE"_ 3 FREMR)yRef@hkyX06B)]) zfyc"1@((0;01"_)pTRandom xCpts)''
 0.449604   0.62236 _0.296224  _0.77574
  0.62236 _0.296224  _0.77574  0.449604
_0.296224  _0.77574  0.449604   0.62236
 _0.77574  0.449604   0.62236 _0.296224
   
   (]-:1|:])"2 (pU0([([FREXVEE"_ 3 FREMR)yRef@hkyX06B)]) zfyc"1@((0;50"_)pTRandom xCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
   
   *./"1 (0=]) ((2^_44)qtsz]) +/"1"2 (pU0([([FREXVEE"_ 3 FREMR)yRef@hkyX06B)]) zfyc"1@((0;50"_)pTRandom xCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1


   (pU0([([FREXVCC"_ 3 FREMR)yRef@hkyX06B)]) zfyc"1@((0;01"_)pTRandom xCpts)''
   3.14339   _7.23463 _0.0443366    4.13557
  _7.23463 _0.0443366    4.13557    3.14339
_0.0443366    4.13557    3.14339   _7.23463
   4.13557    3.14339   _7.23463 _0.0443366
   
   (]-:1|:])"2 (pU0([([FREXVCC"_ 3 FREMR)yRef@hkyX06B)]) zfyc"1@((0;50"_)pTRandom xCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
   
   *./"1 (0=]) ((2^_44)qtsz]) +/"1"2 (pU0([([FREXVCC"_ 3 FREMR)yRef@hkyX06B)]) zfyc"1@((0;50"_)pTRandom xCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1


   (pU0([([FREXVTT"_ 3 FREMR)yRef@hkyX06B)]) zfyc"1@((0;01"_)pTRandom xCpts)''
    3.593  _6.61227 _0.340561   3.35983
 _6.61227 _0.340561   3.35983     3.593
_0.340561   3.35983     3.593  _6.61227
  3.35983     3.593  _6.61227 _0.340561
   
   (]-:1|:])"2 (pU0([([FREXVTT"_ 3 FREMR)yRef@hkyX06B)]) zfyc"1@((0;50"_)pTRandom xCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
   
   *./"1 (0=]) ((2^_44)qtsz]) +/"1"2 (pU0([([FREXVTT"_ 3 FREMR)yRef@hkyX06B)]) zfyc"1@((0;50"_)pTRandom xCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1


   (pU0([([(FREXVTT(((2^_44);2^_40)qteq[;])"2 FREXVEE+FREXVCC)"_ 3 FREMR)yRef@hkyX06B)]) zfyc"1@((0;50"_)pTRandom xCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1



Download: File:LX06P0100C.txt
Download: File:LX06P0101C.txt
Download: File:LX06P0102C.txt
Download: File:LX06P0103D.txt
Download: File:LX06P0104C.txt
Download: File:LX06P0105C.txt
Download: File:LX06P0106C.txt
Download: File:LX06P0107C.txt




Next Page: User:Tom Allen/ta/AddendumX06P02
Prev Page: User:Tom Allen/ta/AddendumX06P00