User:Tom Allen/TensorExperimentsZ03

From J Wiki
Jump to navigation Jump to search


GTEZ0300C.jpg


NB. ... script experimentalZ.ijs ...

xdzdxt0=:zdx((0|:[)smx])"2 3 xdzdz
xdzdx  =:(0|:])"3@xdzdxt0


xdzdxdxt00S0=:zdx  ((0|:[)smx])"2 4 xdzdzdz
xdzdxdxt00S1=:zdx  ((0|:[)smx])"2 4 xdzdxdxt00S0
xdzdxdxt00  =:(0 1|:])"4@xdzdxdxt00S1

xdzdxdxt01S0=:zdxdx((0|:[)smx])"3 3 xdzdz
xdzdxdxt01  =:(0 1|:])"4@xdzdxdxt01S0

xdzdxdx=:xdzdxdxt00+xdzdxdxt01


xdzdxdxdxt000S0=:zdx    ((0|:[)smx])"2 5 xdzdzdzdz
xdzdxdxdxt000S1=:zdx    ((0|:[)smx])"2 5 xdzdxdxdxt000S0
xdzdxdxdxt000S2=:zdx    ((0|:[)smx])"2 5 xdzdxdxdxt000S1
xdzdxdxdxt000  =:(0 1 2|:])"5@xdzdxdxdxt000S2

xdzdxdxdxt001S0=:zdxdx  ((0|:[)smx])"3 4 xdzdzdz
xdzdxdxdxt001S1=:zdx    ((0|:[)smx])"2 5 xdzdxdxdxt001S0
xdzdxdxdxt001  =:(0 1 2|:])"5@xdzdxdxdxt001S1

xdzdxdxdxt002S0=:zdx    ((0|:[)smx])"2 4 xdzdzdz
xdzdxdxdxt002S1=:zdxdx  ((0|:[)smx])"3 4 xdzdxdxdxt002S0
xdzdxdxdxt002  =:(0 2 1|:])"5@xdzdxdxdxt002S1

xdzdxdxdxt010S0=:zdx    ((0|:[)smx])"2 4 xdzdzdz
xdzdxdxdxt010S1=:zdxdx  ((0|:[)smx])"3 4 xdzdxdxdxt010S0
xdzdxdxdxt010  =:(0 1 2|:])"5@xdzdxdxdxt010S1

xdzdxdxdxt011S0=:zdxdxdx((0|:[)smx])"4 3 xdzdz
xdzdxdxdxt011  =:(0 1 2|:])"5@xdzdxdxdxt011S0

xdzdxdxdx=:xdzdxdxdxt000+xdzdxdxdxt001+xdzdxdxdxt002+xdzdxdxdxt010+xdzdxdxdxt011


xdzdxdxdxdxt0000S0=:zdx      ((0|:[)smx])"2 6 xdzdzdzdzdz
xdzdxdxdxdxt0000S1=:zdx      ((0|:[)smx])"2 6 xdzdxdxdxdxt0000S0
xdzdxdxdxdxt0000S2=:zdx      ((0|:[)smx])"2 6 xdzdxdxdxdxt0000S1
xdzdxdxdxdxt0000S3=:zdx      ((0|:[)smx])"2 6 xdzdxdxdxdxt0000S2
xdzdxdxdxdxt0000  =:(0 1 2 3|:])"6@xdzdxdxdxdxt0000S3

xdzdxdxdxdxt0001S0=:zdxdx    ((0|:[)smx])"3 5 xdzdzdzdz
xdzdxdxdxdxt0001S1=:zdx      ((0|:[)smx])"2 6 xdzdxdxdxdxt0001S0
xdzdxdxdxdxt0001S2=:zdx      ((0|:[)smx])"2 6 xdzdxdxdxdxt0001S1
xdzdxdxdxdxt0001  =:(0 1 2 3|:])"6@xdzdxdxdxdxt0001S2

