User:Tom Allen/ta/AddendumX02P01
< User:Tom Allen | ta
Jump to navigation
Jump to search
NB. ... execute (ijx) ...
vZ0=:1 1 2 8 1 1 8 _8 0,:_0.90"_
xCpts=:_ 0.7 1.3 51,_ 0.4p1 0.6p1 51,_ 0 2p1 51,:_ 0 2p1 51"_
mtA=:(vZ0([Ocndc yRef@hkyX02C)]) ((2^_44)qtsz]) (vZ0 zfyc"_ 1])@((0;50"_)pTRandom xCpts)''
mtB=:(vZ0(0|:])@([:(vZ0([(0{])@Ocn yRef@hkyX02C),:@])D.1])"_ 1]) ((2^_44)qtsz]) (vZ0 zfyc"_ 1])@((0;50"_)pTRandom xCpts)''
mtA (((2^_44);2^_15)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=:(vZ0([Ocndcdc yRef@hkyX02C)]) ((2^_44)qtsz]) (vZ0 zfyc"_ 1])@((0;50"_)pTRandom xCpts)''
mtB=:(vZ0(0|:])@([:(vZ0([(0{])@Ocndc yRef@hkyX02C),:@])D.1])"_ 1]) ((2^_44)qtsz]) (vZ0 zfyc"_ 1])@((0;50"_)pTRandom xCpts)''
mtA (((2^_44);2^_12)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=:(vZ0([Ocndcdcdc yRef@hkyX02C)]) ((2^_44)qtsz]) (vZ0 zfyc"_ 1])@((0;50"_)pTRandom xCpts)''
mtB=:(vZ0(0|:])@([:(vZ0([(0{])@Ocndcdc yRef@hkyX02C),:@])D.1])"_ 1]) ((2^_44)qtsz]) (vZ0 zfyc"_ 1])@((0;50"_)pTRandom xCpts)''
mtA (((2^_44);2^_11)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=:(vZ0([Ocndcdcdcdc yRef@hkyX02C)]) ((2^_44)qtsz]) (vZ0 zfyc"_ 1])@((0;50"_)pTRandom xCpts)''
mtB=:(vZ0(0|:])@([:(vZ0([(0{])@Ocndcdcdc yRef@hkyX02C),:@])D.1])"_ 1]) ((2^_44)qtsz]) (vZ0 zfyc"_ 1])@((0;50"_)pTRandom xCpts)''
mtA (((2^_44);2^_07)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) ...
vZ0=:1 1 2 8 1 1 8 _8 0,:_0.90"_
xCpts=:_ 0.7 1.3 51,_ 0.4p1 0.6p1 51,_ 0 2p1 51,:_ 0 2p1 51"_
mtA=:(vZ0([Ocndc zRef@hkyX02C)]) ((2^_44)qtsz]) (vZ0 zfyc"_ 1])@((0;50"_)pTRandom xCpts)''
mtB=:(vZ0([(0|:])@([:(vZ0([(0{])@Ocn zRef@([hkyX02C vZyc"_ 1)),:@])D.1])"_ 1 vZzc"_ 1)]) ((2^_44)qtsz]) (vZ0 zfyc"_ 1])@((0;50"_)pTRandom xCpts)''
mtA (((2^_44);2^_08)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=:(vZ0([Ocndcdc zRef@hkyX02C)]) ((2^_44)qtsz]) (vZ0 zfyc"_ 1])@((0;50"_)pTRandom xCpts)''
mtB=:(vZ0([(0|:])@([:(vZ0([(0{])@Ocndc zRef@([hkyX02C vZyc"_ 1)),:@])D.1])"_ 1 vZzc"_ 1)]) ((2^_44)qtsz]) (vZ0 zfyc"_ 1])@((0;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=:(vZ0([Ocndcdcdc zRef@hkyX02C)]) ((2^_44)qtsz]) (vZ0 zfyc"_ 1])@((0;50"_)pTRandom xCpts)''
mtB=:(vZ0([(0|:])@([:(vZ0([(0{])@Ocndcdc zRef@([hkyX02C vZyc"_ 1)),:@])D.1])"_ 1 vZzc"_ 1)]) ((2^_44)qtsz]) (vZ0 zfyc"_ 1])@((0;50"_)pTRandom xCpts)''
mtA (((2^_44);2^_07)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=:(vZ0([Ocndcdcdcdc zRef@hkyX02C)]) ((2^_44)qtsz]) (vZ0 zfyc"_ 1])@((0;50"_)pTRandom xCpts)''
mtB=:(vZ0([(0|:])@([:(vZ0([(0{])@Ocndcdcdc zRef@([hkyX02C vZyc"_ 1)),:@])D.1])"_ 1 vZzc"_ 1)]) ((2^_44)qtsz]) (vZ0 zfyc"_ 1])@((0;50"_)pTRandom xCpts)''
mtA (((2^_44);2^_05)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) ... vZ0=:1 1 2 8 1 1 8 _8 0,:_0.90"_ xCpts=:_ 0.7 1.3 51,_ 0.4p1 0.6p1 51,_ 0 2p1 51,:_ 0 2p1 51"_ *./^:3"3 (0=]) (vZ0([ch2k zRef@hkyX02C)]) (vZ0 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 *./^:4"4 (0=]) (vZ0([ch2kdc zRef@hkyX02C)]) (vZ0 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 *./^:5"5 (0=]) (vZ0([ch2kdcdc zRef@hkyX02C)]) (vZ0 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 *./^:6"6 (0=]) (vZ0([ch2kdcdcdc zRef@hkyX02C)]) (vZ0 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) ... vZ0=:1 1 2 8 1 1 8 _8 0,:_0.90"_ xCpts=:_ 0.7 1.3 51,_ 0.4p1 0.6p1 51,_ 0 2p1 51,:_ 0 2p1 51"_ (vZ0([(([Ocn zRef)(((2^_44);2^_44)qteq[;])"1 zdy smx"2 1[Ocn yRef)hkyX02C)]) (vZ0 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 (vZ0([(([Ocn yRef)(((2^_44);2^_44)qteq[;])"1 ydz smx"2 1[Ocn zRef)hkyX02C)]) (vZ0 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) ... vZ0=:1 1 2 8 1 1 8 _8 0,:_0.90"_ xCpts=:_ 0.7 1.3 51,_ 0.4p1 0.6p1 51,_ 0 2p1 51,:_ 0 2p1 51"_ NB. ... R is a tensor ... vA =:[R zRef 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 =:[(zdy vB4 ydz vB3 ydz vB2 ydz vB1 ydz vB0 R)yRef (vZ0([(vA(((2^_40);2^_30)qteq[;])"5 vB)hkyX02C)]) (vZ0 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) ... vZ0=:1 1 2 8 1 1 8 _8 0,:_0.90"_ xCpts=:_ 0.7 1.3 51,_ 0.4p1 0.6p1 51,_ 0 2p1 51,:_ 0 2p1 51"_ NB. ... conservation of energy (y-coordinates) ... (0=]) ((2^_44)qtsz]) +/@((<0 1)|:])"2 (vZ0([Ocndc yRef@hkyX02C)]) (vZ0 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. ... conservation of energy (z-coordinates) ... (0=]) ((2^_44)qtsz]) +/@((<0 1)|:])"2 (vZ0([Ocndc zRef@hkyX02C)]) (vZ0 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
... in y-coordinates the tensors for lowering and raising indices on tensors ...
NB. ... execute (ijx) ... vZ0=:1 1 2 8 1 1 8 _8 0,:_0.90"_ xCpts=:_ 0.7 1.3 51,_ 0.4p1 0.6p1 51,_ 0 2p1 51,:_ 0 2p1 51"_ (vZ0([(mcv,mcn)yRef@hkyX02C)]) (vZ0 zfyc"_ 1])@((0;1"_)pTRandom xCpts)'' 1 0 0 0 0 1 0 0 0 0 1 0 0 0 0 _1 1 0 0 0 0 1 0 0 0 0 1 0 0 0 0 _1
... in z-coordinates the tensors for lowering and raising indices on tensors ...
NB. ... execute (ijx) ... vZ0=:1 1 2 8 1 1 8 _8 0,:_0.90"_ xCpts=:_ 0.7 1.3 51,_ 0.4p1 0.6p1 51,_ 0 2p1 51,:_ 0 2p1 51"_ (vZ0([(mcv,mcn)zRef@hkyX02C)]) (vZ0 zfyc"_ 1])@((0;1"_)pTRandom xCpts)'' NB. ... "Special" ... 1 0 0 0 0 1 0 0 0 0 1 0 0 0 0 _1 1 0 0 0 0 1 0 0 0 0 1 0 0 0 0 _1
Download: File:LX02P0100C.txt
Download: File:LX02P0101C.txt
Download: File:LX02P0102D.txt
Download: File:LX02P0103C.txt
Download: File:LX02P0104D.txt
Download: File:LX02P0105C.txt
Next Page: User:Tom Allen/ta/AddendumX02P02
Prev Page: User:Tom Allen/ta/AddendumX02P00