User:Tom Allen/TensorExperimentsZ26
Jump to navigation
Jump to search
NB. ... script experimentalZ.ijs ... fezL =:(gXm10*cn0)+gXm11*cn3 fezLXX=:fezL;(gXm10,0,0,gXm11);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: fezPXX=:[cfFN5(^@fezL;^@fezL;^@fezL;^@fezL;^@fezL;^@fezL),:fezLXX fezR =:-@((gXm10*cn0)+gXm11*cn3) fezRXX=:fezR;(-@gXm10,0,0,-@gXm11);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: fezMXX=:[cfFN5(^@fezR;^@fezR;^@fezR;^@fezR;^@fezR;^@fezR),:fezRXX fezXX=:fezPXX+&.>fezMXX
NB. ... execute (ijx) ... gXm0All=: _ _ _ _ "_ gXm1All=: 1.4 1.5 1.6 1.7"_ nCpts=:_ _4 4 161,_ 0 0 0,_ 0 0 0,:_ _4 4 161"_ (gXM((fez-:cfXX0@fezXX)"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM((fezdn-:cfXX1@fezXX)"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX1@fezXX"_ 1(((2^_44);2^_18)qteq[;])"1(0|:[:(gXM cfXX0@fezXX])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX2@fezXX"_ 1(((2^_44);2^_21)qteq[;])"2(0|:[:(gXM cfXX1@fezXX])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX3@fezXX"_ 1(((2^_44);2^_18)qteq[;])"3(0|:[:(gXM cfXX2@fezXX])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX4@fezXX"_ 1(((2^_44);2^_21)qteq[;])"4(0|:[:(gXM cfXX3@fezXX])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX5@fezXX"_ 1(((2^_44);2^_18)qteq[;])"5(0|:[:(gXM cfXX4@fezXX])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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 experimentalZ.ijs ... fezpow=:_1"_ fezU0=: fez^fezpow fezU1=: fezpow*fez^fezpow+_1: fezU2=: (fezpow+_1:)*fezpow*fez^fezpow+_2: fezU3=: (fezpow+_2:)*(fezpow+_1:)*fezpow*fez^fezpow+_3: fezU4=: (fezpow+_3:)*(fezpow+_2:)*(fezpow+_1:)*fezpow*fez^fezpow+_4: fezU5=:(fezpow+_4:)*(fezpow+_3:)*(fezpow+_2:)*(fezpow+_1:)*fezpow*fez^fezpow+_5: fexXX=:[cfMP5 gXm13XX,:[cfFN5(fezU0;fezU1;fezU2;fezU3;fezU4;fezU5),:fezXX
NB. ... execute (ijx) ... gXm0All=: _ _ _ _ "_ gXm1All=: 1.4 1.5 1.6 1.7"_ nCpts=:_ _4 4 161,_ 0 0 0,_ 0 0 0,:_ _4 4 161"_ (gXM((fex-:cfXX0@fexXX)"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM((fexdn-:cfXX1@fexXX)"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX1@fexXX"_ 1(((2^_44);2^_18)qteq[;])"1(0|:[:(gXM cfXX0@fexXX])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX2@fexXX"_ 1(((2^_44);2^_18)qteq[;])"2(0|:[:(gXM cfXX1@fexXX])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX3@fexXX"_ 1(((2^_44);2^_18)qteq[;])"3(0|:[:(gXM cfXX2@fexXX])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX4@fexXX"_ 1(((2^_44);2^_15)qteq[;])"4(0|:[:(gXM cfXX3@fexXX])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX5@fexXX"_ 1(((2^_44);2^_17)qteq[;])"5(0|:[:(gXM cfXX4@fexXX])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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 experimentalZ.ijs ...
fexn0XX=:[((0{])@cfXX1;(0{])@cfXX2;(0{])@cfXX3;(0{])@cfXX4;(0{])@cfXX5;_"_)fexXX
fexn3XX=:[((3{])@cfXX1;(3{])@cfXX2;(3{])@cfXX3;(3{])@cfXX4;(3{])@cfXX5;_"_)fexXX
m12cn3 =:gXm12*cn3
m12cn3XX=:[cfMP4 gXm12XX,:cn3XX
OnD0XXt0=:[cfMP4-&.>@gXm12XX,:[cfMP4 fexXX,:[cfFN4(sin@m12cn3;cos@m12cn3;-@sin@m12cn3;-@cos@m12cn3;sin@m12cn3;_"_),:m12cn3XX
OnD0XXt1=:[cfMP4 fexn3XX,:[cfFN4(cos@m12cn3;-@sin@m12cn3;-@cos@m12cn3;sin@m12cn3;cos@m12cn3;_"_),:m12cn3XX
OnD0XX =:OnD0XXt0+&.>OnD0XXt1
OnD1XX=:0;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
OnD2XX=:0;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_
OnD3XX=:[cfMP4-&.>@fexn0XX,:[cfFN4(cos@m12cn3;-@sin@m12cn3;-@cos@m12cn3;sin@m12cn3;cos@m12cn3;_"_),:m12cn3XX
OnDXXS=:<@:>"1@(0|:])@(OnD0XX,OnD1XX,OnD2XX,:OnD3XX)
NB. ... execute (ijx) ... gXm0All=: _ _ _ _ "_ gXm1All=: 1.4 1.5 1.6 1.7"_ nCpts=:_ _4 4 161,_ 0 0 0,_ 0 0 0,:_ _4 4 161"_ (gXM((OnD-:cfXX0@OnDXXS)"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM((OnDdn-:!.(2^_43)cfXX1@OnDXXS)"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX1@OnDXXS"_ 1(((2^_44);2^_15)qteq[;])"2(0|:[:(gXM cfXX0@OnDXXS])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX2@OnDXXS"_ 1(((2^_44);2^_10)qteq[;])"3(0|:[:(gXM cfXX1@OnDXXS])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX3@OnDXXS"_ 1(((2^_44);2^_15)qteq[;])"4(0|:[:(gXM cfXX2@OnDXXS])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX4@OnDXXS"_ 1(((2^_44);2^_16)qteq[;])"5(0|:[:(gXM cfXX3@OnDXXS])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (0=]) ((2^_44)qtsz]) +/@((<0 1)|:])"2 (gXM cfXX1@OnDXXS"_ 1]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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 experimentalZ.ijs ... bezL =:(gXm00*cn0)+gXm01*cn3 bezLXX=:bezL;(gXm00,0,0,gXm01);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: bezPXX=:[cfFN5(^@bezL;^@bezL;^@bezL;^@bezL;^@bezL;^@bezL),:bezLXX bezR =:-@((gXm00*cn0)+gXm01*cn3) bezRXX=:bezR;(-@gXm00,0,0,-@gXm01);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0: bezMXX=:[cfFN5(^@bezR;^@bezR;^@bezR;^@bezR;^@bezR;^@bezR),:bezRXX bezXX=:bezPXX+&.>bezMXX
NB. ... execute (ijx) ... gXm0All=: 1.3 1.4 _ 1.6"_ gXm1All=: _ _ _ _ "_ nCpts=:_ _4 4 161,_ 0 0 0,_ 0 0 0,:_ _4 4 161"_ (gXM((bez-:cfXX0@bezXX)"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM((bezdn-:cfXX1@bezXX)"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX1@bezXX"_ 1(((2^_44);2^_18)qteq[;])"1(0|:[:(gXM cfXX0@bezXX])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX2@bezXX"_ 1(((2^_44);2^_21)qteq[;])"2(0|:[:(gXM cfXX1@bezXX])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX3@bezXX"_ 1(((2^_44);2^_18)qteq[;])"3(0|:[:(gXM cfXX2@bezXX])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX4@bezXX"_ 1(((2^_44);2^_21)qteq[;])"4(0|:[:(gXM cfXX3@bezXX])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX5@bezXX"_ 1(((2^_44);2^_18)qteq[;])"5(0|:[:(gXM cfXX4@bezXX])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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 experimentalZ.ijs ... bezpow=:_1"_ bezU0=: bez^bezpow bezU1=: bezpow*bez^bezpow+_1: bezU2=: (bezpow+_1:)*bezpow*bez^bezpow+_2: bezU3=: (bezpow+_2:)*(bezpow+_1:)*bezpow*bez^bezpow+_3: bezU4=: (bezpow+_3:)*(bezpow+_2:)*(bezpow+_1:)*bezpow*bez^bezpow+_4: bezU5=:(bezpow+_4:)*(bezpow+_3:)*(bezpow+_2:)*(bezpow+_1:)*bezpow*bez^bezpow+_5: kexXX=:[cfMP5 gXm03XX,:[cfFN5(bezU0;bezU1;bezU2;bezU3;bezU4;bezU5),:bezXX
NB. ... execute (ijx) ... gXm0All=: 1.3 1.4 _ 1.6"_ gXm1All=: _ _ _ _ "_ nCpts=:_ _4 4 161,_ 0 0 0,_ 0 0 0,:_ _4 4 161"_ (gXM((kex-:cfXX0@kexXX)"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM((kexdn-:cfXX1@kexXX)"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX1@kexXX"_ 1(((2^_44);2^_18)qteq[;])"1(0|:[:(gXM cfXX0@kexXX])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX2@kexXX"_ 1(((2^_44);2^_19)qteq[;])"2(0|:[:(gXM cfXX1@kexXX])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX3@kexXX"_ 1(((2^_44);2^_19)qteq[;])"3(0|:[:(gXM cfXX2@kexXX])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX4@kexXX"_ 1(((2^_44);2^_16)qteq[;])"4(0|:[:(gXM cfXX3@kexXX])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX5@kexXX"_ 1(((2^_44);2^_17)qteq[;])"5(0|:[:(gXM cfXX4@kexXX])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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 experimentalZ.ijs ... OnE0XX=:[cfMP4((-@gXm00^_1:);((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);(5$4:)$0:),:[cfMP4 gXm01XX,:kexXX OnE1XX=:0;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_ OnE2XX=:0;((1$4:)$0:);((2$4:)$0:);((3$4:)$0:);((4$4:)$0:);_"_ OnE3XX=:}:@kexXX,<@(_"_) OnEXXS=:<@:>"1@(0|:])@(OnE0XX,OnE1XX,OnE2XX,:OnE3XX)
NB. ... execute (ijx) ... gXm0All=: 1.3 1.4 _ 1.6"_ gXm1All=: _ _ _ _ "_ nCpts=:_ _4 4 161,_ 0 0 0,_ 0 0 0,:_ _4 4 161"_ (gXM((OnE-:cfXX0@OnEXXS)"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM((OnEdn-:cfXX1@OnEXXS)"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX1@OnEXXS"_ 1(((2^_44);2^_18)qteq[;])"2(0|:[:(gXM cfXX0@OnEXXS])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX2@OnEXXS"_ 1(((2^_44);2^_19)qteq[;])"3(0|:[:(gXM cfXX1@OnEXXS])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX3@OnEXXS"_ 1(((2^_44);2^_19)qteq[;])"4(0|:[:(gXM cfXX2@OnEXXS])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX4@OnEXXS"_ 1(((2^_44);2^_16)qteq[;])"5(0|:[:(gXM cfXX3@OnEXXS])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (0=]) ((2^_44)qtsz]) +/@((<0 1)|:])"2 (gXM cfXX1@OnEXXS"_ 1]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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 experimentalZ.ijs ... OnFXXS=:OnDXXS+&.>OnEXXS
NB. ... execute (ijx) ... gXm0All=: 1.3 1.4 _ 1.6"_ gXm1All=: 1.4 1.5 1.6 1.7"_ nCpts=:_ _4 4 161,_ 0 0 0,_ 0 0 0,:_ _4 4 161"_ (gXM((OnF-:cfXX0@OnFXXS)"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM((OnFdn-:cfXX1@OnFXXS)"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX1@OnFXXS"_ 1(((2^_44);2^_16)qteq[;])"2(0|:[:(gXM cfXX0@OnFXXS])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX2@OnFXXS"_ 1(((2^_44);2^_14)qteq[;])"3(0|:[:(gXM cfXX1@OnFXXS])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX3@OnFXXS"_ 1(((2^_44);2^_10)qteq[;])"4(0|:[:(gXM cfXX2@OnFXXS])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (gXM(cfXX4@OnFXXS"_ 1(((2^_44);2^_10)qteq[;])"5(0|:[:(gXM cfXX3@OnFXXS])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 (0=]) ((2^_44)qtsz]) +/@((<0 1)|:])"2 (gXM cfXX1@OnFXXS"_ 1]) ((0;50"_)pTRandom nCpts)'' 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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 MoinMoin source: File:TensorExperimentsZ26.ijs