Essays/Tensor Experiments/TensorExperiments07

From J Wiki
Jump to: navigation, search


GTE0700C.jpg


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

hcv        =:(1 0 0 0,0 1 0 0,0 0 1 0,:0,0,0,-@(gXc^2:))"_ 1
hcvdy      =:((3$4:)$0:)"_ 1
hcvdydy    =:((4$4:)$0:)"_ 1
hcvdydydy  =:((5$4:)$0:)"_ 1
hcvdydydydy=:((6$4:)$0:)"_ 1

hcvD4        =:>@((<2 0){])
hcvD4dy      =:>@((<2 1){])
hcvD4dydy    =:>@((<2 2){])
hcvD4dydydy  =:>@((<2 3){])
hcvD4dydydydy=:>@((<2 4){])

hcvXX=:hcv;hcvdy;hcvdydy;hcvdydydy;hcvdydydydy;_"_

hkxC=:[(],[hcvXX ypts)hkxAB
hkyC=:[(],[hcvXX ypts)hkyAB


GTE0701C.jpg


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

gcv=:ydx([((0|:[)smx])"2((0|:[)smx])"2)hcvD4


NB. ... execute (ijx) ...

   gXcw  =: 1.2  0.3  _  _  _"_
   gXpAll=: 0    0    0  0  0"_

   xCpts=:_ 1 3 26,_ 0 1p1 26,_ 0 2p1 26,:_ 0 20 26"_

   (gXT([(hcvD4(((2^_44);2^_44)qteq[;])"2 xdy([((0|:[)smx])"2((0|:[)smx])"2)gcv)hkxC)]) ((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


GTE0702C.jpg


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

gcvdxt0=:(   ])"3@(ydx  ((0|:[)smx])"2 3 ydxdx((0|:[)smx])"3 2 hcvD4)
gcvdxt1=:(1|:])"3@(ydxdx((0|:[)smx])"3 2 ydx  ((0|:[)smx])"2 2 hcvD4)

gcvdx=:gcvdxt0+gcvdxt1


NB. ... execute (ijx) ...

   gXcw  =: 1.2  0.3  _  _  _"_
   gXpAll=: 0    0    0  0  0"_

   xCpts=:_ 1 3 26,_ 0 1p1 26,_ 0 2p1 26,:_ 0 20 26"_

   (gXT(([gcvdx hkxC)(((2^_23);2^_20)qteq[;])"3(0|:[:(gXT([(0{])@gcv hkxC),:@])D.1])"_ 1)]) ((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


GTE0703C.jpg


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

gcvdxdxt0=:(     ])"4@(ydx    ((0|:[)smx])"2 4 ydxdxdx((0|:[)smx])"4 2 hcvD4)
gcvdxdxt1=:(  1|:])"4@(ydxdx  ((0|:[)smx])"3 3 ydxdx  ((0|:[)smx])"3 2 hcvD4)
gcvdxdxt2=:(1 3|:])"4@(ydxdx  ((0|:[)smx])"3 3 ydxdx  ((0|:[)smx])"3 2 hcvD4)
gcvdxdxt3=:(1 2|:])"4@(ydxdxdx((0|:[)smx])"4 2 ydx    ((0|:[)smx])"2 2 hcvD4)

gcvdxdx=:gcvdxdxt0+gcvdxdxt1+gcvdxdxt2+gcvdxdxt3


NB. ... execute (ijx) ...

   gXcw  =: 1.2  0.3  _  _  _"_
   gXpAll=: 0    0    0  0  0"_

   xCpts=:_ 1 3 26,_ 0 1p1 26,_ 0 2p1 26,:_ 0 20 26"_

   (gXT(([gcvdxdx hkxC)(((2^_23);2^_18)qteq[;])"4(0|:[:(gXT([(0{])@gcvdx hkxC),:@])D.1])"_ 1)]) ((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


GTE0704C.jpg


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

gcvdxdxdxt0=:(       ])"5@(ydx      ((0|:[)smx])"2 5 ydxdxdxdx((0|:[)smx])"5 2 hcvD4)
gcvdxdxdxt1=:(    1|:])"5@(ydxdx    ((0|:[)smx])"3 4 ydxdxdx  ((0|:[)smx])"4 2 hcvD4)
gcvdxdxdxt2=:(  1 4|:])"5@(ydxdx    ((0|:[)smx])"3 4 ydxdxdx  ((0|:[)smx])"4 2 hcvD4)
gcvdxdxdxt3=:(  1 2|:])"5@(ydxdxdx  ((0|:[)smx])"4 3 ydxdx    ((0|:[)smx])"3 2 hcvD4)
gcvdxdxdxt4=:(1 3 4|:])"5@(ydxdx    ((0|:[)smx])"3 4 ydxdxdx  ((0|:[)smx])"4 2 hcvD4)
gcvdxdxdxt5=:(1 4 2|:])"5@(ydxdxdx  ((0|:[)smx])"4 3 ydxdx    ((0|:[)smx])"3 2 hcvD4)
gcvdxdxdxt6=:(1 2 4|:])"5@(ydxdxdx  ((0|:[)smx])"4 3 ydxdx    ((0|:[)smx])"3 2 hcvD4)
gcvdxdxdxt7=:(1 2 3|:])"5@(ydxdxdxdx((0|:[)smx])"5 2 ydx      ((0|:[)smx])"2 2 hcvD4)

