User:Tom Allen/ta/AddendumX07P00
< User:Tom Allen | ta
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) ...
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