User:Tom Allen/ta/AddendumX01P00

NB. ... script experimentalX01.ijs ...

load jpath '~temp\experimentalT00.ijs'
load jpath '~temp\experimentalT01.ijs'
load jpath '~temp\experimentalT02.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\experimentalW01.ijs'

NB. ... script experimentalX01.ijs ...

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

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

zSX01A2=:<@:>"1@(0|:])@:(zSbQ59XX"_ 1)

hkyX01A=:[(],OcAXX)([zSX01A1 zSX01A0),zSX01A2

NB. ... script experimentalX01.ijs ...

NB. ... for a standing wave ...

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

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

zSX01B2=:<@:>"1@(0|:])@:(zSbQ59XX"_ 1(+&.>)"1((,:@(1 1 1 1 1 1 1 _1 1"_)*[)zSbQ59XX])"_ 1)

hkyX01B=:[(],OcAXX)([zSX01B1 zSX01B0),zSX01B2

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

   zS0=:,:@(0 0 0 0 0 0 8 _8 0"_)

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

   (zS0(zSbQ17-:>@(0{])@zSbQ17XX)"_ 1])                                                                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

   (zS0(>@(1{])@zSbQ17XX"_ 1(((2^_44);2^_14)qteq[;])"1(0|:[:(zS0>@(0{])@zSbQ17XX])D.1])"_ 1)])         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

   (zS0(>@(2{])@zSbQ17XX"_ 1(((2^_44);2^_15)qteq[;])"2(0|:[:(zS0>@(1{])@zSbQ17XX])D.1])"_ 1)])         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

   (zS0(>@(3{])@zSbQ17XX"_ 1(((2^_44);2^_08)qteq[;])"3(0|:[:(zS0>@(2{])@zSbQ17XX])D.1])"_ 1)])         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

   (zS0(>@(4{])@zSbQ17XX"_ 1(((2^_44);2^_12)qteq[;])"4(0|:[:(zS0>@(3{])@zSbQ17XX])D.1])"_ 1)])         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

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

load jpath '~temp\experimentalW00.ijs'

NB. ... check zSbQ17 consistent with rfaV31 ...

   gX0=:,:@(0 0 0 0 0 0 8 _8 0 0"_)

   zS0=:,:@(0 0 0 0 0 0 8 _8 0"_)

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

   ((gX0>@(0{])@([rfTT4([zfxXXS zfyc),:rfaV31XX)"_ 1])(((2^_44);2^_44)qteq[;])"0 zS0(([>@(0{])@zSbQ17XX 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
   
   ((gX0>@(1{])@([rfTT4([zfxXXS zfyc),:rfaV31XX)"_ 1])(((2^_44);2^_43)qteq[;])"1 zS0(([>@(1{])@zSbQ17XX 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
   
   ((gX0>@(2{])@([rfTT4([zfxXXS zfyc),:rfaV31XX)"_ 1])(((2^_44);2^_41)qteq[;])"2 zS0(([>@(2{])@zSbQ17XX 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
   
   ((gX0>@(3{])@([rfTT4([zfxXXS zfyc),:rfaV31XX)"_ 1])(((2^_44);2^_42)qteq[;])"3 zS0(([>@(3{])@zSbQ17XX 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
   
   ((gX0>@(4{])@([rfTT4([zfxXXS zfyc),:rfaV31XX)"_ 1])(((2^_44);2^_41)qteq[;])"4 zS0(([>@(4{])@zSbQ17XX 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