gcvdxdxdx=:gcvdxdxdxt0+gcvdxdxdxt1+gcvdxdxdxt2+gcvdxdxdxt3+gcvdxdxdxt4+gcvdxdxdxt5+gcvdxdxdxt6+gcvdxdxdxt7


NB. ... execute (ijx) ...

   gXcw  =: 1.2  0.3  _  _  _"_
   gXpAll=: 0    0    0  0  0"_

   xCpts=:_ 1 3 26,_ 0 1p1 26,_ 0 2p1 26,:_ 0 20 26"_

   (gXT(([gcvdxdxdx hkxC)(((2^_22);2^_18)qteq[;])"5(0|:[:(gXT([(0{])@gcvdxdx hkxC),:@])D.1])"_ 1)]) ((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


GTE0705C.jpg


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

gcvdxdxdxdxt00=:(         ])"6@(ydx        ((0|:[)smx])"2 6 ydxdxdxdxdx((0|:[)smx])"6 2 hcvD4)
gcvdxdxdxdxt01=:(      1|:])"6@(ydxdx      ((0|:[)smx])"3 5 ydxdxdxdx  ((0|:[)smx])"5 2 hcvD4)
gcvdxdxdxdxt02=:(    1 5|:])"6@(ydxdx      ((0|:[)smx])"3 5 ydxdxdxdx  ((0|:[)smx])"5 2 hcvD4)
gcvdxdxdxdxt03=:(    1 2|:])"6@(ydxdxdx    ((0|:[)smx])"4 4 ydxdxdx    ((0|:[)smx])"4 2 hcvD4)
gcvdxdxdxdxt04=:(  1 4 5|:])"6@(ydxdx      ((0|:[)smx])"3 5 ydxdxdxdx  ((0|:[)smx])"5 2 hcvD4)
gcvdxdxdxdxt05=:(  1 5 2|:])"6@(ydxdxdx    ((0|:[)smx])"4 4 ydxdxdx    ((0|:[)smx])"4 2 hcvD4)
gcvdxdxdxdxt06=:(  1 2 5|:])"6@(ydxdxdx    ((0|:[)smx])"4 4 ydxdxdx    ((0|:[)smx])"4 2 hcvD4)
gcvdxdxdxdxt07=:(  1 2 3|:])"6@(ydxdxdxdx  ((0|:[)smx])"5 3 ydxdx      ((0|:[)smx])"3 2 hcvD4)
gcvdxdxdxdxt08=:(1 3 4 5|:])"6@(ydxdx      ((0|:[)smx])"3 5 ydxdxdxdx  ((0|:[)smx])"5 2 hcvD4)
gcvdxdxdxdxt09=:(1 4 5 2|:])"6@(ydxdxdx    ((0|:[)smx])"4 4 ydxdxdx    ((0|:[)smx])"4 2 hcvD4)
gcvdxdxdxdxt10=:(1 4 2 5|:])"6@(ydxdxdx    ((0|:[)smx])"4 4 ydxdxdx    ((0|:[)smx])"4 2 hcvD4)
gcvdxdxdxdxt11=:(1 5 2 3|:])"6@(ydxdxdxdx  ((0|:[)smx])"5 3 ydxdx      ((0|:[)smx])"3 2 hcvD4)
gcvdxdxdxdxt12=:(1 2 4 5|:])"6@(ydxdxdx    ((0|:[)smx])"4 4 ydxdxdx    ((0|:[)smx])"4 2 hcvD4)
gcvdxdxdxdxt13=:(1 2 5 3|:])"6@(ydxdxdxdx  ((0|:[)smx])"5 3 ydxdx      ((0|:[)smx])"3 2 hcvD4)
gcvdxdxdxdxt14=:(1 2 3 5|:])"6@(ydxdxdxdx  ((0|:[)smx])"5 3 ydxdx      ((0|:[)smx])"3 2 hcvD4)
gcvdxdxdxdxt15=:(1 2 3 4|:])"6@(ydxdxdxdxdx((0|:[)smx])"6 2 ydx        ((0|:[)smx])"2 2 hcvD4)

