Essays/Tensor Experiments/TensorExperiments10
< Essays | Tensor Experiments
Jump to navigation
Jump to search
NB. ... script experimental.ijs ... xdydxt0=:ydx((0|:[)smx])"2 3 xdydy xdydx =:(0|:])"3@xdydxt0 xdydxdxt00S0=:ydx ((0|:[)smx])"2 4 xdydydy xdydxdxt00S1=:ydx ((0|:[)smx])"2 4 xdydxdxt00S0 xdydxdxt00 =:(0 1|:])"4@xdydxdxt00S1 xdydxdxt01S0=:ydxdx((0|:[)smx])"3 3 xdydy xdydxdxt01 =:(0 1|:])"4@xdydxdxt01S0 xdydxdx=:xdydxdxt00+xdydxdxt01 xdydxdxdxt000S0=:ydx ((0|:[)smx])"2 5 xdydydydy xdydxdxdxt000S1=:ydx ((0|:[)smx])"2 5 xdydxdxdxt000S0 xdydxdxdxt000S2=:ydx ((0|:[)smx])"2 5 xdydxdxdxt000S1 xdydxdxdxt000 =:(0 1 2|:])"5@xdydxdxdxt000S2 xdydxdxdxt001S0=:ydxdx ((0|:[)smx])"3 4 xdydydy xdydxdxdxt001S1=:ydx ((0|:[)smx])"2 5 xdydxdxdxt001S0 xdydxdxdxt001 =:(0 1 2|:])"5@xdydxdxdxt001S1 xdydxdxdxt002S0=:ydx ((0|:[)smx])"2 4 xdydydy xdydxdxdxt002S1=:ydxdx ((0|:[)smx])"3 4 xdydxdxdxt002S0 xdydxdxdxt002 =:(0 2 1|:])"5@xdydxdxdxt002S1 xdydxdxdxt010S0=:ydx ((0|:[)smx])"2 4 xdydydy xdydxdxdxt010S1=:ydxdx ((0|:[)smx])"3 4 xdydxdxdxt010S0 xdydxdxdxt010 =:(0 1 2|:])"5@xdydxdxdxt010S1 xdydxdxdxt011S0=:ydxdxdx((0|:[)smx])"4 3 xdydy xdydxdxdxt011 =:(0 1 2|:])"5@xdydxdxdxt011S0 xdydxdxdx=:xdydxdxdxt000+xdydxdxdxt001+xdydxdxdxt002+xdydxdxdxt010+xdydxdxdxt011 xdydxdxdxdxt0000S0=:ydx ((0|:[)smx])"2 6 xdydydydydy xdydxdxdxdxt0000S1=:ydx ((0|:[)smx])"2 6 xdydxdxdxdxt0000S0 xdydxdxdxdxt0000S2=:ydx ((0|:[)smx])"2 6 xdydxdxdxdxt0000S1 xdydxdxdxdxt0000S3=:ydx ((0|:[)smx])"2 6 xdydxdxdxdxt0000S2 xdydxdxdxdxt0000 =:(0 1 2 3|:])"6@xdydxdxdxdxt0000S3 xdydxdxdxdxt0001S0=:ydxdx ((0|:[)smx])"3 5 xdydydydy xdydxdxdxdxt0001S1=:ydx ((0|:[)smx])"2 6 xdydxdxdxdxt0001S0 xdydxdxdxdxt0001S2=:ydx ((0|:[)smx])"2 6 xdydxdxdxdxt0001S1 xdydxdxdxdxt0001 =:(0 1 2 3|:])"6@xdydxdxdxdxt0001S2 xdydxdxdxdxt0002S0=:ydx ((0|:[)smx])"2 5 xdydydydy xdydxdxdxdxt0002S1=:ydxdx ((0|:[)smx])"3 5 xdydxdxdxdxt0002S0 xdydxdxdxdxt0002S2=:ydx ((0|:[)smx])"2 6 xdydxdxdxdxt0002S1 xdydxdxdxdxt0002 =:(0 1 3 2|:])"6@xdydxdxdxdxt0002S2 xdydxdxdxdxt0003S0=:ydx ((0|:[)smx])"2 5 xdydydydy xdydxdxdxdxt0003S1=:ydx ((0|:[)smx])"2 5 xdydxdxdxdxt0003S0 xdydxdxdxdxt0003S2=:ydxdx ((0|:[)smx])"3 5 xdydxdxdxdxt0003S1 xdydxdxdxdxt0003 =:(0 2 3 1|:])"6@xdydxdxdxdxt0003S2 xdydxdxdxdxt0010S0=:ydx ((0|:[)smx])"2 5 xdydydydy xdydxdxdxdxt0010S1=:ydxdx ((0|:[)smx])"3 5 xdydxdxdxdxt0010S0 xdydxdxdxdxt0010S2=:ydx ((0|:[)smx])"2 6 xdydxdxdxdxt0010S1 xdydxdxdxdxt0010 =:(0 1 2 3|:])"6@xdydxdxdxdxt0010S2 xdydxdxdxdxt0011S0=:ydxdxdx ((0|:[)smx])"4 4 xdydydy xdydxdxdxdxt0011S1=:ydx ((0|:[)smx])"2 6 xdydxdxdxdxt0011S0 xdydxdxdxdxt0011 =:(0 1 2 3|:])"6@xdydxdxdxdxt0011S1 xdydxdxdxdxt0012S0=:ydxdx ((0|:[)smx])"3 4 xdydydy xdydxdxdxdxt0012S1=:ydxdx ((0|:[)smx])"3 5 xdydxdxdxdxt0012S0 xdydxdxdxdxt0012 =:(0 2 3 1|:])"6@xdydxdxdxdxt0012S1 xdydxdxdxdxt0020S0=:ydx ((0|:[)smx])"2 5 xdydydydy xdydxdxdxdxt0020S1=:ydx ((0|:[)smx])"2 5 xdydxdxdxdxt0020S0 xdydxdxdxdxt0020S2=:ydxdx ((0|:[)smx])"3 5 xdydxdxdxdxt0020S1 xdydxdxdxdxt0020 =:(0 2 1 3|:])"6@xdydxdxdxdxt0020S2 xdydxdxdxdxt0021S0=:ydxdx ((0|:[)smx])"3 4 xdydydy xdydxdxdxdxt0021S1=:ydxdx ((0|:[)smx])"3 5 xdydxdxdxdxt0021S0 xdydxdxdxdxt0021 =:(0 2 1 3|:])"6@xdydxdxdxdxt0021S1 xdydxdxdxdxt0022S0=:ydx ((0|:[)smx])"2 4 xdydydy xdydxdxdxdxt0022S1=:ydxdxdx ((0|:[)smx])"4 4 xdydxdxdxdxt0022S0 xdydxdxdxdxt0022 =:(0 3 1 2|:])"6@xdydxdxdxdxt0022S1 xdydxdxdxdxt0100S0=:ydx ((0|:[)smx])"2 5 xdydydydy xdydxdxdxdxt0100S1=:ydx ((0|:[)smx])"2 5 xdydxdxdxdxt0100S0 xdydxdxdxdxt0100S2=:ydxdx ((0|:[)smx])"3 5 xdydxdxdxdxt0100S1 xdydxdxdxdxt0100 =:(0 1 2 3|:])"6@xdydxdxdxdxt0100S2 xdydxdxdxdxt0101S0=:ydxdx ((0|:[)smx])"3 4 xdydydy xdydxdxdxdxt0101S1=:ydxdx ((0|:[)smx])"3 5 xdydxdxdxdxt0101S0 xdydxdxdxdxt0101 =:(0 1 2 3|:])"6@xdydxdxdxdxt0101S1 xdydxdxdxdxt0102S0=:ydx ((0|:[)smx])"2 4 xdydydy xdydxdxdxdxt0102S1=:ydxdxdx ((0|:[)smx])"4 4 xdydxdxdxdxt0102S0 xdydxdxdxdxt0102 =:(0 1 3 2|:])"6@xdydxdxdxdxt0102S1 xdydxdxdxdxt0110S0=:ydx ((0|:[)smx])"2 4 xdydydy xdydxdxdxdxt0110S1=:ydxdxdx ((0|:[)smx])"4 4 xdydxdxdxdxt0110S0 xdydxdxdxdxt0110 =:(0 1 2 3|:])"6@xdydxdxdxdxt0110S1 xdydxdxdxdxt0111S0=:ydxdxdxdx((0|:[)smx])"5 3 xdydy xdydxdxdxdxt0111 =:(0 1 2 3|:])"6@xdydxdxdxdxt0111S0 xdydxdxdxdxA=:xdydxdxdxdxt0000+xdydxdxdxdxt0001+xdydxdxdxdxt0002+xdydxdxdxdxt0003 xdydxdxdxdxB=:xdydxdxdxdxt0010+xdydxdxdxdxt0011+xdydxdxdxdxt0012 xdydxdxdxdxC=:xdydxdxdxdxt0020+xdydxdxdxdxt0021+xdydxdxdxdxt0022 xdydxdxdxdxD=:xdydxdxdxdxt0100+xdydxdxdxdxt0101+xdydxdxdxdxt0102 xdydxdxdxdxE=:xdydxdxdxdxt0110+xdydxdxdxdxt0111 xdydxdxdxdx=:xdydxdxdxdxA+xdydxdxdxdxB+xdydxdxdxdxC+xdydxdxdxdxD+xdydxdxdxdxE
NB. ... execute (ijx) ...
gXcw =: 0 0.3 _ _ _"_
gXpAll=: 0 0 0 0 0"_
xCpts=:_ 1 3 26,_ 0 1p1 26,_ 0 2p1 26,:_ 0 20 26"_
A=:(gXT([xdydx hkxE)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@xdy hkxE),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_26);2^_16)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=:(gXT([xdydxdx hkxE)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@xdydx hkxE),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_22);2^_16)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=:(gXT([xdydxdxdx hkxE)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@xdydxdx hkxE),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_20);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=:(gXT([xdydxdxdxdx hkxE)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@xdydxdxdx hkxE),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_13);2^_06)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 experimental.ijs ... OyAdxt0=:ydx((0|:[)smx])"2 2 OyAD4dy OyAdx =:(0|:])"2@OyAdxt0 OyAdxdxt00S0=:ydx ((0|:[)smx])"2 3 OyAD4dydy OyAdxdxt00S1=:ydx ((0|:[)smx])"2 3 OyAdxdxt00S0 OyAdxdxt00 =:(0 1|:])"3@OyAdxdxt00S1 OyAdxdxt01S0=:ydxdx((0|:[)smx])"3 2 OyAD4dy OyAdxdxt01 =:(0 1|:])"3@OyAdxdxt01S0 OyAdxdx=:OyAdxdxt00+OyAdxdxt01 OyAdxdxdxt000S0=:ydx ((0|:[)smx])"2 4 OyAD4dydydy OyAdxdxdxt000S1=:ydx ((0|:[)smx])"2 4 OyAdxdxdxt000S0 OyAdxdxdxt000S2=:ydx ((0|:[)smx])"2 4 OyAdxdxdxt000S1 OyAdxdxdxt000 =:(0 1 2|:])"4@OyAdxdxdxt000S2 OyAdxdxdxt001S0=:ydxdx ((0|:[)smx])"3 3 OyAD4dydy OyAdxdxdxt001S1=:ydx ((0|:[)smx])"2 4 OyAdxdxdxt001S0 OyAdxdxdxt001 =:(0 1 2|:])"4@OyAdxdxdxt001S1 OyAdxdxdxt002S0=:ydx ((0|:[)smx])"2 3 OyAD4dydy OyAdxdxdxt002S1=:ydxdx ((0|:[)smx])"3 3 OyAdxdxdxt002S0 OyAdxdxdxt002 =:(0 2 1|:])"4@OyAdxdxdxt002S1 OyAdxdxdxt010S0=:ydx ((0|:[)smx])"2 3 OyAD4dydy OyAdxdxdxt010S1=:ydxdx ((0|:[)smx])"3 3 OyAdxdxdxt010S0 OyAdxdxdxt010 =:(0 1 2|:])"4@OyAdxdxdxt010S1 OyAdxdxdxt011S0=:ydxdxdx((0|:[)smx])"4 2 OyAD4dy OyAdxdxdxt011 =:(0 1 2|:])"4@OyAdxdxdxt011S0 OyAdxdxdx=:OyAdxdxdxt000+OyAdxdxdxt001+OyAdxdxdxt002+OyAdxdxdxt010+OyAdxdxdxt011 OyAdxdxdxdxt0000S0=:ydx ((0|:[)smx])"2 5 OyAD4dydydydy OyAdxdxdxdxt0000S1=:ydx ((0|:[)smx])"2 5 OyAdxdxdxdxt0000S0 OyAdxdxdxdxt0000S2=:ydx ((0|:[)smx])"2 5 OyAdxdxdxdxt0000S1 OyAdxdxdxdxt0000S3=:ydx ((0|:[)smx])"2 5 OyAdxdxdxdxt0000S2 OyAdxdxdxdxt0000 =:(0 1 2 3|:])"5@OyAdxdxdxdxt0000S3 OyAdxdxdxdxt0001S0=:ydxdx ((0|:[)smx])"3 4 OyAD4dydydy OyAdxdxdxdxt0001S1=:ydx ((0|:[)smx])"2 5 OyAdxdxdxdxt0001S0 OyAdxdxdxdxt0001S2=:ydx ((0|:[)smx])"2 5 OyAdxdxdxdxt0001S1 OyAdxdxdxdxt0001 =:(0 1 2 3|:])"5@OyAdxdxdxdxt0001S2 OyAdxdxdxdxt0002S0=:ydx ((0|:[)smx])"2 4 OyAD4dydydy OyAdxdxdxdxt0002S1=:ydxdx ((0|:[)smx])"3 4 OyAdxdxdxdxt0002S0 OyAdxdxdxdxt0002S2=:ydx ((0|:[)smx])"2 5 OyAdxdxdxdxt0002S1 OyAdxdxdxdxt0002 =:(0 1 3 2|:])"5@OyAdxdxdxdxt0002S2 OyAdxdxdxdxt0003S0=:ydx ((0|:[)smx])"2 4 OyAD4dydydy OyAdxdxdxdxt0003S1=:ydx ((0|:[)smx])"2 4 OyAdxdxdxdxt0003S0 OyAdxdxdxdxt0003S2=:ydxdx ((0|:[)smx])"3 4 OyAdxdxdxdxt0003S1 OyAdxdxdxdxt0003 =:(0 2 3 1|:])"5@OyAdxdxdxdxt0003S2 OyAdxdxdxdxt0010S0=:ydx ((0|:[)smx])"2 4 OyAD4dydydy OyAdxdxdxdxt0010S1=:ydxdx ((0|:[)smx])"3 4 OyAdxdxdxdxt0010S0 OyAdxdxdxdxt0010S2=:ydx ((0|:[)smx])"2 5 OyAdxdxdxdxt0010S1 OyAdxdxdxdxt0010 =:(0 1 2 3|:])"5@OyAdxdxdxdxt0010S2 OyAdxdxdxdxt0011S0=:ydxdxdx ((0|:[)smx])"4 3 OyAD4dydy OyAdxdxdxdxt0011S1=:ydx ((0|:[)smx])"2 5 OyAdxdxdxdxt0011S0 OyAdxdxdxdxt0011 =:(0 1 2 3|:])"5@OyAdxdxdxdxt0011S1 OyAdxdxdxdxt0012S0=:ydxdx ((0|:[)smx])"3 3 OyAD4dydy OyAdxdxdxdxt0012S1=:ydxdx ((0|:[)smx])"3 4 OyAdxdxdxdxt0012S0 OyAdxdxdxdxt0012 =:(0 2 3 1|:])"5@OyAdxdxdxdxt0012S1 OyAdxdxdxdxt0020S0=:ydx ((0|:[)smx])"2 4 OyAD4dydydy OyAdxdxdxdxt0020S1=:ydx ((0|:[)smx])"2 4 OyAdxdxdxdxt0020S0 OyAdxdxdxdxt0020S2=:ydxdx ((0|:[)smx])"3 4 OyAdxdxdxdxt0020S1 OyAdxdxdxdxt0020 =:(0 2 1 3|:])"5@OyAdxdxdxdxt0020S2 OyAdxdxdxdxt0021S0=:ydxdx ((0|:[)smx])"3 3 OyAD4dydy OyAdxdxdxdxt0021S1=:ydxdx ((0|:[)smx])"3 4 OyAdxdxdxdxt0021S0 OyAdxdxdxdxt0021 =:(0 2 1 3|:])"5@OyAdxdxdxdxt0021S1 OyAdxdxdxdxt0022S0=:ydx ((0|:[)smx])"2 3 OyAD4dydy OyAdxdxdxdxt0022S1=:ydxdxdx ((0|:[)smx])"4 3 OyAdxdxdxdxt0022S0 OyAdxdxdxdxt0022 =:(0 3 1 2|:])"5@OyAdxdxdxdxt0022S1 OyAdxdxdxdxt0100S0=:ydx ((0|:[)smx])"2 4 OyAD4dydydy OyAdxdxdxdxt0100S1=:ydx ((0|:[)smx])"2 4 OyAdxdxdxdxt0100S0 OyAdxdxdxdxt0100S2=:ydxdx ((0|:[)smx])"3 4 OyAdxdxdxdxt0100S1 OyAdxdxdxdxt0100 =:(0 1 2 3|:])"5@OyAdxdxdxdxt0100S2 OyAdxdxdxdxt0101S0=:ydxdx ((0|:[)smx])"3 3 OyAD4dydy OyAdxdxdxdxt0101S1=:ydxdx ((0|:[)smx])"3 4 OyAdxdxdxdxt0101S0 OyAdxdxdxdxt0101 =:(0 1 2 3|:])"5@OyAdxdxdxdxt0101S1 OyAdxdxdxdxt0102S0=:ydx ((0|:[)smx])"2 3 OyAD4dydy OyAdxdxdxdxt0102S1=:ydxdxdx ((0|:[)smx])"4 3 OyAdxdxdxdxt0102S0 OyAdxdxdxdxt0102 =:(0 1 3 2|:])"5@OyAdxdxdxdxt0102S1 OyAdxdxdxdxt0110S0=:ydx ((0|:[)smx])"2 3 OyAD4dydy OyAdxdxdxdxt0110S1=:ydxdxdx ((0|:[)smx])"4 3 OyAdxdxdxdxt0110S0 OyAdxdxdxdxt0110 =:(0 1 2 3|:])"5@OyAdxdxdxdxt0110S1 OyAdxdxdxdxt0111S0=:ydxdxdxdx((0|:[)smx])"5 2 OyAD4dy OyAdxdxdxdxt0111 =:(0 1 2 3|:])"5@OyAdxdxdxdxt0111S0 OyAdxdxdxdxA=:OyAdxdxdxdxt0000+OyAdxdxdxdxt0001+OyAdxdxdxdxt0002+OyAdxdxdxdxt0003 OyAdxdxdxdxB=:OyAdxdxdxdxt0010+OyAdxdxdxdxt0011+OyAdxdxdxdxt0012 OyAdxdxdxdxC=:OyAdxdxdxdxt0020+OyAdxdxdxdxt0021+OyAdxdxdxdxt0022 OyAdxdxdxdxD=:OyAdxdxdxdxt0100+OyAdxdxdxdxt0101+OyAdxdxdxdxt0102 OyAdxdxdxdxE=:OyAdxdxdxdxt0110+OyAdxdxdxdxt0111 OyAdxdxdxdx=:OyAdxdxdxdxA+OyAdxdxdxdxB+OyAdxdxdxdxC+OyAdxdxdxdxD+OyAdxdxdxdxE
NB. ... execute (ijx) ...
gXcw =: 0 0.3 _ _ _ "_
gXpAll=: 1.1 1.2 1.3 1.4 1.5"_
xCpts=:_ 1 3 26,_ 0 1p1 26,_ 0 2p1 26,:_ 0 20 26"_
A=:(gXT([OyAdx hkxE)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@OyAD4 hkxE),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_44);2^_12)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=:(gXT([OyAdxdx hkxE)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@OyAdx hkxE),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_44);2^_09)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=:(gXT([OyAdxdxdx hkxE)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@OyAdxdx hkxE),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_44);2^_10)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=:(gXT([OyAdxdxdxdx hkxE)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@OyAdxdxdx hkxE),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_44);2^_09)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 experimental.ijs ... OxA=:xdy smx"2 1 OyAD4 OxAdxt0=:xdy (( [)smx 0|:])"2 2 OyAdx OxAdxt1=:xdydx((1|:[)smx ])"3 1 OyAD4 OxAdx=:OxAdxt0+OxAdxt1 OxAdxdxt0=:( ])"3@(xdy (( [)smx 0|:])"2 3 OyAdxdx) OxAdxdxt1=:(1|:])"3@(xdydx ((1|:[)smx 0|:])"3 2 OyAdx ) OxAdxdxt2=:( ])"3@(xdydx ((1|:[)smx 0|:])"3 2 OyAdx ) OxAdxdxt3=:( ])"3@(xdydxdx((1|:[)smx ])"4 1 OyAD4 ) OxAdxdx=:OxAdxdxt0+OxAdxdxt1+OxAdxdxt2+OxAdxdxt3 OxAdxdxdxt00=:( ])"4@(xdy (( [)smx 0|:])"2 4 OyAdxdxdx) OxAdxdxdxt01=:( 1|:])"4@(xdydx ((1|:[)smx 0|:])"3 3 OyAdxdx ) OxAdxdxdxt10=:(1 3|:])"4@(xdydx ((1|:[)smx 0|:])"3 3 OyAdxdx ) OxAdxdxdxt11=:(1 2|:])"4@(xdydxdx ((1|:[)smx 0|:])"4 2 OyAdx ) OxAdxdxdxt20=:( ])"4@(xdydx ((1|:[)smx 0|:])"3 3 OyAdxdx ) OxAdxdxdxt21=:( 2|:])"4@(xdydxdx ((1|:[)smx 0|:])"4 2 OyAdx ) OxAdxdxdxt30=:( ])"4@(xdydxdx ((1|:[)smx 0|:])"4 2 OyAdx ) OxAdxdxdxt31=:( ])"4@(xdydxdxdx((1|:[)smx ])"5 1 OyAD4 ) OxAdxdxdxt0=:OxAdxdxdxt00+OxAdxdxdxt01 OxAdxdxdxt1=:OxAdxdxdxt10+OxAdxdxdxt11 OxAdxdxdxt2=:OxAdxdxdxt20+OxAdxdxdxt21 OxAdxdxdxt3=:OxAdxdxdxt30+OxAdxdxdxt31 OxAdxdxdx=:OxAdxdxdxt0+OxAdxdxdxt1+OxAdxdxdxt2+OxAdxdxdxt3 OxAdxdxdxdxt00=:( ])"5@(xdy (( [)smx 0|:])"2 5 OyAdxdxdxdx) OxAdxdxdxdxt01=:( 1|:])"5@(xdydx ((1|:[)smx 0|:])"3 4 OyAdxdxdx ) OxAdxdxdxdxt02=:( 1 4|:])"5@(xdydx ((1|:[)smx 0|:])"3 4 OyAdxdxdx ) OxAdxdxdxdxt03=:( 1 2|:])"5@(xdydxdx ((1|:[)smx 0|:])"4 3 OyAdxdx ) OxAdxdxdxdxt10=:(1 3 4|:])"5@(xdydx ((1|:[)smx 0|:])"3 4 OyAdxdxdx ) OxAdxdxdxdxt11=:(1 4 2|:])"5@(xdydxdx ((1|:[)smx 0|:])"4 3 OyAdxdx ) OxAdxdxdxdxt12=:(1 2 4|:])"5@(xdydxdx ((1|:[)smx 0|:])"4 3 OyAdxdx ) OxAdxdxdxdxt13=:(1 2 3|:])"5@(xdydxdxdx ((1|:[)smx 0|:])"5 2 OyAdx ) OxAdxdxdxdxt20=:( ])"5@(xdydx ((1|:[)smx 0|:])"3 4 OyAdxdxdx ) OxAdxdxdxdxt21=:( 2|:])"5@(xdydxdx ((1|:[)smx 0|:])"4 3 OyAdxdx ) OxAdxdxdxdxt22=:( 2 4|:])"5@(xdydxdx ((1|:[)smx 0|:])"4 3 OyAdxdx ) OxAdxdxdxdxt23=:( 2 3|:])"5@(xdydxdxdx ((1|:[)smx 0|:])"5 2 OyAdx ) OxAdxdxdxdxt30=:( ])"5@(xdydxdx ((1|:[)smx 0|:])"4 3 OyAdxdx ) OxAdxdxdxdxt31=:( 3|:])"5@(xdydxdxdx ((1|:[)smx 0|:])"5 2 OyAdx ) OxAdxdxdxdxt32=:( ])"5@(xdydxdxdx ((1|:[)smx 0|:])"5 2 OyAdx ) OxAdxdxdxdxt33=:( ])"5@(xdydxdxdxdx((1|:[)smx ])"6 1 OyAD4 ) OxAdxdxdxdxt0=:OxAdxdxdxdxt00+OxAdxdxdxdxt01+OxAdxdxdxdxt02+OxAdxdxdxdxt03 OxAdxdxdxdxt1=:OxAdxdxdxdxt10+OxAdxdxdxdxt11+OxAdxdxdxdxt12+OxAdxdxdxdxt13 OxAdxdxdxdxt2=:OxAdxdxdxdxt20+OxAdxdxdxdxt21+OxAdxdxdxdxt22+OxAdxdxdxdxt23 OxAdxdxdxdxt3=:OxAdxdxdxdxt30+OxAdxdxdxdxt31+OxAdxdxdxdxt32+OxAdxdxdxdxt33 OxAdxdxdxdx=:OxAdxdxdxdxt0+OxAdxdxdxdxt1+OxAdxdxdxdxt2+OxAdxdxdxdxt3
NB. ... execute (ijx) ...
gXcw =: 0 0.3 _ _ _ "_
gXpAll=: 1.1 1.2 1.3 1.4 1.5"_
xCpts=:_ 1 3 26,_ 0 1p1 26,_ 0 2p1 26,:_ 0 20 26"_
A=:(gXT([OxAdx hkxE)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@OxA hkxE),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_44);2^_12)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=:(gXT([OxAdxdx hkxE)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@OxAdx hkxE),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_44);2^_09)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=:(gXT([OxAdxdxdx hkxE)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@OxAdxdx hkxE),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_44);2^_11)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=:(gXT([OxAdxdxdxdx hkxE)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@OxAdxdxdx hkxE),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_44);2^_05)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 experimental.ijs ... OxAXX=:OxA;OxAdx;OxAdxdx;OxAdxdxdx;OxAdxdxdxdx;_"_ hkxF=:[(],OxAXX)hkxE hkyF=:[(],OxAXX)hkyE
Download: File:LTE1000C.txt
Download: File:LTE1001C.txt
Download: File:LTE1002C.txt
Download MoinMoin source: File:TensorExperiments10.ijs
Next Page: Essays/Tensor Experiments/TensorExperiments11
Prev Page: Essays/Tensor Experiments/TensorExperiments09