Essays/Tensor Experiments/TensorExperiments10

From J Wiki
Jump to: navigation, search


GTE1000C.jpg


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


GTE1001C.jpg


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


GTE1002C.jpg


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