Essays/Tensor Experiments/TensorExperiments15

From J Wiki
Jump to navigation Jump to search


GTE1500C.jpg


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

B2kt0=:   ((0 3 1|:])"4)@(Gamdc               )
B2kt1=:-@:((0 1 3|:])"4)@(Gamdc               )
B2kt2=:   ((0 2 1|:])"4)@(Gam([smx 0|:])"3 Gam)
B2kt3=:-@:((0 1 2|:])"4)@(Gam([smx 0|:])"3 Gam)

B2k=:B2kt0+B2kt1+B2kt2+B2kt3


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

   vA =:[B2k xRef
   vB0=:((0|:[)smx])"2 4
   vB1=:((0|:[)smx])"2 4
   vB2=:((0|:[)smx])"2 4
   vB3=:((   [)smx])"2 4
   vB =:[(xdy vB3 ydx vB2 ydx vB1 ydx vB0 B2k)yRef

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


GTE1502C.jpg


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

B2kdct0=:   ((0 3 1 4|:])"5)@(Gamdcdc                        )
B2kdct1=:-@:((0 1 3 4|:])"5)@(Gamdcdc                        )
B2kdct2=:   ((0 2 1 4|:])"5)@(Gam  ((   [)smx 0|:])"3 4 Gamdc)
B2kdct3=:   ((0 3 1 2|:])"5)@(Gamdc((2|:[)smx 0|:])"4 3 Gam  )
B2kdct4=:-@:((0 1 2 4|:])"5)@(Gam  ((   [)smx 0|:])"3 4 Gamdc)
B2kdct5=:-@:((0 1 3 2|:])"5)@(Gamdc((2|:[)smx 0|:])"4 3 Gam  )

B2kdc=:B2kdct0+B2kdct1+B2kdct2+B2kdct3+B2kdct4+B2kdct5


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([B2kdc xRef@hkxF)]) ((0.2;50"_)pTRandom xCpts)''
   B=:(gXT((0|:[:(gXT([(0{])@B2k xRef@hkxF),:@])D.1])"_ 1)]) ((0.2;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. ... execute (ijx) ...

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

   yCpts=:__ 0.5 5 8,__ 0.5 5 8,__ 0.5 5 8,:_ 0 20 8"_

   A=:(gXT([B2kdc yRef@hkyF)]) ((0;50"_)pTRandom yCpts)''
   B=:(gXT((0|:[:(gXT([(0{])@B2k yRef@hkyF),:@])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''

   A (((2^_44);2^_04)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


GTE1503C.jpg


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

B2kcvt0=:                                             B2kdc
B2kcvt1=:   ((      0|:])"5)@(Gam((0|:[)smx 0|:])"3 4 B2k  )
B2kcvt2=:-@:((0 3 4 1|:])"5)@(Gam((   [)smx 1|:])"3 4 B2k  )
B2kcvt3=:-@:((  0 4 1|:])"5)@(Gam((   [)smx 2|:])"3 4 B2k  )
B2kcvt4=:-@:((    0 1|:])"5)@(Gam((   [)smx    ])"3 4 B2k  )

B2kcv=:B2kcvt0+B2kcvt1+B2kcvt2+B2kcvt3+B2kcvt4


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

   vA =:[B2kcv 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 B2kcv)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


GTE1505C.jpg


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

SBk=:(0 1 4|:])"5@(S smx"3 4 B2k)

Lam=:(]+(2 3|:])+2|:])"5@B2kcv
Xi =:(]+(2 3|:])+2|:])"5@SBk


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

   vA =:[Lam 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 Lam)yRef

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


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

   vA =:[Xi 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 Xi)yRef

   (gXT([(vA(((2^_44);2^_29)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


GTE1508C.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. ... for Bianchi Identity ...

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

   (gXT([(Lam(((2^_43);2^_22)qteq[;])"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

   (gXT([(Lam(((2^_44);2^_25)qteq[;])"5 -@Xi)yRef@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:LTE1500C.txt
Download: File:LTE1501C.txt
Download: File:LTE1502C.txt
Download: File:LTE1503C.txt
Download: File:LTE1504C.txt
Download: File:LTE1505C.txt
Download: File:LTE1506C.txt
Download: File:LTE1507C.txt
Download: File:LTE1508C.txt




Download MoinMoin source: File:TensorExperiments15.ijs




Next Page: Essays/Tensor Experiments/TensorExperiments16
Prev Page: Essays/Tensor Experiments/TensorExperiments14