gcvdxdxdxdxt0=:gcvdxdxdxdxt00+gcvdxdxdxdxt01
gcvdxdxdxdxt1=:gcvdxdxdxdxt02+gcvdxdxdxdxt03
gcvdxdxdxdxt2=:gcvdxdxdxdxt04+gcvdxdxdxdxt05
gcvdxdxdxdxt3=:gcvdxdxdxdxt06+gcvdxdxdxdxt07
gcvdxdxdxdxt4=:gcvdxdxdxdxt08+gcvdxdxdxdxt09
gcvdxdxdxdxt5=:gcvdxdxdxdxt10+gcvdxdxdxdxt11
gcvdxdxdxdxt6=:gcvdxdxdxdxt12+gcvdxdxdxdxt13
gcvdxdxdxdxt7=:gcvdxdxdxdxt14+gcvdxdxdxdxt15

gcvdxdxdxdx=:gcvdxdxdxdxt0+gcvdxdxdxdxt1+gcvdxdxdxdxt2+gcvdxdxdxdxt3+gcvdxdxdxdxt4+gcvdxdxdxdxt5+gcvdxdxdxdxt6+gcvdxdxdxdxt7


NB. ... execute (ijx) ...

   gXcw  =: 1.2  0.3  _  _  _"_
   gXpAll=: 0    0    0  0  0"_

   xCpts=:_ 1 3 26,_ 0 1p1 26,_ 0 2p1 26,:_ 0 20 26"_

   (gXT(([gcvdxdxdxdx hkxC)(((2^_22);2^_18)qteq[;])"6(0|:[:(gXT([(0{])@gcvdxdxdx hkxC),:@])D.1])"_ 1)]) ((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. ... script experimental.ijs ...

gcvXX=:gcv;gcvdx;gcvdxdx;gcvdxdxdx;gcvdxdxdxdx;_"_

hkxD=:[(],gcvXX)hkxC
hkyD=:[(],gcvXX)hkyC



Download: File:LTE0700C.txt
Download: File:LTE0701C.txt
Download: File:LTE0702C.txt
Download: File:LTE0703C.txt
Download: File:LTE0704C.txt
Download: File:LTE0705C.txt




Download MoinMoin source: File:TensorExperiments07.ijs




Next Page: Essays/Tensor Experiments/TensorExperiments08
Prev Page: Essays/Tensor Experiments/TensorExperiments06