User:Tom Allen/ta/AddendumX07P00

From J Wiki
Jump to navigation Jump to search


NB. ... script experimentalX07.txt ...

NB. ... all the verbs needed by AddendumX07 ...

load jpath '~temp\experimentalT00.ijs'
load jpath '~temp\experimentalT01.ijs'
load jpath '~temp\experimentalT03.ijs'
load jpath '~temp\experimentalU00.ijs'
load jpath '~temp\experimentalU01.ijs'
load jpath '~temp\experimentalU02.ijs'
load jpath '~temp\experimentalU03.ijs'
load jpath '~temp\experimentalU04.ijs'
load jpath '~temp\experimentalV00.ijs'
load jpath '~temp\experimentalW03.txt'

NB. ... additional verbs for AddendumX06 AddendumX07 and AddendumX08 ...
NB. ... (with no retrospective changes being made to what has come before) ...

load jpath '~temp\experimentalA00.txt'

NB. ... j64-807 is being used for AddendumX07 ...
NB. ... j64-807 has all the functionality required for this material ...
NB. ... (the primitive 'D.1' works well with these tacit verbs for checking derivatives) ...


GX07P0000D.png


NB. ... script experimentalX07.txt ...

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

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

hkyX07A=:([qRX07A1 qRX07A0),2 6$a:"_


... check y-coordinates ...


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

   xCpts=:_ 0.9 2 26,_ 0.1p1 0.9p1 26,_ 0.1p1 1.8p1 26,:_ 0 2p1 26"_

   qR0A=:(''([ydx       xRef@([hkyX07A zfyc"_ 1))])                                ((0,50"_)pTRandom xCpts)''
   qR0B=:(''(0|:])@([:(''([(0{])@ypts    xRef@([hkyX07A zfyc"_ 1)),:@])D.1])"_ 1]) ((0,50"_)pTRandom xCpts)''

   qR0A (((2^_27);2^_18)qteq[;])"2 qR0B
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   qR0A=:(''([ydxdx     xRef@([hkyX07A zfyc"_ 1))])                                ((0,50"_)pTRandom xCpts)''
   qR0B=:(''(0|:])@([:(''([(0{])@ydx     xRef@([hkyX07A zfyc"_ 1)),:@])D.1])"_ 1]) ((0,50"_)pTRandom xCpts)''

   qR0A (((2^_27);2^_18)qteq[;])"3 qR0B
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   qR0A=:(''([ydxdxdx   xRef@([hkyX07A zfyc"_ 1))])                                ((0,50"_)pTRandom xCpts)''
   qR0B=:(''(0|:])@([:(''([(0{])@ydxdx   xRef@([hkyX07A zfyc"_ 1)),:@])D.1])"_ 1]) ((0,50"_)pTRandom xCpts)''

   qR0A (((2^_27);2^_18)qteq[;])"4 qR0B
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   qR0A=:(''([ydxdxdxdx xRef@([hkyX07A zfyc"_ 1))])                                ((0,50"_)pTRandom xCpts)''
   qR0B=:(''(0|:])@([:(''([(0{])@ydxdxdx xRef@([hkyX07A zfyc"_ 1)),:@])D.1])"_ 1]) ((0,50"_)pTRandom xCpts)''

   qR0A (((2^_27);2^_18)qteq[;])"5 qR0B
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1


... check x-coordinates ...


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

   xCpts=:_ 0.9 2 26,_ 0.1p1 0.9p1 26,_ 0.1p1 1.8p1 26,:_ 0 2p1 26"_

   qR0A=:(''([xdy       xRef@([hkyX07A zfyc"_ 1))])                            ((0,50"_)pTRandom xCpts)''
   qR0B=:(''(0|:])@([:(''([(0{])@xpts    xRef@hkyX07A),:@])D.1])"_ 1 zfyc"1@]) ((0,50"_)pTRandom xCpts)''

   qR0A (((2^_44);2^_17)qteq[;])"2 qR0B
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   qR0A=:(''([xdydy     xRef@([hkyX07A zfyc"_ 1))])                            ((0,50"_)pTRandom xCpts)''
   qR0B=:(''(0|:])@([:(''([(0{])@xdy     xRef@hkyX07A),:@])D.1])"_ 1 zfyc"1@]) ((0,50"_)pTRandom xCpts)''

   qR0A (((2^_44);2^_17)qteq[;])"3 qR0B
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   qR0A=:(''([xdydydy   xRef@([hkyX07A zfyc"_ 1))])                            ((0,50"_)pTRandom xCpts)''
   qR0B=:(''(0|:])@([:(''([(0{])@xdydy   xRef@hkyX07A),:@])D.1])"_ 1 zfyc"1@]) ((0,50"_)pTRandom xCpts)''

   qR0A (((2^_44);2^_15)qteq[;])"4 qR0B
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   qR0A=:(''([xdydydydy xRef@([hkyX07A zfyc"_ 1))])                            ((0,50"_)pTRandom xCpts)''
   qR0B=:(''(0|:])@([:(''([(0{])@xdydydy xRef@hkyX07A),:@])D.1])"_ 1 zfyc"1@]) ((0,50"_)pTRandom xCpts)''

   qR0A (((2^_44);2^_14)qteq[;])"5 qR0B
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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:LX07P0000D.txt




Next Page: User:Tom Allen/ta/AddendumX07P01
Prev Page: User:Tom Allen/ta