User:Tom Allen/TensorExperimentsR06

From J Wiki
Jump to navigation Jump to search


NB. ... script experimentalR.ijs ...

rfzV1rb=:^@(]^1:)+^@-@(]^1:)
rfzV2rb=:^@(]^2:)+^@-@(]^2:)
rfzV3rb=:^@(]^3:)+^@-@(]^3:)
rfzV4rb=:^@(]^4:)+^@-@(]^4:)
rfzV5rb=:^@(]^5:)+^@-@(]^5:)


NB. ... script experimentalR.ijs ...

rfzA1XX=:^@(]^1:);^@(]^1:);^@(]^1:);^@(]^1:);^@(]^1:);^@(]^1:)
rfzA2XX=:^@(]^2:);^@(]^2:);^@(]^2:);^@(]^2:);^@(]^2:);^@(]^2:)
rfzA3XX=:^@(]^3:);^@(]^3:);^@(]^3:);^@(]^3:);^@(]^3:);^@(]^3:)
rfzA4XX=:^@(]^4:);^@(]^4:);^@(]^4:);^@(]^4:);^@(]^4:);^@(]^4:)
rfzA5XX=:^@(]^5:);^@(]^5:);^@(]^5:);^@(]^5:);^@(]^5:);^@(]^5:)

rfzB1XX=:(]^1:);(1*]^0:);         0;           0;             0;             0:
rfzB2XX=:(]^2:);(2*]^1:);(2*1*]^0:);           0;             0;             0:
rfzB3XX=:(]^3:);(3*]^2:);(3*2*]^1:);(3*2*1*]^0:);             0;             0:
rfzB4XX=:(]^4:);(4*]^3:);(4*3*]^2:);(4*3*2*]^1:);(4*3*2*1*]^0:);             0:
rfzB5XX=:(]^5:);(5*]^4:);(5*4*]^3:);(5*4*3*]^2:);(5*4*3*2*]^1:);(5*4*3*2*1*]^0:)

rfzC1XX=:^@-@(]^1:);^@-@(]^1:);^@-@(]^1:);^@-@(]^1:);^@-@(]^1:);^@-@(]^1:)
rfzC2XX=:^@-@(]^2:);^@-@(]^2:);^@-@(]^2:);^@-@(]^2:);^@-@(]^2:);^@-@(]^2:)
rfzC3XX=:^@-@(]^3:);^@-@(]^3:);^@-@(]^3:);^@-@(]^3:);^@-@(]^3:);^@-@(]^3:)
rfzC4XX=:^@-@(]^4:);^@-@(]^4:);^@-@(]^4:);^@-@(]^4:);^@-@(]^4:);^@-@(]^4:)
rfzC5XX=:^@-@(]^5:);^@-@(]^5:);^@-@(]^5:);^@-@(]^5:);^@-@(]^5:);^@-@(]^5:)

rfzD1XX=:-@(]^1:);(_1*]^0:);          0;            0;              0;              0:
rfzD2XX=:-@(]^2:);(_2*]^1:);(_2*1*]^0:);            0;              0;              0:
rfzD3XX=:-@(]^3:);(_3*]^2:);(_3*2*]^1:);(_3*2*1*]^0:);              0;              0:
rfzD4XX=:-@(]^4:);(_4*]^3:);(_4*3*]^2:);(_4*3*2*]^1:);(_4*3*2*1*]^0:);              0:
rfzD5XX=:-@(]^5:);(_5*]^4:);(_5*4*]^3:);(_5*4*3*]^2:);(_5*4*3*2*]^1:);(_5*4*3*2*1*]^0:)

rfzR1XX=:rfFN5@(rfzA1XX,:rfzB1XX)+&.>"1 rfFN5@(rfzC1XX,:rfzD1XX)
rfzR2XX=:rfFN5@(rfzA2XX,:rfzB2XX)+&.>"1 rfFN5@(rfzC2XX,:rfzD2XX)
rfzR3XX=:rfFN5@(rfzA3XX,:rfzB3XX)+&.>"1 rfFN5@(rfzC3XX,:rfzD3XX)
rfzR4XX=:rfFN5@(rfzA4XX,:rfzB4XX)+&.>"1 rfFN5@(rfzC4XX,:rfzD4XX)
rfzR5XX=:rfFN5@(rfzA5XX,:rfzB5XX)+&.>"1 rfFN5@(rfzC5XX,:rfzD5XX)


NB. ... script experimentalR.ijs ...

