User:Tom Allen/TensorExperimentsZ04

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"_

   vA =:[R xRef
   vB0=:((0|:[)smx])"2 5
   vB1=:((0|:[)smx])"2 5
   vB2=:((0|:[)smx])"2 5
   vB3=:((0|:[)smx])"2 5
   vB4=:((   [)smx])"2 5
   vB =:[(xdz vB4 zdx vB3 zdx vB2 zdx vB1 zdx vB0 R)zRef

   A=:(gXZ([vA hkxM)]) ((0.1;50"_)pTRandom xCpts)''
   B=:(gXZ([vB hkxM)]) ((0.1;50"_)pTRandom xCpts)''

   A (((2^_30);2^_32)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. ... 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"_

   vA =:[R zRef
   vB0=:((0|:[)smx])"2 5
   vB1=:((0|:[)smx])"2 5
   vB2=:((0|:[)smx])"2 5
   vB3=:((0|:[)smx])"2 5
   vB4=:((   [)smx])"2 5
   vB =:[(zdx vB4 xdz vB3 xdz vB2 xdz vB1 xdz vB0 R)xRef

   A=:(gXZ([vA hkxM)]) ((0.1;50"_)pTRandom xCpts)''
   B=:(gXZ([vB hkxM)]) ((0.1;50"_)pTRandom xCpts)''

   A (((2^_37);2^_28)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

---

Download: File:LTEZ0400C.txt
Download: File:LTEZ0401C.txt
Download: File:LTEZ0402C.txt

---

---

Download MoinMoin source: File:TensorExperimentsZ04.ijs

---