Essays/Tensor Experiments/TensorExperiments19
< Essays | Tensor Experiments
Jump to navigation
Jump to search
NB. ... script experimental.ijs ... NB. ... rank 1 ... B2kCEr1=:+/"1@((<0 1)|:])"3@(mcn([smx 0|:])"2 3+/"1@((<0 3)|:])"5@B2kcv) SBkCEr1=:+/"1@((<0 1)|:])"3@(mcn([smx 0|:])"2 3+/"1@((<0 3)|:])"5@SBk ) LamCEr1=:+/"1@((<0 1)|:])"3@(mcn([smx 0|:])"2 3+/"1@((<0 3)|:])"5@Lam ) XiCEr1 =:+/"1@((<0 1)|:])"3@(mcn([smx 0|:])"2 3+/"1@((<0 3)|:])"5@Xi ) NB. ... rank 2 ... B2kCEr2=:+/"1@((<0 1)|:])"4@(mcn([smx 0|:])"2 4+/"1@((<0 3)|:])"6@B2kcvcv) SBkCEr2=:+/"1@((<0 1)|:])"4@(mcn([smx 0|:])"2 4+/"1@((<0 3)|:])"6@SBkcv ) LamCEr2=:+/"1@((<0 1)|:])"4@(mcn([smx 0|:])"2 4+/"1@((<0 3)|:])"6@Lamcv ) XiCEr2 =:+/"1@((<0 1)|:])"4@(mcn([smx 0|:])"2 4+/"1@((<0 3)|:])"6@Xicv ) NB. ... invariants ... B2kCEr0=:+/@((<0 1)|:])"2@(mcn([smx 0|:])"2 B2kCEr2) SBkCEr0=:+/@((<0 1)|:])"2@(mcn([smx 0|:])"2 SBkCEr2) LamCEr0=:+/@((<0 1)|:])"2@(mcn([smx 0|:])"2 LamCEr2) XiCEr0 =:+/@((<0 1)|:])"2@(mcn([smx 0|:])"2 XiCEr2 )
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 ... vA00=:[B2kCEr1 xRef vB00=:[(ydx((0|:[)smx])"2 1 B2kCEr1)yRef (gXT([(vA00(((2^_44);2^_33)qteq[;])"1 vB00)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 vA01=:[SBkCEr1 xRef vB01=:[(ydx((0|:[)smx])"2 1 SBkCEr1)yRef (gXT([(vA01(((2^_44);2^_39)qteq[;])"1 vB01)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 vA02=:[LamCEr1 xRef vB02=:[(ydx((0|:[)smx])"2 1 LamCEr1)yRef (gXT([(vA02(((2^_44);2^_32)qteq[;])"1 vB02)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 vA03=:[XiCEr1 xRef vB03=:[(ydx((0|:[)smx])"2 1 XiCEr1)yRef (gXT([(vA03(((2^_44);2^_39)qteq[;])"1 vB03)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 ... vA04=:[B2kCEr2 xRef vB04=:[(ydx((0|:[)smx])"2 ydx((0|:[)smx])"2 B2kCEr2)yRef (gXT([(vA04(((2^_44);2^_30)qteq[;])"2 vB04)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 vA05=:[SBkCEr2 xRef vB05=:[(ydx((0|:[)smx])"2 ydx((0|:[)smx])"2 SBkCEr2)yRef (gXT([(vA05(((2^_44);2^_38)qteq[;])"2 vB05)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 vA06=:[LamCEr2 xRef vB06=:[(ydx((0|:[)smx])"2 ydx((0|:[)smx])"2 LamCEr2)yRef (gXT([(vA06(((2^_44);2^_27)qteq[;])"2 vB06)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 vA07=:[XiCEr2 xRef vB07=:[(ydx((0|:[)smx])"2 ydx((0|:[)smx])"2 XiCEr2)yRef (gXT([(vA07(((2^_44);2^_33)qteq[;])"2 vB07)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 ... (gXT([(([B2kCEr0 xRef)(((2^_44);2^_35)qteq[;])"0[B2kCEr0 yRef)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 (gXT([(([SBkCEr0 xRef)(((2^_44);2^_41)qteq[;])"0[SBkCEr0 yRef)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 (gXT([(([LamCEr0 xRef)(((2^_44);2^_27)qteq[;])"0[LamCEr0 yRef)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 (gXT([(([XiCEr0 xRef)(((2^_44);2^_36)qteq[;])"0[XiCEr0 yRef)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. ... one invariant here (+/-) ... (gXT([(([LamCEr0 xRef)(((2^_44);2^_27)qteq[;])"0-@([XiCEr0 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 ... B2kEMr1=:+/"1@((<0 2)|:])"3@(mcn([smx 0|:])"2 3+/"1@((<0 1)|:])"5@B2kcv) SBkEMr1=:+/"1@((<0 2)|:])"3@(mcn([smx 0|:])"2 3+/"1@((<0 1)|:])"5@SBk ) NB. ... rank 2 ... B2kEMr2=:+/"1@((<0 2)|:])"4@(mcn([smx 0|:])"2 4+/"1@((<0 1)|:])"6@B2kcvcv) SBkEMr2=:+/"1@((<0 2)|:])"4@(mcn([smx 0|:])"2 4+/"1@((<0 1)|:])"6@SBkcv ) NB. ... invariants ... B2kEMr0=:+/@((<0 1)|:])"2@(mcn([smx 0|:])"2 B2kEMr2) SBkEMr0=:+/@((<0 1)|:])"2@(mcn([smx 0|:])"2 SBkEMr2)
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 ... vA10=:[B2kEMr1 xRef vB10=:[(ydx((0|:[)smx])"2 1 B2kEMr1)yRef (gXT([(vA10(((2^_44);2^_39)qteq[;])"1 vB10)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 vA11=:[SBkEMr1 xRef vB11=:[(ydx((0|:[)smx])"2 1 SBkEMr1)yRef (gXT([(vA11(((2^_44);2^_38)qteq[;])"1 vB11)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 ... vA12=:[B2kEMr2 xRef vB12=:[(ydx((0|:[)smx])"2 ydx((0|:[)smx])"2 B2kEMr2)yRef (gXT([(vA12(((2^_44);2^_35)qteq[;])"2 vB12)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 vA13=:[SBkEMr2 xRef vB13=:[(ydx((0|:[)smx])"2 ydx((0|:[)smx])"2 SBkEMr2)yRef (gXT([(vA13(((2^_44);2^_37)qteq[;])"2 vB13)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 ... (gXT([(([B2kEMr0 xRef)(((2^_44);2^_32)qteq[;])"0[B2kEMr0 yRef)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 (gXT([(([SBkEMr0 xRef)(((2^_44);2^_44)qteq[;])"0[SBkEMr0 yRef)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:LTE1900C.txt
Download: File:LTE1901C.txt
Download: File:LTE1902C.txt
Download: File:LTE1903C.txt
Download MoinMoin source: File:TensorExperiments19.ijs
Next Page: Essays/Tensor Experiments/TensorExperiments20
Prev Page: Essays/Tensor Experiments/TensorExperiments18