xdzdxdxdxdxt0002S0=:zdx      ((0|:[)smx])"2 5 xdzdzdzdz
xdzdxdxdxdxt0002S1=:zdxdx    ((0|:[)smx])"3 5 xdzdxdxdxdxt0002S0
xdzdxdxdxdxt0002S2=:zdx      ((0|:[)smx])"2 6 xdzdxdxdxdxt0002S1
xdzdxdxdxdxt0002  =:(0 1 3 2|:])"6@xdzdxdxdxdxt0002S2

xdzdxdxdxdxt0003S0=:zdx      ((0|:[)smx])"2 5 xdzdzdzdz
xdzdxdxdxdxt0003S1=:zdx      ((0|:[)smx])"2 5 xdzdxdxdxdxt0003S0
xdzdxdxdxdxt0003S2=:zdxdx    ((0|:[)smx])"3 5 xdzdxdxdxdxt0003S1
xdzdxdxdxdxt0003  =:(0 2 3 1|:])"6@xdzdxdxdxdxt0003S2

xdzdxdxdxdxt0010S0=:zdx      ((0|:[)smx])"2 5 xdzdzdzdz
xdzdxdxdxdxt0010S1=:zdxdx    ((0|:[)smx])"3 5 xdzdxdxdxdxt0010S0
xdzdxdxdxdxt0010S2=:zdx      ((0|:[)smx])"2 6 xdzdxdxdxdxt0010S1
xdzdxdxdxdxt0010  =:(0 1 2 3|:])"6@xdzdxdxdxdxt0010S2

xdzdxdxdxdxt0011S0=:zdxdxdx  ((0|:[)smx])"4 4 xdzdzdz
xdzdxdxdxdxt0011S1=:zdx      ((0|:[)smx])"2 6 xdzdxdxdxdxt0011S0
xdzdxdxdxdxt0011  =:(0 1 2 3|:])"6@xdzdxdxdxdxt0011S1

xdzdxdxdxdxt0012S0=:zdxdx    ((0|:[)smx])"3 4 xdzdzdz
xdzdxdxdxdxt0012S1=:zdxdx    ((0|:[)smx])"3 5 xdzdxdxdxdxt0012S0
xdzdxdxdxdxt0012  =:(0 2 3 1|:])"6@xdzdxdxdxdxt0012S1

xdzdxdxdxdxt0020S0=:zdx      ((0|:[)smx])"2 5 xdzdzdzdz
xdzdxdxdxdxt0020S1=:zdx      ((0|:[)smx])"2 5 xdzdxdxdxdxt0020S0
xdzdxdxdxdxt0020S2=:zdxdx    ((0|:[)smx])"3 5 xdzdxdxdxdxt0020S1
xdzdxdxdxdxt0020  =:(0 2 1 3|:])"6@xdzdxdxdxdxt0020S2

xdzdxdxdxdxt0021S0=:zdxdx    ((0|:[)smx])"3 4 xdzdzdz
xdzdxdxdxdxt0021S1=:zdxdx    ((0|:[)smx])"3 5 xdzdxdxdxdxt0021S0
xdzdxdxdxdxt0021  =:(0 2 1 3|:])"6@xdzdxdxdxdxt0021S1

xdzdxdxdxdxt0022S0=:zdx      ((0|:[)smx])"2 4 xdzdzdz
xdzdxdxdxdxt0022S1=:zdxdxdx  ((0|:[)smx])"4 4 xdzdxdxdxdxt0022S0
xdzdxdxdxdxt0022  =:(0 3 1 2|:])"6@xdzdxdxdxdxt0022S1

xdzdxdxdxdxt0100S0=:zdx      ((0|:[)smx])"2 5 xdzdzdzdz
xdzdxdxdxdxt0100S1=:zdx      ((0|:[)smx])"2 5 xdzdxdxdxdxt0100S0
xdzdxdxdxdxt0100S2=:zdxdx    ((0|:[)smx])"3 5 xdzdxdxdxdxt0100S1
xdzdxdxdxdxt0100  =:(0 1 2 3|:])"6@xdzdxdxdxdxt0100S2

