User:Tom Allen/TensorExperimentsZ26

From J Wiki
Jump to: navigation, 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