User:Tom Allen/TensorExperimentsZ01

From J Wiki
Jump to navigation Jump to search


GTEZ0100C.jpg


NB. ... script experimentalZ.ijs ...

lcv        =:(1 0 0 0,0 1 0 0,0 0 1 0,:0,0,0,-@(gXc^2:))"_ 1
lcvdz      =:((3$4:)$0:)"_ 1
lcvdzdz    =:((4$4:)$0:)"_ 1
lcvdzdzdz  =:((5$4:)$0:)"_ 1
lcvdzdzdzdz=:((6$4:)$0:)"_ 1

lcvD4        =:>@((<2 0){])
lcvD4dz      =:>@((<2 1){])
lcvD4dzdz    =:>@((<2 2){])
lcvD4dzdzdz  =:>@((<2 3){])
lcvD4dzdzdzdz=:>@((<2 4){])

lcvXX=:lcv;lcvdz;lcvdzdz;lcvdzdzdz;lcvdzdzdzdz;_"_

hkxJ=:[(],[lcvXX zpts)hkxAB
hkyJ=:[(],[lcvXX zpts)hkyAB


GTEZ0101C.jpg


NB. ... script experimentalZ.ijs ...

jcv=:zdx([((0|:[)smx])"2((0|:[)smx])"2)lcvD4


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

   gXcw  =: 1.2  0  _  _  _  _"_
   gXbAll=: _    _  _  _  _  0"_

   xCpts=:_ 1 3 27,_ 0 1p1 27,_ 0 2p1 27,:_ 0 2 27"_

   (gXZ([(lcvD4(((2^_44);2^_44)qteq[;])"2 xdz([((0|:[)smx])"2((0|:[)smx])"2)jcv)hkxJ)]) ((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


GTEZ0102C.jpg


NB. ... script experimentalZ.ijs ...

jcvdxt0=:(   ])"3@(zdx  ((0|:[)smx])"2 3 zdxdx((0|:[)smx])"3 2 lcvD4)
jcvdxt1=:(1|:])"3@(zdxdx((0|:[)smx])"3 2 zdx  ((0|:[)smx])"2 2 lcvD4)

jcvdx=:jcvdxt0+jcvdxt1


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

   gXcw  =: 1.2  0  _  _  _  _"_
   gXbAll=: _    _  _  _  _  0"_

   xCpts=:_ 1 3 27,_ 0 1p1 27,_ 0 2p1 27,:_ 0 2 27"_

   A=:(gXZ([jcvdx hkxJ)])                             ((0.1;50"_)pTRandom xCpts)''
   B=:(gXZ(0|:[:(gXZ([(0{])@jcv hkxJ),:@])D.1])"_ 1]) ((0.1;50"_)pTRandom xCpts)''

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


GTEZ0103C.jpg


NB. ... script experimentalZ.ijs ...

jcvdxdxt0=:(     ])"4@(zdx    ((0|:[)smx])"2 4 zdxdxdx((0|:[)smx])"4 2 lcvD4)
jcvdxdxt1=:(  1|:])"4@(zdxdx  ((0|:[)smx])"3 3 zdxdx  ((0|:[)smx])"3 2 lcvD4)
jcvdxdxt2=:(1 3|:])"4@(zdxdx  ((0|:[)smx])"3 3 zdxdx  ((0|:[)smx])"3 2 lcvD4)
jcvdxdxt3=:(1 2|:])"4@(zdxdxdx((0|:[)smx])"4 2 zdx    ((0|:[)smx])"2 2 lcvD4)

jcvdxdx=:jcvdxdxt0+jcvdxdxt1+jcvdxdxt2+jcvdxdxt3


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

   gXcw  =: 1.2  0  _  _  _  _"_
   gXbAll=: _    _  _  _  _  0"_

   xCpts=:_ 1 3 27,_ 0 1p1 27,_ 0 2p1 27,:_ 0 2 27"_

   A=:(gXZ([jcvdxdx hkxJ)])                             ((0.1;50"_)pTRandom xCpts)''
   B=:(gXZ(0|:[:(gXZ([(0{])@jcvdx hkxJ),:@])D.1])"_ 1]) ((0.1;50"_)pTRandom xCpts)''

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


GTEZ0104C.jpg


NB. ... script experimentalZ.ijs ...

jcvdxdxdxt0=:(       ])"5@(zdx      ((0|:[)smx])"2 5 zdxdxdxdx((0|:[)smx])"5 2 lcvD4)
jcvdxdxdxt1=:(    1|:])"5@(zdxdx    ((0|:[)smx])"3 4 zdxdxdx  ((0|:[)smx])"4 2 lcvD4)
jcvdxdxdxt2=:(  1 4|:])"5@(zdxdx    ((0|:[)smx])"3 4 zdxdxdx  ((0|:[)smx])"4 2 lcvD4)
jcvdxdxdxt3=:(  1 2|:])"5@(zdxdxdx  ((0|:[)smx])"4 3 zdxdx    ((0|:[)smx])"3 2 lcvD4)
jcvdxdxdxt4=:(1 3 4|:])"5@(zdxdx    ((0|:[)smx])"3 4 zdxdxdx  ((0|:[)smx])"4 2 lcvD4)
jcvdxdxdxt5=:(1 4 2|:])"5@(zdxdxdx  ((0|:[)smx])"4 3 zdxdx    ((0|:[)smx])"3 2 lcvD4)
jcvdxdxdxt6=:(1 2 4|:])"5@(zdxdxdx  ((0|:[)smx])"4 3 zdxdx    ((0|:[)smx])"3 2 lcvD4)
jcvdxdxdxt7=:(1 2 3|:])"5@(zdxdxdxdx((0|:[)smx])"5 2 zdx      ((0|:[)smx])"2 2 lcvD4)

