User:Tom Allen/TensorExperimentsZ03
Jump to navigation
Jump to search
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
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
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