rfzN1XX=:(rfzV1rb^_1:);(_1*rfzV1rb^_2:);(_1*_2*rfzV1rb^_3:);(_1*_2*_3*rfzV1rb^_4:);(_1*_2*_3*_4*rfzV1rb^_5:);_1*_2*_3*_4*_5*rfzV1rb^_6:
rfzN2XX=:(rfzV2rb^_1:);(_1*rfzV2rb^_2:);(_1*_2*rfzV2rb^_3:);(_1*_2*_3*rfzV2rb^_4:);(_1*_2*_3*_4*rfzV2rb^_5:);_1*_2*_3*_4*_5*rfzV2rb^_6:
rfzN3XX=:(rfzV3rb^_1:);(_1*rfzV3rb^_2:);(_1*_2*rfzV3rb^_3:);(_1*_2*_3*rfzV3rb^_4:);(_1*_2*_3*_4*rfzV3rb^_5:);_1*_2*_3*_4*_5*rfzV3rb^_6:
rfzN4XX=:(rfzV4rb^_1:);(_1*rfzV4rb^_2:);(_1*_2*rfzV4rb^_3:);(_1*_2*_3*rfzV4rb^_4:);(_1*_2*_3*_4*rfzV4rb^_5:);_1*_2*_3*_4*_5*rfzV4rb^_6:
rfzN5XX=:(rfzV5rb^_1:);(_1*rfzV5rb^_2:);(_1*_2*rfzV5rb^_3:);(_1*_2*_3*rfzV5rb^_4:);(_1*_2*_3*_4*rfzV5rb^_5:);_1*_2*_3*_4*_5*rfzV5rb^_6:

rfzM1XX=:rfFN5@(rfzN1XX,:rfzR1XX)
rfzM2XX=:rfFN5@(rfzN2XX,:rfzR2XX)
rfzM3XX=:rfFN5@(rfzN3XX,:rfzR3XX)
rfzM4XX=:rfFN5@(rfzN4XX,:rfzR4XX)
rfzM5XX=:rfFN5@(rfzN5XX,:rfzR5XX)


load 'plot'

pd (];>@(0{])@rfzM1XX"0) pTsteps _ _5 5 1000
pd (];>@(0{])@rfzM2XX"0) pTsteps _ _5 5 1000
pd (];>@(0{])@rfzM3XX"0) pTsteps _ _5 5 1000
pd (];>@(0{])@rfzM4XX"0) pTsteps _ _5 5 1000
pd (];>@(0{])@rfzM5XX"0) pTsteps _ _5 5 1000

pd 'pdf'
pd 'show'


JTER0600D.jpg


NB. ... execute (ijx) ...

   zCpts=:_ _4 4 1000
   
   (>@(1{])@rfzM1XX(((2^_44);2^_22)qteq[;])>@(0{])@rfzM1XX D.1)"0 ] 50 rfRandom zCpts
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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{])@rfzM1XX(((2^_44);2^_20)qteq[;])>@(1{])@rfzM1XX D.1)"0 ] 50 rfRandom zCpts
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
   
   (>@(3{])@rfzM1XX(((2^_44);2^_19)qteq[;])>@(2{])@rfzM1XX D.1)"0 ] 50 rfRandom zCpts
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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{])@rfzM1XX(((2^_44);2^_17)qteq[;])>@(3{])@rfzM1XX D.1)"0 ] 50 rfRandom zCpts
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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{])@rfzM1XX(((2^_44);2^_17)qteq[;])>@(4{])@rfzM1XX D.1)"0 ] 50 rfRandom zCpts
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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) ...

   zCpts=:_ _2 2 1000
   
   (>@(1{])@rfzM2XX(((2^_44);2^_13)qteq[;])>@(0{])@rfzM2XX D.1)"0 ] 50 rfRandom zCpts
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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{])@rfzM2XX(((2^_44);2^_16)qteq[;])>@(1{])@rfzM2XX D.1)"0 ] 50 rfRandom zCpts
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
   
   (>@(3{])@rfzM2XX(((2^_44);2^_17)qteq[;])>@(2{])@rfzM2XX D.1)"0 ] 50 rfRandom zCpts
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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{])@rfzM2XX(((2^_44);2^_17)qteq[;])>@(3{])@rfzM2XX D.1)"0 ] 50 rfRandom zCpts
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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{])@rfzM2XX(((2^_44);2^_17)qteq[;])>@(4{])@rfzM2XX D.1)"0 ] 50 rfRandom zCpts
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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) ...

   zCpts=:_ 0.5 1.5 1000
   
   (>@(1{])@rfzM3XX(((2^_44);2^_21)qteq[;])>@(0{])@rfzM3XX D.1)"0 ] 50 rfRandom zCpts
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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{])@rfzM3XX(((2^_44);2^_16)qteq[;])>@(1{])@rfzM3XX D.1)"0 ] 50 rfRandom zCpts
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
   
   (>@(3{])@rfzM3XX(((2^_44);2^_17)qteq[;])>@(2{])@rfzM3XX D.1)"0 ] 50 rfRandom zCpts
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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{])@rfzM3XX(((2^_44);2^_15)qteq[;])>@(3{])@rfzM3XX D.1)"0 ] 50 rfRandom zCpts
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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{])@rfzM3XX(((2^_44);2^_18)qteq[;])>@(4{])@rfzM3XX D.1)"0 ] 50 rfRandom zCpts
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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) ...

   zCpts=:_ 0.5 1.5 1000
   
   (>@(1{])@rfzM4XX(((2^_44);2^_20)qteq[;])>@(0{])@rfzM4XX D.1)"0 ] 50 rfRandom zCpts
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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{])@rfzM4XX(((2^_44);2^_16)qteq[;])>@(1{])@rfzM4XX D.1)"0 ] 50 rfRandom zCpts
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
   
   (>@(3{])@rfzM4XX(((2^_44);2^_10)qteq[;])>@(2{])@rfzM4XX D.1)"0 ] 50 rfRandom zCpts
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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{])@rfzM4XX(((2^_44);2^_15)qteq[;])>@(3{])@rfzM4XX D.1)"0 ] 50 rfRandom zCpts
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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{])@rfzM4XX(((2^_44);2^_15)qteq[;])>@(4{])@rfzM4XX D.1)"0 ] 50 rfRandom zCpts
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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) ...

   zCpts=:_ 0.7 1.3 1000
   
   (>@(1{])@rfzM5XX(((2^_44);2^_20)qteq[;])>@(0{])@rfzM5XX D.1)"0 ] 50 rfRandom zCpts
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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{])@rfzM5XX(((2^_44);2^_11)qteq[;])>@(1{])@rfzM5XX D.1)"0 ] 50 rfRandom zCpts
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
   
   (>@(3{])@rfzM5XX(((2^_44);2^_14)qteq[;])>@(2{])@rfzM5XX D.1)"0 ] 50 rfRandom zCpts
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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{])@rfzM5XX(((2^_44);2^_12)qteq[;])>@(3{])@rfzM5XX D.1)"0 ] 50 rfRandom zCpts
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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{])@rfzM5XX(((2^_44);2^_15)qteq[;])>@(4{])@rfzM5XX D.1)"0 ] 50 rfRandom zCpts
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1


