Essays/Tensor Experiments/TensorExperiments22
< Essays | Tensor Experiments
Jump to navigation
Jump to search
NB. ... script experimental.ijs ... R=:B2kcv+SBk
NB. ... execute (ijx) ... gXcw =: 1.2 0.3 _ _ _ "_ gXpAll=: 1.1 1.2 1.3 1.4 1.5"_ xCpts=:_ 1 3 26,_ 0 1p1 26,_ 0 2p1 26,:_ 0 20 26"_ NB. ... 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 (gXT([(vA(((2^_44);2^_24)qteq[;])"5 vB)hkxF)]) ((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. ... EM ... *./^:3"3 (0=]) ((2^_43)qtsz]) (gXT([(]+0|:])"2@:((0 1|:])"3)@(+/"1@((<0 1)|:])"5@R)xRef@hkxF)]) ((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. ... script experimental.ijs ... NB. ... rank 1 ... LamEMr1=:+/"1@((<0 2)|:])"3@(mcn([smx 0|:])"2 3+/"1@((<0 1)|:])"5@Lam) XiEMr1 =:+/"1@((<0 2)|:])"3@(mcn([smx 0|:])"2 3+/"1@((<0 1)|:])"5@Xi ) NB. ... rank 2 ... LamEMr2=:+/"1@((<0 2)|:])"4@(mcn([smx 0|:])"2 4+/"1@((<0 1)|:])"6@Lamcv) XiEMr2 =:+/"1@((<0 2)|:])"4@(mcn([smx 0|:])"2 4+/"1@((<0 1)|:])"6@Xicv ) NB. ... invariants ... LamEMr0=:+/@((<0 1)|:])"2@(mcn([smx 0|:])"2 LamEMr2) XiEMr0 =:+/@((<0 1)|:])"2@(mcn([smx 0|:])"2 XiEMr2 )
NB. ... execute (ijx) ... gXcw =: 1.2 0.3 _ _ _ "_ gXpAll=: 1.1 1.2 1.3 1.4 1.5"_ xCpts=:_ 1 3 26,_ 0 1p1 26,_ 0 2p1 26,:_ 0 20 26"_ NB. ... rank 1 ... *./"1 (0=]) ((2^_44)qtsz]) (gXT([LamEMr1 xRef@hkxF)]) ((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 *./"1 (0=]) ((2^_44)qtsz]) (gXT([XiEMr1 xRef@hkxF)]) ((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. ... rank 2 ... *./^:2"2 (0=]) ((2^_42)qtsz]) (gXT([LamEMr2 xRef@hkxF)]) ((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 *./^:2"2 (0=]) ((2^_44)qtsz]) (gXT([XiEMr2 xRef@hkxF)]) ((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. ... invariants ... (0=]) ((2^_41)qtsz]) (gXT([LamEMr0 xRef@hkxF)]) ((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 (0=]) ((2^_44)qtsz]) (gXT([XiEMr0 xRef@hkxF)]) ((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) ... gXcw =: 1.2 0.3 _ _ _ "_ gXpAll=: 1.1 1.2 1.3 1.4 1.5"_ xCpts=:_ 1 3 26,_ 0 1p1 26,_ 0 2p1 26,:_ 0 20 26"_ NB. ... Maxwell's equation ... *./^:3"3 (0=]) ((2^_43)qtsz]) (gXT([(+/"1@((<0 1)|:])"5@Lam++/"1@((<0 1)|:])"5@Xi)xRef@hkxF)]) ((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
Download: File:LTE2200C.txt
Download: File:LTE2201C.txt
Download: File:LTE2202C.txt
Download MoinMoin source: File:TensorExperiments22.ijs
Next Page: Essays/Tensor Experiments/TensorExperiments23
Prev Page: Essays/Tensor Experiments/TensorExperiments21