xdzdxdxdxdxt0101S0=:zdxdx    ((0|:[)smx])"3 4 xdzdzdz
xdzdxdxdxdxt0101S1=:zdxdx    ((0|:[)smx])"3 5 xdzdxdxdxdxt0101S0
xdzdxdxdxdxt0101  =:(0 1 2 3|:])"6@xdzdxdxdxdxt0101S1

xdzdxdxdxdxt0102S0=:zdx      ((0|:[)smx])"2 4 xdzdzdz
xdzdxdxdxdxt0102S1=:zdxdxdx  ((0|:[)smx])"4 4 xdzdxdxdxdxt0102S0
xdzdxdxdxdxt0102  =:(0 1 3 2|:])"6@xdzdxdxdxdxt0102S1

xdzdxdxdxdxt0110S0=:zdx      ((0|:[)smx])"2 4 xdzdzdz
xdzdxdxdxdxt0110S1=:zdxdxdx  ((0|:[)smx])"4 4 xdzdxdxdxdxt0110S0
xdzdxdxdxdxt0110  =:(0 1 2 3|:])"6@xdzdxdxdxdxt0110S1

xdzdxdxdxdxt0111S0=:zdxdxdxdx((0|:[)smx])"5 3 xdzdz
xdzdxdxdxdxt0111  =:(0 1 2 3|:])"6@xdzdxdxdxdxt0111S0

xdzdxdxdxdxA=:xdzdxdxdxdxt0000+xdzdxdxdxdxt0001+xdzdxdxdxdxt0002+xdzdxdxdxdxt0003
xdzdxdxdxdxB=:xdzdxdxdxdxt0010+xdzdxdxdxdxt0011+xdzdxdxdxdxt0012
xdzdxdxdxdxC=:xdzdxdxdxdxt0020+xdzdxdxdxdxt0021+xdzdxdxdxdxt0022
xdzdxdxdxdxD=:xdzdxdxdxdxt0100+xdzdxdxdxdxt0101+xdzdxdxdxdxt0102
xdzdxdxdxdxE=:xdzdxdxdxdxt0110+xdzdxdxdxdxt0111

xdzdxdxdxdx=:xdzdxdxdxdxA+xdzdxdxdxdxB+xdzdxdxdxdxC+xdzdxdxdxdxD+xdzdxdxdxdxE


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

   gXcw  =:  1.2  0    _  _    _    _"_
   gXbAll=: _0.6  3.5  3  1.3  1.2  0"_

   xCpts=:_ 1 3 27,_ 0 1p1 27,_ 0 2p1 27,:_ 0 2 27"_

   A=:(gXZ([xdzdx       hkxL)])                             ((0.1;50"_)pTRandom xCpts)''
   B=:(gXZ(0|:[:(gXZ([(0{])@xdz       hkxL),:@])D.1])"_ 1]) ((0.1;50"_)pTRandom xCpts)''

   A (((2^_29);2^_18)qteq[;])"3 B
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   A=:(gXZ([xdzdxdx     hkxL)])                             ((0.1;50"_)pTRandom xCpts)''
   B=:(gXZ(0|:[:(gXZ([(0{])@xdzdx     hkxL),:@])D.1])"_ 1]) ((0.1;50"_)pTRandom xCpts)''

   A (((2^_25);2^_17)qteq[;])"4 B
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   A=:(gXZ([xdzdxdxdx   hkxL)])                             ((0.1;50"_)pTRandom xCpts)''
   B=:(gXZ(0|:[:(gXZ([(0{])@xdzdxdx   hkxL),:@])D.1])"_ 1]) ((0.1;50"_)pTRandom xCpts)''

   A (((2^_21);2^_13)qteq[;])"5 B
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   A=:(gXZ([xdzdxdxdxdx hkxL)])                             ((0.1;50"_)pTRandom xCpts)''
   B=:(gXZ(0|:[:(gXZ([(0{])@xdzdxdxdx hkxL),:@])D.1])"_ 1]) ((0.1;50"_)pTRandom xCpts)''

   A (((2^_16);2^_09)qteq[;])"6 B
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1


GTEZ0301C.jpg


NB. ... script experimentalZ.ijs ...

OzCdxt0=:zdx((0|:[)smx])"2 2 OzCD4dz
OzCdx  =:(0|:])"2@OzCdxt0


OzCdxdxt00S0=:zdx  ((0|:[)smx])"2 3 OzCD4dzdz
OzCdxdxt00S1=:zdx  ((0|:[)smx])"2 3 OzCdxdxt00S0
OzCdxdxt00  =:(0 1|:])"3@OzCdxdxt00S1

OzCdxdxt01S0=:zdxdx((0|:[)smx])"3 2 OzCD4dz
OzCdxdxt01  =:(0 1|:])"3@OzCdxdxt01S0

OzCdxdx=:OzCdxdxt00+OzCdxdxt01


OzCdxdxdxt000S0=:zdx    ((0|:[)smx])"2 4 OzCD4dzdzdz
OzCdxdxdxt000S1=:zdx    ((0|:[)smx])"2 4 OzCdxdxdxt000S0
OzCdxdxdxt000S2=:zdx    ((0|:[)smx])"2 4 OzCdxdxdxt000S1
OzCdxdxdxt000  =:(0 1 2|:])"4@OzCdxdxdxt000S2