jcvdxdxdx=:jcvdxdxdxt0+jcvdxdxdxt1+jcvdxdxdxt2+jcvdxdxdxt3+jcvdxdxdxt4+jcvdxdxdxt5+jcvdxdxdxt6+jcvdxdxdxt7


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

   gXcw  =: 1.2  0  _  _  _  _"_
   gXbAll=: _    _  _  _  _  0"_

   xCpts=:_ 1 3 27,_ 0 1p1 27,_ 0 2p1 27,:_ 0 2 27"_

   A=:(gXZ([jcvdxdxdx hkxJ)])                             ((0.1;50"_)pTRandom xCpts)''
   B=:(gXZ(0|:[:(gXZ([(0{])@jcvdxdx hkxJ),:@])D.1])"_ 1]) ((0.1;50"_)pTRandom xCpts)''

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


GTEZ0105C.jpg


NB. ... script experimentalZ.ijs ...

jcvdxdxdxdxt00=:(         ])"6@(zdx        ((0|:[)smx])"2 6 zdxdxdxdxdx((0|:[)smx])"6 2 lcvD4)
jcvdxdxdxdxt01=:(      1|:])"6@(zdxdx      ((0|:[)smx])"3 5 zdxdxdxdx  ((0|:[)smx])"5 2 lcvD4)
jcvdxdxdxdxt02=:(    1 5|:])"6@(zdxdx      ((0|:[)smx])"3 5 zdxdxdxdx  ((0|:[)smx])"5 2 lcvD4)
jcvdxdxdxdxt03=:(    1 2|:])"6@(zdxdxdx    ((0|:[)smx])"4 4 zdxdxdx    ((0|:[)smx])"4 2 lcvD4)
jcvdxdxdxdxt04=:(  1 4 5|:])"6@(zdxdx      ((0|:[)smx])"3 5 zdxdxdxdx  ((0|:[)smx])"5 2 lcvD4)
jcvdxdxdxdxt05=:(  1 5 2|:])"6@(zdxdxdx    ((0|:[)smx])"4 4 zdxdxdx    ((0|:[)smx])"4 2 lcvD4)
jcvdxdxdxdxt06=:(  1 2 5|:])"6@(zdxdxdx    ((0|:[)smx])"4 4 zdxdxdx    ((0|:[)smx])"4 2 lcvD4)
jcvdxdxdxdxt07=:(  1 2 3|:])"6@(zdxdxdxdx  ((0|:[)smx])"5 3 zdxdx      ((0|:[)smx])"3 2 lcvD4)
jcvdxdxdxdxt08=:(1 3 4 5|:])"6@(zdxdx      ((0|:[)smx])"3 5 zdxdxdxdx  ((0|:[)smx])"5 2 lcvD4)
jcvdxdxdxdxt09=:(1 4 5 2|:])"6@(zdxdxdx    ((0|:[)smx])"4 4 zdxdxdx    ((0|:[)smx])"4 2 lcvD4)
jcvdxdxdxdxt10=:(1 4 2 5|:])"6@(zdxdxdx    ((0|:[)smx])"4 4 zdxdxdx    ((0|:[)smx])"4 2 lcvD4)
jcvdxdxdxdxt11=:(1 5 2 3|:])"6@(zdxdxdxdx  ((0|:[)smx])"5 3 zdxdx      ((0|:[)smx])"3 2 lcvD4)
jcvdxdxdxdxt12=:(1 2 4 5|:])"6@(zdxdxdx    ((0|:[)smx])"4 4 zdxdxdx    ((0|:[)smx])"4 2 lcvD4)
jcvdxdxdxdxt13=:(1 2 5 3|:])"6@(zdxdxdxdx  ((0|:[)smx])"5 3 zdxdx      ((0|:[)smx])"3 2 lcvD4)
jcvdxdxdxdxt14=:(1 2 3 5|:])"6@(zdxdxdxdx  ((0|:[)smx])"5 3 zdxdx      ((0|:[)smx])"3 2 lcvD4)
jcvdxdxdxdxt15=:(1 2 3 4|:])"6@(zdxdxdxdxdx((0|:[)smx])"6 2 zdx        ((0|:[)smx])"2 2 lcvD4)

