User:Tom Allen/ta/AddendumX00P00
< User:Tom Allen | ta
Jump to navigation
Jump to 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) ...
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) ...
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
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
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