OzCdxdxdxt001S0=:zdxdx  ((0|:[)smx])"3 3 OzCD4dzdz
OzCdxdxdxt001S1=:zdx    ((0|:[)smx])"2 4 OzCdxdxdxt001S0
OzCdxdxdxt001  =:(0 1 2|:])"4@OzCdxdxdxt001S1

OzCdxdxdxt002S0=:zdx    ((0|:[)smx])"2 3 OzCD4dzdz
OzCdxdxdxt002S1=:zdxdx  ((0|:[)smx])"3 3 OzCdxdxdxt002S0
OzCdxdxdxt002  =:(0 2 1|:])"4@OzCdxdxdxt002S1

OzCdxdxdxt010S0=:zdx    ((0|:[)smx])"2 3 OzCD4dzdz
OzCdxdxdxt010S1=:zdxdx  ((0|:[)smx])"3 3 OzCdxdxdxt010S0
OzCdxdxdxt010  =:(0 1 2|:])"4@OzCdxdxdxt010S1

OzCdxdxdxt011S0=:zdxdxdx((0|:[)smx])"4 2 OzCD4dz
OzCdxdxdxt011  =:(0 1 2|:])"4@OzCdxdxdxt011S0

OzCdxdxdx=:OzCdxdxdxt000+OzCdxdxdxt001+OzCdxdxdxt002+OzCdxdxdxt010+OzCdxdxdxt011


OzCdxdxdxdxt0000S0=:zdx      ((0|:[)smx])"2 5 OzCD4dzdzdzdz
OzCdxdxdxdxt0000S1=:zdx      ((0|:[)smx])"2 5 OzCdxdxdxdxt0000S0
OzCdxdxdxdxt0000S2=:zdx      ((0|:[)smx])"2 5 OzCdxdxdxdxt0000S1
OzCdxdxdxdxt0000S3=:zdx      ((0|:[)smx])"2 5 OzCdxdxdxdxt0000S2
OzCdxdxdxdxt0000  =:(0 1 2 3|:])"5@OzCdxdxdxdxt0000S3

OzCdxdxdxdxt0001S0=:zdxdx    ((0|:[)smx])"3 4 OzCD4dzdzdz
OzCdxdxdxdxt0001S1=:zdx      ((0|:[)smx])"2 5 OzCdxdxdxdxt0001S0
OzCdxdxdxdxt0001S2=:zdx      ((0|:[)smx])"2 5 OzCdxdxdxdxt0001S1
OzCdxdxdxdxt0001  =:(0 1 2 3|:])"5@OzCdxdxdxdxt0001S2

OzCdxdxdxdxt0002S0=:zdx      ((0|:[)smx])"2 4 OzCD4dzdzdz
OzCdxdxdxdxt0002S1=:zdxdx    ((0|:[)smx])"3 4 OzCdxdxdxdxt0002S0
OzCdxdxdxdxt0002S2=:zdx      ((0|:[)smx])"2 5 OzCdxdxdxdxt0002S1
OzCdxdxdxdxt0002  =:(0 1 3 2|:])"5@OzCdxdxdxdxt0002S2

