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