jcvdxdxdxdxt0=:jcvdxdxdxdxt00+jcvdxdxdxdxt01
jcvdxdxdxdxt1=:jcvdxdxdxdxt02+jcvdxdxdxdxt03
jcvdxdxdxdxt2=:jcvdxdxdxdxt04+jcvdxdxdxdxt05
jcvdxdxdxdxt3=:jcvdxdxdxdxt06+jcvdxdxdxdxt07
jcvdxdxdxdxt4=:jcvdxdxdxdxt08+jcvdxdxdxdxt09
jcvdxdxdxdxt5=:jcvdxdxdxdxt10+jcvdxdxdxdxt11
jcvdxdxdxdxt6=:jcvdxdxdxdxt12+jcvdxdxdxdxt13
jcvdxdxdxdxt7=:jcvdxdxdxdxt14+jcvdxdxdxdxt15

jcvdxdxdxdx=:jcvdxdxdxdxt0+jcvdxdxdxdxt1+jcvdxdxdxdxt2+jcvdxdxdxdxt3+jcvdxdxdxdxt4+jcvdxdxdxdxt5+jcvdxdxdxdxt6+jcvdxdxdxdxt7


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

   gXcw  =: 1.2  0  _  _  _  _"_
   gXbAll=: _    _  _  _  _  0"_

   xCpts=:_ 1 3 27,_ 0 1p1 27,_ 0 2p1 27,:_ 0 2 27"_

   A=:(gXZ([jcvdxdxdxdx hkxJ)])                             ((0.1;50"_)pTRandom xCpts)''
   B=:(gXZ(0|:[:(gXZ([(0{])@jcvdxdxdx hkxJ),:@])D.1])"_ 1]) ((0.1;50"_)pTRandom xCpts)''

   A (((2^_21);2^_17)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. ... script experimentalZ.ijs ...

jcvXX=:jcv;jcvdx;jcvdxdx;jcvdxdxdx;jcvdxdxdxdx;_"_

hkxK=:[(],jcvXX)hkxJ
hkyK=:[(],jcvXX)hkyJ



Download: File:LTEZ0100C.txt
Download: File:LTEZ0101C.txt
Download: File:LTEZ0102C.txt
Download: File:LTEZ0103C.txt
Download: File:LTEZ0104C.txt
Download: File:LTEZ0105C.txt




Download MoinMoin source: File:TensorExperimentsZ01.ijs