# Essays/Tensor Experiments/TensorExperiments19

```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
```