OzCdxdxdxdxt0003S0=:zdx      ((0|:[)smx])"2 4 OzCD4dzdzdz
OzCdxdxdxdxt0003S1=:zdx      ((0|:[)smx])"2 4 OzCdxdxdxdxt0003S0
OzCdxdxdxdxt0003S2=:zdxdx    ((0|:[)smx])"3 4 OzCdxdxdxdxt0003S1
OzCdxdxdxdxt0003  =:(0 2 3 1|:])"5@OzCdxdxdxdxt0003S2

OzCdxdxdxdxt0010S0=:zdx      ((0|:[)smx])"2 4 OzCD4dzdzdz
OzCdxdxdxdxt0010S1=:zdxdx    ((0|:[)smx])"3 4 OzCdxdxdxdxt0010S0
OzCdxdxdxdxt0010S2=:zdx      ((0|:[)smx])"2 5 OzCdxdxdxdxt0010S1
OzCdxdxdxdxt0010  =:(0 1 2 3|:])"5@OzCdxdxdxdxt0010S2

OzCdxdxdxdxt0011S0=:zdxdxdx  ((0|:[)smx])"4 3 OzCD4dzdz
OzCdxdxdxdxt0011S1=:zdx      ((0|:[)smx])"2 5 OzCdxdxdxdxt0011S0
OzCdxdxdxdxt0011  =:(0 1 2 3|:])"5@OzCdxdxdxdxt0011S1

OzCdxdxdxdxt0012S0=:zdxdx    ((0|:[)smx])"3 3 OzCD4dzdz
OzCdxdxdxdxt0012S1=:zdxdx    ((0|:[)smx])"3 4 OzCdxdxdxdxt0012S0
OzCdxdxdxdxt0012  =:(0 2 3 1|:])"5@OzCdxdxdxdxt0012S1

OzCdxdxdxdxt0020S0=:zdx      ((0|:[)smx])"2 4 OzCD4dzdzdz
OzCdxdxdxdxt0020S1=:zdx      ((0|:[)smx])"2 4 OzCdxdxdxdxt0020S0
OzCdxdxdxdxt0020S2=:zdxdx    ((0|:[)smx])"3 4 OzCdxdxdxdxt0020S1
OzCdxdxdxdxt0020  =:(0 2 1 3|:])"5@OzCdxdxdxdxt0020S2

OzCdxdxdxdxt0021S0=:zdxdx    ((0|:[)smx])"3 3 OzCD4dzdz
OzCdxdxdxdxt0021S1=:zdxdx    ((0|:[)smx])"3 4 OzCdxdxdxdxt0021S0
OzCdxdxdxdxt0021  =:(0 2 1 3|:])"5@OzCdxdxdxdxt0021S1

OzCdxdxdxdxt0022S0=:zdx      ((0|:[)smx])"2 3 OzCD4dzdz
OzCdxdxdxdxt0022S1=:zdxdxdx  ((0|:[)smx])"4 3 OzCdxdxdxdxt0022S0
OzCdxdxdxdxt0022  =:(0 3 1 2|:])"5@OzCdxdxdxdxt0022S1

OzCdxdxdxdxt0100S0=:zdx      ((0|:[)smx])"2 4 OzCD4dzdzdz
OzCdxdxdxdxt0100S1=:zdx      ((0|:[)smx])"2 4 OzCdxdxdxdxt0100S0
OzCdxdxdxdxt0100S2=:zdxdx    ((0|:[)smx])"3 4 OzCdxdxdxdxt0100S1
OzCdxdxdxdxt0100  =:(0 1 2 3|:])"5@OzCdxdxdxdxt0100S2

OzCdxdxdxdxt0101S0=:zdxdx    ((0|:[)smx])"3 3 OzCD4dzdz
OzCdxdxdxdxt0101S1=:zdxdx    ((0|:[)smx])"3 4 OzCdxdxdxdxt0101S0
OzCdxdxdxdxt0101  =:(0 1 2 3|:])"5@OzCdxdxdxdxt0101S1

