User:Tom Allen/ta/AddendumX06P01
< User:Tom Allen | ta
Jump to navigation
Jump to search
NB. ... script experimentalX06.txt ...
pUX06B0=:([zfyXX zfxc"_ 1),:zfxXX
pUX06B1=:(0 1{]),zfhcvXX,zfgcvXX,zfhcnXX,:zfgcnXX
pUX06B2=:<@:>"1@(0|:])@:(pUOmSSXX"_ 1)
hkyX06B=:[(],OcAXX)([pUX06B1 pUX06B0),pUX06B2
NB. ... execute (ijx) ...
pU0=:,:@(1.1 2 2 8 2 1 2 3 0.2"_)
xCpts=:_ 0.7 1.3 51,_ 0.4p1 0.6p1 51,_ 0 2p1 51,:_ 0 2p1 51"_
mtA=:(pU0([Ocndc yRef@hkyX06B)]) zfyc"1 ((0.1;50"_)pTRandom xCpts)''
mtB=:(pU0(0|:])@([:(pU0([(0{])@Ocn yRef@hkyX06B),:@])D.1])"_ 1]) zfyc"1 ((0.1;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=:(pU0([Ocndcdc yRef@hkyX06B)]) zfyc"1 ((0.1;50"_)pTRandom xCpts)''
mtB=:(pU0(0|:])@([:(pU0([(0{])@Ocndc yRef@hkyX06B),:@])D.1])"_ 1]) zfyc"1 ((0.1;50"_)pTRandom xCpts)''
mtA (((2^_44);2^_08)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=:(pU0([Ocndcdcdc yRef@hkyX06B)]) zfyc"1 ((0.1;50"_)pTRandom xCpts)''
mtB=:(pU0(0|:])@([:(pU0([(0{])@Ocndcdc yRef@hkyX06B),:@])D.1])"_ 1]) zfyc"1 ((0.1;50"_)pTRandom xCpts)''
mtA (((2^_44);2^_08)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=:(pU0([Ocndcdcdcdc yRef@hkyX06B)]) zfyc"1 ((0.1;50"_)pTRandom xCpts)''
mtB=:(pU0(0|:])@([:(pU0([(0{])@Ocndcdcdc yRef@hkyX06B),:@])D.1])"_ 1]) zfyc"1 ((0.1;50"_)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) ...
pU0=:,:@(1.1 2 2 8 2 1 2 3 0.2"_)
xCpts=:_ 0.7 1.3 51,_ 0.4p1 0.6p1 51,_ 0 2p1 51,:_ 0 2p1 51"_
mtA=:(pU0([Ocndc xRef@hkyX06B)]) zfyc"1@((0.1;50"_)pTRandom xCpts)''
mtB=:(pU0([(0|:])@([:(pU0([(0{])@Ocn xRef@([hkyX06B zfyc"_ 1)),:@])D.1])"_ 1 zfxc"_ 1)]) zfyc"1@((0.1;50"_)pTRandom xCpts)''
mtA (((2^_30);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=:(pU0([Ocndcdc xRef@hkyX06B)]) zfyc"1@((0.1;50"_)pTRandom xCpts)''
mtB=:(pU0([(0|:])@([:(pU0([(0{])@Ocndc xRef@([hkyX06B zfyc"_ 1)),:@])D.1])"_ 1 zfxc"_ 1)]) zfyc"1@((0.1;50"_)pTRandom xCpts)''
mtA (((2^_25);2^_13)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=:(pU0([Ocndcdcdc xRef@hkyX06B)]) zfyc"1@((0.1;50"_)pTRandom xCpts)''
mtB=:(pU0([(0|:])@([:(pU0([(0{])@Ocndcdc xRef@([hkyX06B zfyc"_ 1)),:@])D.1])"_ 1 zfxc"_ 1)]) zfyc"1@((0.1;50"_)pTRandom xCpts)''
mtA (((2^_23);2^_13)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=:(pU0([Ocndcdcdcdc xRef@hkyX06B)]) zfyc"1@((0.1;50"_)pTRandom xCpts)''
mtB=:(pU0([(0|:])@([:(pU0([(0{])@Ocndcdcdc xRef@([hkyX06B zfyc"_ 1)),:@])D.1])"_ 1 zfxc"_ 1)]) zfyc"1@((0.1;50"_)pTRandom xCpts)''
mtA (((2^_19);2^_13)qteq[;])"5 mtB
NB. ... execute (ijx) ... pU0=:,:@(1.1 2 2 8 2 1 2 3 0.2"_) xCpts=:_ 0.7 1.3 51,_ 0.4p1 0.6p1 51,_ 0 2p1 51,:_ 0 2p1 51"_ (pU0([(([Ocn xRef)(((2^_44);2^_44)qteq[;])"1 xdy smx"2 1[Ocn yRef)hkyX06B)]) 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 (pU0([(([Ocn yRef)(((2^_44);2^_44)qteq[;])"1 ydx smx"2 1[Ocn xRef)hkyX06B)]) 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) ... pU0=:,:@(1 2 2 8 2 1 2 3 0.9"_) 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) (pU0([(([Ocncv xRef)(((2^_44);2^_37)qteq[;])"2 xdy smx"2 2 ydx((0|:[)smx])"2 2 [Ocncv yRef)hkyX06B)]) 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 (pU0([(([Ocncv yRef)(((2^_44);2^_44)qteq[;])"2 ydx smx"2 2 xdy((0|:[)smx])"2 2 [Ocncv xRef)hkyX06B)]) 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) ... pU0=:,:@(1 2 2 8 2 1 2 3 0.9"_) 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 (pU0([Ocncv yRef@hkyX06B)]) 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 (0=]) ((2^_44)qtsz]) +/@((<0 1)|:])"2 (pU0([Ocncv xRef@hkyX06B)]) 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
NB. ... execute (ijx) ... NB. ... the gravitational field is calculated using R ... pU0=:,:@(1 2 2 8 2 1 2 3 0.9"_) xCpts=:_ 0.8 2 27,_ 0.4p1 0.6p1 27,_ 0 2p1 27,:_ 0 2p1 27"_ vB0=:((0|:[)smx])"2 5 vB1=:((0|:[)smx])"2 5 vB2=:((0|:[)smx])"2 5 vB3=:((0|:[)smx])"2 5 vB4=:(( [)smx])"2 5 NB. ... R is a tensor ... vA=:[R xRef vB=:[(xdy vB4 ydx vB3 ydx vB2 ydx vB1 ydx vB0 R)yRef (pU0([(vA(((2^_44);2^_34)qteq[;])"5 vB)hkyX06B)]) zfyc"1@((0.1p1;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 vC=:[R yRef vD=:[(ydx vB4 xdy vB3 xdy vB2 xdy vB1 xdy vB0 R)xRef (pU0([(vC(((2^_44);2^_32)qteq[;])"5 vD)hkyX06B)]) zfyc"1@((0.1p1;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
Next Page: User:Tom Allen/ta/AddendumX06P02
Prev Page: User:Tom Allen/ta/AddendumX06P00