Essays/Tensor Experiments/TensorExperiments22

From J Wiki
Jump to: navigation, search


GTE2200C.jpg


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

R=:B2kcv+SBk


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 =:[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 =:[(xdy vB4 ydx vB3 ydx vB2 ydx vB1 ydx vB0 R)yRef

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

   *./^:3"3 (0=]) ((2^_43)qtsz]) (gXT([(]+0|:])"2@:((0 1|:])"3)@(+/"1@((<0 1)|:])"5@R)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


GTE2201C.jpg


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

NB. ... rank 1 ...

LamEMr1=:+/"1@((<0 2)|:])"3@(mcn([smx 0|:])"2 3+/"1@((<0 1)|:])"5@Lam)
XiEMr1 =:+/"1@((<0 2)|:])"3@(mcn([smx 0|:])"2 3+/"1@((<0 1)|:])"5@Xi )

NB. ... rank 2 ...

LamEMr2=:+/"1@((<0 2)|:])"4@(mcn([smx 0|:])"2 4+/"1@((<0 1)|:])"6@Lamcv)
XiEMr2 =:+/"1@((<0 2)|:])"4@(mcn([smx 0|:])"2 4+/"1@((<0 1)|:])"6@Xicv )

NB. ... invariants ...

LamEMr0=:+/@((<0 1)|:])"2@(mcn([smx 0|:])"2 LamEMr2)
XiEMr0 =:+/@((<0 1)|:])"2@(mcn([smx 0|:])"2 XiEMr2 )


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. ... rank 1 ...

   *./"1 (0=]) ((2^_44)qtsz]) (gXT([LamEMr1 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

   *./"1 (0=]) ((2^_44)qtsz]) (gXT([XiEMr1  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

NB. ... rank 2 ...

   *./^:2"2 (0=]) ((2^_42)qtsz]) (gXT([LamEMr2 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

   *./^:2"2 (0=]) ((2^_44)qtsz]) (gXT([XiEMr2  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

NB. ... invariants ...

   (0=]) ((2^_41)qtsz]) (gXT([LamEMr0 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

   (0=]) ((2^_44)qtsz]) (gXT([XiEMr0  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


GTE2202C.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. ... Maxwell's equation ...

   *./^:3"3 (0=]) ((2^_43)qtsz]) (gXT([(+/"1@((<0 1)|:])"5@Lam++/"1@((<0 1)|:])"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



Download: File:LTE2200C.txt
Download: File:LTE2201C.txt
Download: File:LTE2202C.txt




Download MoinMoin source: File:TensorExperiments22.ijs




Next Page: Essays/Tensor Experiments/TensorExperiments23
Prev Page: Essays/Tensor Experiments/TensorExperiments21