OzCdxdxdxdxt0102S0=:zdx      ((0|:[)smx])"2 3 OzCD4dzdz
OzCdxdxdxdxt0102S1=:zdxdxdx  ((0|:[)smx])"4 3 OzCdxdxdxdxt0102S0
OzCdxdxdxdxt0102  =:(0 1 3 2|:])"5@OzCdxdxdxdxt0102S1

OzCdxdxdxdxt0110S0=:zdx      ((0|:[)smx])"2 3 OzCD4dzdz
OzCdxdxdxdxt0110S1=:zdxdxdx  ((0|:[)smx])"4 3 OzCdxdxdxdxt0110S0
OzCdxdxdxdxt0110  =:(0 1 2 3|:])"5@OzCdxdxdxdxt0110S1

OzCdxdxdxdxt0111S0=:zdxdxdxdx((0|:[)smx])"5 2 OzCD4dz
OzCdxdxdxdxt0111  =:(0 1 2 3|:])"5@OzCdxdxdxdxt0111S0

OzCdxdxdxdxA=:OzCdxdxdxdxt0000+OzCdxdxdxdxt0001+OzCdxdxdxdxt0002+OzCdxdxdxdxt0003
OzCdxdxdxdxB=:OzCdxdxdxdxt0010+OzCdxdxdxdxt0011+OzCdxdxdxdxt0012
OzCdxdxdxdxC=:OzCdxdxdxdxt0020+OzCdxdxdxdxt0021+OzCdxdxdxdxt0022
OzCdxdxdxdxD=:OzCdxdxdxdxt0100+OzCdxdxdxdxt0101+OzCdxdxdxdxt0102
OzCdxdxdxdxE=:OzCdxdxdxdxt0110+OzCdxdxdxdxt0111

OzCdxdxdxdx=:OzCdxdxdxdxA+OzCdxdxdxdxB+OzCdxdxdxdxC+OzCdxdxdxdxD+OzCdxdxdxdxE


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

   gXcw  =:  1.2  0    _  _    _    _"_
   gXbAll=: _0.6  3.5  3  1.3  1.2  0"_

   xCpts=:_ 1 3 27,_ 0 1p1 27,_ 0 2p1 27,:_ 0 2 27"_

   A=:(gXZ([OzCdx       hkxL)])                             ((0.1;50"_)pTRandom xCpts)''
   B=:(gXZ(0|:[:(gXZ([(0{])@OzCD4     hkxL),:@])D.1])"_ 1]) ((0.1;50"_)pTRandom xCpts)''

   A (((2^_21);2^_16)qteq[;])"2 B
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   A=:(gXZ([OzCdxdx     hkxL)])                             ((0.1;50"_)pTRandom xCpts)''
   B=:(gXZ(0|:[:(gXZ([(0{])@OzCdx     hkxL),:@])D.1])"_ 1]) ((0.1;50"_)pTRandom xCpts)''

   A (((2^_19);2^_13)qteq[;])"3 B
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   A=:(gXZ([OzCdxdxdx   hkxL)])                             ((0.1;50"_)pTRandom xCpts)''
   B=:(gXZ(0|:[:(gXZ([(0{])@OzCdxdx   hkxL),:@])D.1])"_ 1]) ((0.1;50"_)pTRandom xCpts)''

   A (((2^_15);2^_12)qteq[;])"4 B
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   A=:(gXZ([OzCdxdxdxdx hkxL)])                             ((0.1;50"_)pTRandom xCpts)''
   B=:(gXZ(0|:[:(gXZ([(0{])@OzCdxdxdx hkxL),:@])D.1])"_ 1]) ((0.1;50"_)pTRandom xCpts)''

   A (((2^_11);2^_10)qteq[;])"5 B
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1


GTEZ0302C.jpg


NB. ... script experimentalZ.ijs ...

OxC=:xdz smx"2 1 OzCD4


OxCdxt0=:xdz  ((   [)smx 0|:])"2 2 OzCdx
OxCdxt1=:xdzdx((1|:[)smx    ])"3 1 OzCD4

OxCdx=:OxCdxt0+OxCdxt1


OxCdxdxt0=:(   ])"3@(xdz    ((   [)smx 0|:])"2 3 OzCdxdx)
OxCdxdxt1=:(1|:])"3@(xdzdx  ((1|:[)smx 0|:])"3 2 OzCdx  )
OxCdxdxt2=:(   ])"3@(xdzdx  ((1|:[)smx 0|:])"3 2 OzCdx  )
OxCdxdxt3=:(   ])"3@(xdzdxdx((1|:[)smx    ])"4 1 OzCD4  )