load 'plot'

pd (];>@(0{])@rfzM1XX"0) pTsteps _ _4 4 1000
pd (];>@(1{])@rfzM1XX"0) pTsteps _ _4 4 1000
pd (];>@(2{])@rfzM1XX"0) pTsteps _ _4 4 1000
pd (];>@(3{])@rfzM1XX"0) pTsteps _ _4 4 1000
pd (];>@(4{])@rfzM1XX"0) pTsteps _ _4 4 1000
pd (];>@(5{])@rfzM1XX"0) pTsteps _ _4 4 1000

pd 'pdf'
pd 'show'


JTER0601C.jpg


load 'plot'

pd (];>@(0{])@rfzM2XX"0) pTsteps _ _3 3 1000
pd (];>@(1{])@rfzM2XX"0) pTsteps _ _3 3 1000
pd (];>@(2{])@rfzM2XX"0) pTsteps _ _3 3 1000
pd (];>@(3{])@rfzM2XX"0) pTsteps _ _3 3 1000
pd (];>@(4{])@rfzM2XX"0) pTsteps _ _3 3 1000
pd (];>@(5{])@rfzM2XX"0) pTsteps _ _3 3 1000

pd 'pdf'
pd 'show'


JTER0602C.jpg


load 'plot'

pd (];>@(0{])@rfzM3XX"0) pTsteps _ _2.5 2.5 1000
pd (];>@(1{])@rfzM3XX"0) pTsteps _ _2.5 2.5 1000
pd (];>@(2{])@rfzM3XX"0) pTsteps _ _2.5 2.5 1000
pd (];>@(3{])@rfzM3XX"0) pTsteps _ _2.5 2.5 1000
pd (];>@(4{])@rfzM3XX"0) pTsteps _ _2.5 2.5 1000
pd (];>@(5{])@rfzM3XX"0) pTsteps _ _2.5 2.5 1000

pd 'pdf'
pd 'show'


JTER0603C.jpg


load 'plot'

pd (];>@(0{])@rfzM4XX"0) pTsteps _ _2 2 1000
pd (];>@(1{])@rfzM4XX"0) pTsteps _ _2 2 1000
pd (];>@(2{])@rfzM4XX"0) pTsteps _ _2 2 1000
pd (];>@(3{])@rfzM4XX"0) pTsteps _ _2 2 1000
pd (];>@(4{])@rfzM4XX"0) pTsteps _ _2 2 1000
pd (];>@(5{])@rfzM4XX"0) pTsteps _ _2 2 1000

pd 'pdf'
pd 'show'


JTER0604C.jpg


load 'plot'

pd (];>@(0{])@rfzM5XX"0) pTsteps _ _1.8 1.8 1000
pd (];>@(1{])@rfzM5XX"0) pTsteps _ _1.8 1.8 1000
pd (];>@(2{])@rfzM5XX"0) pTsteps _ _1.8 1.8 1000
pd (];>@(3{])@rfzM5XX"0) pTsteps _ _1.8 1.8 1000
pd (];>@(4{])@rfzM5XX"0) pTsteps _ _1.8 1.8 1000
pd (];>@(5{])@rfzM5XX"0) pTsteps _ _1.8 1.8 1000

pd 'pdf'
pd 'show'


JTER0605C.jpg