User:Tom Allen/TensorExperimentsZ01
Jump to navigation
Jump to search
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
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
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
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
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
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