Essays/Tensor Experiments/TensorExperiments16

From J Wiki
Jump to: navigation, search


GTE1600C.jpg


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

   gXcw  =: 1.2  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"_

   *./^:5"5 (0=]) ((2^_44)qtsz]) (gXT([(]+2 4|:])"5@Xi xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   *./^:5"5 (0=]) ((2^_44)qtsz]) (gXT([(]+3 2|:])"5@Xi xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

   *./^:5"5 (0=]) ((2^_44)qtsz]) (gXT([(]+  3|:])"5@Xi xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1


GTE1601C.jpg


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

   gXcw  =: 1.2  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([(+/"1@((<0 2)|:])"3@(mcn([smx 0|:])"2 3+/"1@((<0 3)|:])"5@Xi))xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
   B=:(gXT([(+/"1@((<0 1)|:])"3@(mcn([smx 0|:])"2 3+/"1@((<0 3)|:])"5@Xi))xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''

   A -:"1 -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:LTE1600C.txt
Download: File:LTE1601C.txt




Download MoinMoin source: File:TensorExperiments16.ijs




Next Page: Essays/Tensor Experiments/TensorExperiments17
Prev Page: Essays/Tensor Experiments/TensorExperiments15