Essays/Tensor Experiments/TensorExperiments12

From J Wiki
Jump to: navigation, search


GTE1200C.jpg


NB. ... script experimental.ijs ...

Ocncv=:Ocndc+(0|:])"2@(ch2k((0|:[)smx])"3 1 Ocn)


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

NB. ... a tensor ...

   vA=:[Ocncv xRef
   vB=:[(xdy smx"2 ydx((0|:[)smx])"2 Ocncv)yRef

   (gXT([(vA(((2^_44);2^_44)qteq[;])"2 vB)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

NB. ... spherical polar coordinates (rotating) ...
NB. ... divergence is 0 ...

   (0=]) ((2^_44)qtsz]) +/@((<0 1)|:])"2 (gXT([vA 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


GTE1202C.jpg


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

   gXcw  =: 1.2  0.0  _    _    _  "_
   gXpAll=: 1    1    1    1.4  1.5"_

   xCpts=:_ 1 3 26,_ 0 1p1 26,_ 0 2p1 26,:_ 0 20 26"_

   ((2^_44)qtsz]) (gXT([Ocncv xRef@hkxF)]) ((0.1;1"_)pTRandom xCpts)''
_0.605225        0        0 _0.725468
        0 0.121579        0         0
        0        0 0.121579         0
 0.428857        0        0  0.362066


GTE1203C.jpg


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

   gXcw  =: 1.2  0.3  _    _    _  "_
   gXpAll=: 1    1    1    1.4  1.5"_

   xCpts=:_ 1 3 26,_ 0 1p1 26,_ 0 2p1 26,:_ 0 20 26"_

   ((2^_44)qtsz]) (gXT([Ocncv xRef@hkxF)]) ((0.1;1"_)pTRandom xCpts)''
_0.605225        0        0 _0.725468
        0 0.121579        0         0
_0.128657        0 0.121579 _0.072146
 0.428857        0        0  0.362066


GTE1204C.jpg


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

   gXcw  =: 1.2  0.0  _    _    _  "_
   gXpAll=: 1    1    1.1  1.4  1.5"_

   xCpts=:_ 1 3 26,_ 0 1p1 26,_ 0 2p1 26,:_ 0 20 26"_

   ((2^_44)qtsz]) (gXT([Ocncv xRef@hkxF)]) ((0.1;1"_)pTRandom xCpts)''
_0.607968  0.149555         0 _0.738199
0.0116089 0.0836389         0 0.0140956
        0         0 0.0830369         0
 0.473458 _0.119111         0  0.441292


GTE1205C.jpg


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

   gXcw  =: 1.2  0.3  _    _    _  "_
   gXpAll=: 1    1    1.1  1.4  1.5"_

   xCpts=:_ 1 3 26,_ 0 1p1 26,_ 0 2p1 26,:_ 0 20 26"_

   ((2^_44)qtsz]) (gXT([Ocncv xRef@hkxF)]) ((0.1;1"_)pTRandom xCpts)''
_0.607968  0.149555         0 _0.738199
0.0116089 0.0836389         0 0.0140956
_0.142038 0.0357334 0.0830369 _0.107477
 0.473458 _0.119111         0  0.441292



Download: File:LTE1200C.txt
Download: File:LTE1201C.txt
Download: File:LTE1202C.txt
Download: File:LTE1203C.txt
Download: File:LTE1204C.txt
Download: File:LTE1205C.txt




Download MoinMoin source: File:TensorExperiments12.ijs




Next Page: Essays/Tensor Experiments/TensorExperiments13
Prev Page: Essays/Tensor Experiments/TensorExperiments11