OxCdxdx=:OxCdxdxt0+OxCdxdxt1+OxCdxdxt2+OxCdxdxt3


OxCdxdxdxt00=:(     ])"4@(xdz      ((   [)smx 0|:])"2 4 OzCdxdxdx)
OxCdxdxdxt01=:(  1|:])"4@(xdzdx    ((1|:[)smx 0|:])"3 3 OzCdxdx  )
OxCdxdxdxt10=:(1 3|:])"4@(xdzdx    ((1|:[)smx 0|:])"3 3 OzCdxdx  )
OxCdxdxdxt11=:(1 2|:])"4@(xdzdxdx  ((1|:[)smx 0|:])"4 2 OzCdx    )
OxCdxdxdxt20=:(     ])"4@(xdzdx    ((1|:[)smx 0|:])"3 3 OzCdxdx  )
OxCdxdxdxt21=:(  2|:])"4@(xdzdxdx  ((1|:[)smx 0|:])"4 2 OzCdx    )
OxCdxdxdxt30=:(     ])"4@(xdzdxdx  ((1|:[)smx 0|:])"4 2 OzCdx    )
OxCdxdxdxt31=:(     ])"4@(xdzdxdxdx((1|:[)smx    ])"5 1 OzCD4    )

OxCdxdxdxt0=:OxCdxdxdxt00+OxCdxdxdxt01
OxCdxdxdxt1=:OxCdxdxdxt10+OxCdxdxdxt11
OxCdxdxdxt2=:OxCdxdxdxt20+OxCdxdxdxt21
OxCdxdxdxt3=:OxCdxdxdxt30+OxCdxdxdxt31

OxCdxdxdx=:OxCdxdxdxt0+OxCdxdxdxt1+OxCdxdxdxt2+OxCdxdxdxt3


OxCdxdxdxdxt00=:(       ])"5@(xdz        ((   [)smx 0|:])"2 5 OzCdxdxdxdx)
OxCdxdxdxdxt01=:(    1|:])"5@(xdzdx      ((1|:[)smx 0|:])"3 4 OzCdxdxdx  )
OxCdxdxdxdxt02=:(  1 4|:])"5@(xdzdx      ((1|:[)smx 0|:])"3 4 OzCdxdxdx  )
OxCdxdxdxdxt03=:(  1 2|:])"5@(xdzdxdx    ((1|:[)smx 0|:])"4 3 OzCdxdx    )
OxCdxdxdxdxt10=:(1 3 4|:])"5@(xdzdx      ((1|:[)smx 0|:])"3 4 OzCdxdxdx  )
OxCdxdxdxdxt11=:(1 4 2|:])"5@(xdzdxdx    ((1|:[)smx 0|:])"4 3 OzCdxdx    )
OxCdxdxdxdxt12=:(1 2 4|:])"5@(xdzdxdx    ((1|:[)smx 0|:])"4 3 OzCdxdx    )
OxCdxdxdxdxt13=:(1 2 3|:])"5@(xdzdxdxdx  ((1|:[)smx 0|:])"5 2 OzCdx      )
OxCdxdxdxdxt20=:(       ])"5@(xdzdx      ((1|:[)smx 0|:])"3 4 OzCdxdxdx  )
OxCdxdxdxdxt21=:(    2|:])"5@(xdzdxdx    ((1|:[)smx 0|:])"4 3 OzCdxdx    )
OxCdxdxdxdxt22=:(  2 4|:])"5@(xdzdxdx    ((1|:[)smx 0|:])"4 3 OzCdxdx    )
OxCdxdxdxdxt23=:(  2 3|:])"5@(xdzdxdxdx  ((1|:[)smx 0|:])"5 2 OzCdx      )
OxCdxdxdxdxt30=:(       ])"5@(xdzdxdx    ((1|:[)smx 0|:])"4 3 OzCdxdx    )
OxCdxdxdxdxt31=:(    3|:])"5@(xdzdxdxdx  ((1|:[)smx 0|:])"5 2 OzCdx      )
OxCdxdxdxdxt32=:(       ])"5@(xdzdxdxdx  ((1|:[)smx 0|:])"5 2 OzCdx      )
OxCdxdxdxdxt33=:(       ])"5@(xdzdxdxdxdx((1|:[)smx    ])"6 1 OzCD4      )

