Essays/Tensor Experiments/TensorExperiments17

From J Wiki
Jump to: navigation, search


GTE1700C.jpg


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

B2kdcdct00=:   ((0 3 1 4 5|:])"6)@(Gamdcdcdc                          )
B2kdcdct10=:-@:((0 1 3 4 5|:])"6)@(Gamdcdcdc                          )
B2kdcdct20=:   ((0 2 1 4 5|:])"6)@(Gam    ((   [)smx 0|:])"3 5 Gamdcdc)
B2kdcdct21=:   ((0 3 1 5 2|:])"6)@(Gamdc  ((2|:[)smx 0|:])"4 4 Gamdc  )
B2kdcdct30=:   ((0 3 1 2 5|:])"6)@(Gamdc  ((2|:[)smx 0|:])"4 4 Gamdc  )
B2kdcdct31=:   ((0 4 1 2 3|:])"6)@(Gamdcdc((2|:[)smx 0|:])"5 3 Gam    )
B2kdcdct40=:-@:((0 1 2 4 5|:])"6)@(Gam    ((   [)smx 0|:])"3 5 Gamdcdc)
B2kdcdct41=:-@:((0 1 3 5 2|:])"6)@(Gamdc  ((2|:[)smx 0|:])"4 4 Gamdc  )
B2kdcdct50=:-@:((0 1 3 2 5|:])"6)@(Gamdc  ((2|:[)smx 0|:])"4 4 Gamdc  )
B2kdcdct51=:-@:((0 1 4 2 3|:])"6)@(Gamdcdc((2|:[)smx 0|:])"5 3 Gam    )

B2kdcdct0=:B2kdcdct00
B2kdcdct1=:B2kdcdct10
B2kdcdct2=:B2kdcdct20+B2kdcdct21
B2kdcdct3=:B2kdcdct30+B2kdcdct31
B2kdcdct4=:B2kdcdct40+B2kdcdct41
B2kdcdct5=:B2kdcdct50+B2kdcdct51

B2kdcdc=:B2kdcdct0+B2kdcdct1+B2kdcdct2+B2kdcdct3+B2kdcdct4+B2kdcdct5


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

   A (((2^_13);2^_04)qteq[;])"6 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([B2kdcdc yRef@hkyF)]) ((0;50"_)pTRandom yCpts)''
   B=:(gXT((0|:[:(gXT([(0{])@B2kdc yRef@hkyF),:@])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''

   A (((2^_44);2^_05)qteq[;])"6 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


GTE1701C.jpg


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

B2kcvdct00=:                                                 B2kdcdc
B2kcvdct10=:   ((      0 5|:])"6)@(Gam  ((0|:[)smx 0|:])"3 5 B2kdc  )
B2kcvdct11=:   ((      0 2|:])"6)@(Gamdc((0|:[)smx 0|:])"4 4 B2k    )
B2kcvdct20=:-@:((0 3 4 1 5|:])"6)@(Gam  ((   [)smx 1|:])"3 5 B2kdc  )
B2kcvdct21=:-@:((0 4 5 1 2|:])"6)@(Gamdc((2|:[)smx 1|:])"4 4 B2k    )
B2kcvdct30=:-@:((  0 4 1 5|:])"6)@(Gam  ((   [)smx 2|:])"3 5 B2kdc  )
B2kcvdct31=:-@:((  0 5 1 2|:])"6)@(Gamdc((2|:[)smx 2|:])"4 4 B2k    )
B2kcvdct40=:-@:((    0 1 5|:])"6)@(Gam  ((   [)smx 3|:])"3 5 B2kdc  )
B2kcvdct41=:-@:((    0 1 2|:])"6)@(Gamdc((2|:[)smx    ])"4 4 B2k    )

B2kcvdct0=:B2kcvdct00
B2kcvdct1=:B2kcvdct10+B2kcvdct11
B2kcvdct2=:B2kcvdct20+B2kcvdct21
B2kcvdct3=:B2kcvdct30+B2kcvdct31
B2kcvdct4=:B2kcvdct40+B2kcvdct41

B2kcvdc=:B2kcvdct0+B2kcvdct1+B2kcvdct2+B2kcvdct3+B2kcvdct4


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

   A (((2^_13);2^_04)qteq[;])"6 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([B2kcvdc yRef@hkyF)]) ((0;50"_)pTRandom yCpts)''
   B=:(gXT((0|:[:(gXT([(0{])@B2kcv yRef@hkyF),:@])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''

   A (((2^_26);2^_06)qteq[;])"6 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


GTE1702C.jpg


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

B2kcvcvt0=:                                               B2kcvdc
B2kcvcvt1=:   ((        0|:])"6)@(Gam((0|:[)smx 0|:])"3 5 B2kcv  )
B2kcvcvt2=:-@:((0 3 4 5 1|:])"6)@(Gam((   [)smx 1|:])"3 5 B2kcv  )
B2kcvcvt3=:-@:((  0 4 5 1|:])"6)@(Gam((   [)smx 2|:])"3 5 B2kcv  )
B2kcvcvt4=:-@:((    0 5 1|:])"6)@(Gam((   [)smx 3|:])"3 5 B2kcv  )
B2kcvcvt5=:-@:((      0 1|:])"6)@(Gam((   [)smx    ])"3 5 B2kcv  )

B2kcvcv=:B2kcvcvt0+B2kcvcvt1+B2kcvcvt2+B2kcvcvt3+B2kcvcvt4+B2kcvcvt5


GTE1703C.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 =:[B2kcvcv xRef
   vB0=:((0|:[)smx])"2 6
   vB1=:((0|:[)smx])"2 6
   vB2=:((0|:[)smx])"2 6
   vB3=:((0|:[)smx])"2 6
   vB4=:((0|:[)smx])"2 6
   vB5=:((   [)smx])"2 6
   vB =:[(xdy vB5 ydx vB4 ydx vB3 ydx vB2 ydx vB1 ydx vB0 B2kcvcv)yRef

   (gXT([(vA(((2^_41);2^_16)qteq[;])"6 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


GTE1704D.jpg


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

Lamcv=:(]+(2 3 5|:])+2 5|:])"6@B2kcvcv


GTE1705C.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 =:[Lamcv xRef
   vB0=:((0|:[)smx])"2 6
   vB1=:((0|:[)smx])"2 6
   vB2=:((0|:[)smx])"2 6
   vB3=:((0|:[)smx])"2 6
   vB4=:((0|:[)smx])"2 6
   vB5=:((   [)smx])"2 6
   vB =:[(xdy vB5 ydx vB4 ydx vB3 ydx vB2 ydx vB1 ydx vB0 Lamcv)yRef

   (gXT([(vA(((2^_38);2^_19)qteq[;])"6 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



Download: File:LTE1700C.txt
Download: File:LTE1701C.txt
Download: File:LTE1702C.txt
Download: File:LTE1703C.txt
Download: File:LTE1704D.txt
Download: File:LTE1705C.txt




Download MoinMoin source: File:TensorExperiments17.ijs




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