User:Tom Allen/TensorExperimentsR06
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'
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'
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'
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'
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'
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'