Essays/Tensor Experiments/TensorExperiments19

From J Wiki
Jump to navigation Jump to search


GTE1900C.jpg


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 )


GTE1901C.jpg


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


GTE1902C.jpg


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)


GTE1903C.jpg


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