Essays/Tensor Experiments/TensorExperiments18

From J Wiki
Jump to navigation Jump to search


GTE1800C.jpg


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

Scvt0=:                                         Sdc
Scvt1=:-@:((    1|:])"4)@(Gam((   [)smx 0|:])"3 S  )
Scvt2=:-@:((0 3 1|:])"4)@(Gam((   [)smx 1|:])"3 S  )
Scvt3=:   ((  1 0|:])"4)@(Gam((0|:[)smx    ])"3 S  )

Scv=:Scvt0+Scvt1+Scvt2+Scvt3


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 =:[Scv xRef
   vB =:[(ydx((0|:[)smx])"2 4 ydx((0|:[)smx])"2 4 xdy smx"2 4 ydx((0|:[)smx])"2 4 Scv)yRef

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


GTE1801C.jpg


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

SBkcvt0=:(0 1 4 5|:])"6@(S  ((   [)smx 3|:])"3 5 B2kcv)
SBkcvt1=:(0 1 5 2|:])"6@(Scv((2|:[)smx    ])"4 4 B2k  )

SBkcv=:SBkcvt0+SBkcvt1


GTE1802C.jpg


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

Xicv=:(]+(2 3 5|:])+2 5|:])"6@SBkcv


GTE1803C.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 =:[Xicv 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 Xicv)yRef

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


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

   (gXT([(Lamcv(((2^_38);2^_19)qteq[;])"6-@Xicv)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:LTE1800C.txt
Download: File:LTE1801C.txt
Download: File:LTE1802C.txt
Download: File:LTE1803C.txt
Download: File:LTE1804C.txt




Download MoinMoin source: File:TensorExperiments18.ijs




Next Page: Essays/Tensor Experiments/TensorExperiments19
Prev Page: Essays/Tensor Experiments/TensorExperiments17