OxCdxdxdxdxt0=:OxCdxdxdxdxt00+OxCdxdxdxdxt01+OxCdxdxdxdxt02+OxCdxdxdxdxt03
OxCdxdxdxdxt1=:OxCdxdxdxdxt10+OxCdxdxdxdxt11+OxCdxdxdxdxt12+OxCdxdxdxdxt13
OxCdxdxdxdxt2=:OxCdxdxdxdxt20+OxCdxdxdxdxt21+OxCdxdxdxdxt22+OxCdxdxdxdxt23
OxCdxdxdxdxt3=:OxCdxdxdxdxt30+OxCdxdxdxdxt31+OxCdxdxdxdxt32+OxCdxdxdxdxt33

OxCdxdxdxdx=:OxCdxdxdxdxt0+OxCdxdxdxdxt1+OxCdxdxdxdxt2+OxCdxdxdxdxt3


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

   gXcw  =:  1.2  0    _  _    _    _"_
   gXbAll=: _0.6  3.5  3  1.3  1.2  0"_

   xCpts=:_ 1 3 27,_ 0 1p1 27,_ 0 2p1 27,:_ 0 2 27"_

   A=:(gXZ([OxCdx       hkxL)])                             ((0.1;50"_)pTRandom xCpts)''
   B=:(gXZ(0|:[:(gXZ([(0{])@OxC       hkxL),:@])D.1])"_ 1]) ((0.1;50"_)pTRandom xCpts)''

   A (((2^_21);2^_16)qteq[;])"2 B
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   A=:(gXZ([OxCdxdx     hkxL)])                             ((0.1;50"_)pTRandom xCpts)''
   B=:(gXZ(0|:[:(gXZ([(0{])@OxCdx     hkxL),:@])D.1])"_ 1]) ((0.1;50"_)pTRandom xCpts)''

   A (((2^_19);2^_13)qteq[;])"3 B
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   A=:(gXZ([OxCdxdxdx   hkxL)])                             ((0.1;50"_)pTRandom xCpts)''
   B=:(gXZ(0|:[:(gXZ([(0{])@OxCdxdx   hkxL),:@])D.1])"_ 1]) ((0.1;50"_)pTRandom xCpts)''

   A (((2^_15);2^_12)qteq[;])"4 B
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   A=:(gXZ([OxCdxdxdxdx hkxL)])                             ((0.1;50"_)pTRandom xCpts)''
   B=:(gXZ(0|:[:(gXZ([(0{])@OxCdxdxdx hkxL),:@])D.1])"_ 1]) ((0.1;50"_)pTRandom xCpts)''

   A (((2^_11);2^_12)qteq[;])"5 B
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 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 ...

OxCXX=:OxC;OxCdx;OxCdxdx;OxCdxdxdx;OxCdxdxdxdx;_"_

hkxM=:[(],OxCXX)hkxL
hkyM=:[(],OxCXX)hkyL


NB. ... script experimentalZ.ijs ...

zRef=:(0{]),(1{]),(2{]),:4{]



Download: File:LTEZ0300C.txt
Download: File:LTEZ0301C.txt
Download: File:LTEZ0302C.txt




Download MoinMoin source: File:TensorExperimentsZ03.ijs