User:Tom Allen/ta/AddendumX00P00

From J Wiki
Jump to: navigation, search


NB. ... script experimentalX00.ijs ...

load jpath '~temp\experimentalT00.ijs'
load jpath '~temp\experimentalU00.ijs'
load jpath '~temp\experimentalU01.ijs'
load jpath '~temp\experimentalU02.ijs'
load jpath '~temp\experimentalV00.ijs'


NB. ... script experimentalX00.ijs ...

hkxX00A=:[((0 1{]),zfhcvXX,zfgcvXX,zfhcnXX,zfgcnXX,2 6$a:"_)zfyXX,([zfxXX zfyc"_ 1),6 6$a:"_


... check derivatives for ch2k ...


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

   xCpts=:_ 1 3 26,_ 0.1p1 0.9p1 26,_ 0 2p1 26,:_ 0 20 26"_

   mtA=:(''([ch2kdc     xRef@hkxX00A)])                                ((0;50"_)pTRandom xCpts)''
   mtB=:(''((0|:[:(''"_([(0{])@ch2k     xRef@hkxX00A),:@])D.1])"_ 1)]) ((0;50"_)pTRandom xCpts)''
   
   mtA (((2^_24);2^_16)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=:(''([ch2kdcdc   xRef@hkxX00A)])                                ((0;50"_)pTRandom xCpts)''
   mtB=:(''((0|:[:(''"_([(0{])@ch2kdc   xRef@hkxX00A),:@])D.1])"_ 1)]) ((0;50"_)pTRandom xCpts)''
   
   mtA (((2^_23);2^_16)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=:(''([ch2kdcdcdc xRef@hkxX00A)])                                ((0;50"_)pTRandom xCpts)''
   mtB=:(''((0|:[:(''"_([(0{])@ch2kdcdc xRef@hkxX00A),:@])D.1])"_ 1)]) ((0;50"_)pTRandom xCpts)''
   
   mtA (((2^_20);2^_16)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


... include an energy distribution ...


NB. ... script experimentalX00.ijs ...

load jpath '~temp\experimentalW00.ijs'


NB. ... script experimentalX00.ijs ...

hkxX00B=:}:@}:@hkxX00A,gX0 hkxW00A]




... see TensorExperiments/TensorExperiments24 (GTE2400C.jpg) ...




GX00P0000C.jpg


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

   gX0=:,:@(1 1 2 8 1 1 1 _1 0 0"_)

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

   (''([(([Ocn xRef)(((2^_44);2^_44)qteq[;])"1 xdy smx"2 1[Ocn yRef)hkxX00B)]) ((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

   (''([(([Ocn yRef)(((2^_44);2^_44)qteq[;])"1 ydx smx"2 1[Ocn xRef)hkxX00B)]) ((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




... see TensorExperiments/TensorExperiments24 (GTE2402D.jpg) ...




GX00P0001D.jpg


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

   gX0=:,:@(1 1 2 8 1 1 1 _1 0 0"_)

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

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

   (0=]) ((2^_44)qtsz]) +/@((<0 1)|:])"2 (''([Ocncv yRef@hkxX00B)]) ((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 (''([Ocncv xRef@hkxX00B)]) ((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


GX00P0002C.jpg


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

   gX0=:,:@(1 1 2 8 1 1 1 _1 0 0"_)
   
   xCpts=:_ 0.7 1.3 21,_ 0.4p1 0.6p1 21,_ 0.01p1 1.99p1 21,:_ 0 2p1 21"_
   
   mtA=:(''([Ocndc       yRef@hkxX00B)])                                          ((0;50"_)pTRandom xCpts)''
   mtB=:(''((0|:[:(''([(0{])@Ocn       yRef@([hkxX00B zfxc"_ 1)),:@])D.1])"_ 1)]) ((0;50"_)zfyc"1@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=:(''([Ocndcdc     yRef@hkxX00B)])                                          ((0;50"_)pTRandom xCpts)''
   mtB=:(''((0|:[:(''([(0{])@Ocndc     yRef@([hkxX00B zfxc"_ 1)),:@])D.1])"_ 1)]) ((0;50"_)zfyc"1@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=:(''([Ocndcdcdc   yRef@hkxX00B)])                                          ((0;50"_)pTRandom xCpts)''
   mtB=:(''((0|:[:(''([(0{])@Ocndcdc   yRef@([hkxX00B zfxc"_ 1)),:@])D.1])"_ 1)]) ((0;50"_)zfyc"1@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=:(''([Ocndcdcdcdc yRef@hkxX00B)])                                          ((0;50"_)pTRandom xCpts)''
   mtB=:(''((0|:[:(''([(0{])@Ocndcdcdc yRef@([hkxX00B zfxc"_ 1)),:@])D.1])"_ 1)]) ((0;50"_)zfyc"1@pTRandom xCpts)''
   
   mtA (((2^_44);2^_08)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


GX00P0003C.jpg


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

   gX0=:,:@(1 1 2 8 1 1 1 _1 0 0"_)
   
   xCpts=:_ 0.7 1.3 26,_ 0.4p1 0.6p1 26,_ 0 2p1 26,:_ 0 2p1 26"_
   
   mtA=:(''([Ocndc       xRef@hkxX00B)])                              ((0;50"_)pTRandom xCpts)''
   mtB=:(''((0|:[:(''([(0{])@Ocn       xRef@hkxX00B),:@])D.1])"_ 1)]) ((0;50"_)pTRandom xCpts)''
   
   mtA (((2^_44);2^_17)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=:(''([Ocndcdc     xRef@hkxX00B)])                              ((0;50"_)pTRandom xCpts)''
   mtB=:(''((0|:[:(''([(0{])@Ocndc     xRef@hkxX00B),:@])D.1])"_ 1)]) ((0;50"_)pTRandom xCpts)''
   
   mtA (((2^_44);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=:(''([Ocndcdcdc   xRef@hkxX00B)])                              ((0;50"_)pTRandom xCpts)''
   mtB=:(''((0|:[:(''([(0{])@Ocndcdc   xRef@hkxX00B),:@])D.1])"_ 1)]) ((0;50"_)pTRandom xCpts)''
   
   mtA (((2^_44);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=:(''([Ocndcdcdcdc xRef@hkxX00B)])                              ((0;50"_)pTRandom xCpts)''
   mtB=:(''((0|:[:(''([(0{])@Ocndcdcdc xRef@hkxX00B),:@])D.1])"_ 1)]) ((0;50"_)pTRandom xCpts)''
   
   mtA (((2^_44);2^_09)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


... verbs to calculate the tensor R (and the covariant derivative of R) ...


NB. ... script experimentalX00.ijs ...

load jpath '~temp\experimentalT01.ijs'


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

   gX0=:,:@(1 1 2 8 1 1 1 _1 0 0"_)
   
   xCpts=:_ 0.7 1.3 26,_ 0.4p1 0.6p1 26,_ 0 2p1 26,:_ 0 2p1 26"_
   
NB. ... R is a tensor ...

   vA =:[R xRef
   vB0=:((0|:[)smx])"2 5
   vB1=:((0|:[)smx])"2 5
   vB2=:((0|:[)smx])"2 5
   vB3=:((0|:[)smx])"2 5
   vB4=:((   [)smx])"2 5
   vB =:[(xdy vB4 ydx vB3 ydx vB2 ydx vB1 ydx vB0 R)yRef

   (''([(vA(((2^_44);2^_28)qteq[;])"5 vB)hkxX00B)]) ((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


... verbs to calculate the electric field, the magnetic field, and the divergence of space and time ...


NB. ... script experimentalX00.ijs ...

load jpath '~temp\experimentalT02.ijs'
load jpath '~temp\experimentalT03.ijs'
load jpath '~temp\experimentalU03.ijs'


... add 2 waves ...


NB. ... script experimentalX00.ijs ...

hkxX00C=:}:@}:@hkxX00A,(gX0 hkxW00A])(+&.>)"1 gX1 hkxW00A]



Download: File:LX00P0000C.txt
Download: File:LX00P0001D.txt
Download: File:LX00P0002C.txt
Download: File:LX00P0003C.txt