Essays/Tensor Experiments/TensorExperiments14

From J Wiki
Jump to: navigation, search


GTE1400D.jpg


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

Ups      =:(]+-@(      0|:]))"2@Ocvcv
Upsdc    =:(]+-@(    0 2|:]))"3@Ocvcvdc
Upsdcdc  =:(]+-@(  0 2 3|:]))"4@Ocvcvdcdc
Upsdcdcdc=:(]+-@(0 2 3 4|:]))"5@Ocvcvdcdcdc


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

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

   A=:(gXT([Upsdcdc xRef@hkxF)]) ((0.2;50"_)pTRandom xCpts)''
   B=:(gXT((0|:[:(gXT([(0{])@Upsdc xRef@hkxF),:@])D.1])"_ 1)]) ((0.2;50"_)pTRandom xCpts)''

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

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


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([Upsdc yRef@hkyF)]) ((0;50"_)pTRandom yCpts)''
   B=:(gXT((0|:[:(gXT([(0{])@Ups yRef@hkyF),:@])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''

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

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

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

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

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


GTE1401C.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=:[Ups xRef
   vB=:[(ydx((0|:[)smx])"2 ydx((0|:[)smx])"2 Ups)yRef

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


GTE1402C.jpg


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

S=:Ups*/"2 1 Ocn


Sdct0=:(   ])"4@(Ups  (*/)"2 2 Ocndc)
Sdct1=:(2|:])"4@(Upsdc(*/)"3 1 Ocn  )

Sdc=:Sdct0+Sdct1


Sdcdct0=:(     ])"5@(Ups    */"2 3 Ocndcdc)
Sdcdct1=:(  2|:])"5@(Upsdc  */"3 2 Ocndc  )
Sdcdct2=:(2 4|:])"5@(Upsdc  */"3 2 Ocndc  )
Sdcdct3=:(2 3|:])"5@(Upsdcdc*/"4 1 Ocn    )

Sdcdc=:Sdcdct0+Sdcdct1+Sdcdct2+Sdcdct3


Sdcdcdct0=:(       ])"6@(Ups      */"2 4 Ocndcdcdc)
Sdcdcdct1=:(    2|:])"6@(Upsdc    */"3 3 Ocndcdc  )
Sdcdcdct2=:(  2 5|:])"6@(Upsdc    */"3 3 Ocndcdc  )
Sdcdcdct3=:(  2 3|:])"6@(Upsdcdc  */"4 2 Ocndc    )
Sdcdcdct4=:(2 4 5|:])"6@(Upsdc    */"3 3 Ocndcdc  )
Sdcdcdct5=:(2 5 3|:])"6@(Upsdcdc  */"4 2 Ocndc    )
Sdcdcdct6=:(2 3 5|:])"6@(Upsdcdc  */"4 2 Ocndc    )
Sdcdcdct7=:(2 3 4|:])"6@(Upsdcdcdc*/"5 1 Ocn      )

Sdcdcdc=:Sdcdcdct0+Sdcdcdct1+Sdcdcdct2+Sdcdcdct3+Sdcdcdct4+Sdcdcdct5+Sdcdcdct6+Sdcdcdct7


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

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

   A=:(gXT([Sdcdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
   B=:(gXT((0|:[:(gXT([(0{])@Sdc xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''

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

   A=:(gXT([Sdcdcdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
   B=:(gXT((0|:[:(gXT([(0{])@Sdcdc xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''

   A (((2^_44);2^_03)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([Sdc yRef@hkyF)]) ((0;50"_)pTRandom yCpts)''
   B=:(gXT((0|:[:(gXT([(0{])@S yRef@hkyF),:@])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''

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

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

   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

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

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


GTE1403C.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=:[S xRef
   vB=:[(ydx((0|:[)smx])"2 3 ydx((0|:[)smx])"2 3 xdy smx"2 3 S)yRef

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


GTE1404C.jpg


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

Gam      =:ch2k      +0.5*S
Gamdc    =:ch2kdc    +0.5*Sdc
Gamdcdc  =:ch2kdcdc  +0.5*Sdcdc
Gamdcdcdc=:ch2kdcdcdc+0.5*Sdcdcdc


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

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

   A=:(gXT([Gamdcdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
   B=:(gXT((0|:[:(gXT([(0{])@Gamdc xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''

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

   A=:(gXT([Gamdcdcdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
   B=:(gXT((0|:[:(gXT([(0{])@Gamdcdc xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''

   A (((2^_15);2^_03)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([Gamdc yRef@hkyF)]) ((0;50"_)pTRandom yCpts)''
   B=:(gXT((0|:[:(gXT([(0{])@Gam yRef@hkyF),:@])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''

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

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

   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

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

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



Download: File:LTE1400D.txt
Download: File:LTE1401C.txt
Download: File:LTE1402C.txt
Download: File:LTE1403C.txt
Download: File:LTE1404C.txt




Download MoinMoin source: File:TensorExperiments14.ijs




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