Essays/Tensor Experiments/TensorExperiments11
< Essays | Tensor Experiments
Jump to navigation
Jump to search
NB. ... script experimental.ijs ...
yRef=:(0{]),(1{]),(2{]),:4{]
xRef=:(0{]),(1{]),(3{]),:5{]
mcv =:>@((<2 0){])
mcvdc =:>@((<2 1){])
mcvdcdc =:>@((<2 2){])
mcvdcdcdc =:>@((<2 3){])
mcvdcdcdcdc=:>@((<2 4){])
Ocn =:>@((<3 0){])
Ocndc =:>@((<3 1){])
Ocndcdc =:>@((<3 2){])
Ocndcdcdc =:>@((<3 3){])
Ocndcdcdcdc=:>@((<3 4){])
NB. ... script experimental.ijs ...
mXsign =:*/~@({.@$$1,_1:)
mXdet =:-/ . *
mXminors=:1&(|:\.)"2^:2
mXsign1=:( 0|:])@:((mXsign*])"2)@(0 1|:])"3
mXsign2=:( 0 1|:])@:((mXsign*])"2)@(0 1|:])"4
mXsign3=:(0 1 2|:])@:((mXsign*])"2)@(0 1|:])"5
s2mdc =:( 0|:])@(mXminors^:2)@(0 1|:])"3@mcvdc
s2mdcdc =:( 0 1|:])@(mXminors^:2)@(0 1|:])"4@mcvdcdc
s3mdc =:( 0|:])@(mXminors^:1)@(0 1|:])"3@mcvdc
s3mdcdc =:( 0 1|:])@(mXminors^:1)@(0 1|:])"4@mcvdcdc
s3mdcdcdc=:(0 1 2|:])@(mXminors^:1)@(0 1|:])"5@mcvdcdcdc
S2M =:(mXsign*])"2@:mXdet@(mXminors^:3)@mcv
S3M =:(mXsign*])"2@:mXdet@(mXminors^:2)@mcv
S4M =:(mXsign*])"2@:mXdet@(mXminors^:1)@mcv
mdet=: mXdet@(mXminors^:0)@mcv
NB. ... script experimental.ijs ... S2Mdc=:(0|:])@:((mXsign*])@:(|."1)@|."2)@(mXminors^:2)@(0 1|:])"3@mcvdc
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"_
A=:(gXT([S2Mdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@S2M xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_23);2^_20)qteq[;])"7 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 experimental.ijs ... S3Mdc =:s2mdc mXsign1@:((+/"1)@((<0 2)|:])@((1|:[)smx ])"3 2)S2M S3Mdcdct0=:s2mdc (+/"1)@((<0 2)|:])@((1|:[)smx 1|:])"3 3 S2Mdc S3Mdcdct1=:s2mdcdc (+/"1)@((<0 3)|:])@((1|:[)smx ])"4 2 S2M S3Mdcdc =:mXsign2@(S3Mdcdct0+S3Mdcdct1)
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"_
A=:(gXT([S3Mdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@S3M xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_20);2^_16)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([S3Mdcdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@S3Mdc xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_21);2^_13)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 experimental.ijs ... S4Mdc =:s3mdc mXsign1@:((+/"1)@((<0 2)|:])@((1|:[)smx ])"3 2)S3M S4Mdcdct0 =:s3mdc (+/"1)@((<0 2)|:])@((1|:[)smx 1|:])"3 3 S3Mdc S4Mdcdct1 =:s3mdcdc (+/"1)@((<0 3)|:])@((1|:[)smx ])"4 2 S3M S4Mdcdc =:mXsign2@(S4Mdcdct0+S4Mdcdct1) S4Mdcdcdct0=:s3mdc (+/"1)@((<0 2)|:])@((1|:[)smx 1|:])"3 4 S3Mdcdc S4Mdcdcdct1=:s3mdcdc (1|:])@:(+/"1)@((<0 3)|:])@((1|:[)smx 1|:])"4 3 S3Mdc S4Mdcdcdct2=:s3mdcdc (+/"1)@((<0 3)|:])@((1|:[)smx 1|:])"4 3 S3Mdc S4Mdcdcdct3=:s3mdcdcdc (+/"1)@((<0 4)|:])@((1|:[)smx ])"5 2 S3M S4Mdcdcdc =:mXsign3@(S4Mdcdcdct0+S4Mdcdcdct1+S4Mdcdcdct2+S4Mdcdcdct3)
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"_
A=:(gXT([S4Mdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@S4M xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_20);2^_16)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([S4Mdcdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@S4Mdc xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_08);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
A=:(gXT([S4Mdcdcdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@S4Mdcdc xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_18);2^_18)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 experimental.ijs ... mdetdc =:mcvdc (+/"1)@((<0 2)|:])@((1|:[)smx ])"3 2 S4M mdetdcdct0 =:mcvdc (+/"1)@((<0 2)|:])@((1|:[)smx 1|:])"3 3 S4Mdc mdetdcdct1 =:mcvdcdc (+/"1)@((<0 3)|:])@((1|:[)smx ])"4 2 S4M mdetdcdc =:mdetdcdct0+mdetdcdct1 mdetdcdcdct0=:mcvdc (+/"1)@((<0 2)|:])@((1|:[)smx 1|:])"3 4 S4Mdcdc mdetdcdcdct1=:mcvdcdc (1|:])@:(+/"1)@((<0 3)|:])@((1|:[)smx 1|:])"4 3 S4Mdc mdetdcdcdct2=:mcvdcdc (+/"1)@((<0 3)|:])@((1|:[)smx 1|:])"4 3 S4Mdc mdetdcdcdct3=:mcvdcdcdc (+/"1)@((<0 4)|:])@((1|:[)smx ])"5 2 S4M mdetdcdcdc =:mdetdcdcdct0+mdetdcdcdct1+mdetdcdcdct2+mdetdcdcdct3
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"_
A=:(gXT([mdetdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@mdet xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_20);2^_20)qteq[;])"1 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([mdetdcdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@mdetdc xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_18);2^_18)qteq[;])"2 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([mdetdcdcdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@mdetdcdc xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_18);2^_18)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 experimental.ijs ... mdetr=:mdet^_1: mdetrdc=:_1*(mdet^_2:)*"0 1 mdetdc mdetrdcdct0=:( ])"2@(_1*(mdet^_2:)*"0 2 mdetdcdc ) mdetrdcdct1=:(0|:])"2@( 2*(mdet^_3:)*"0 2 mdetdc */"1 1 mdetdc) mdetrdcdc =:mdetrdcdct0+mdetrdcdct1 mdetrdcdcdct0=:( ])"3@(_1*(mdet^_2:)*"0 3 mdetdcdcdc ) mdetrdcdcdct1=:( 0|:])"3@( 2*(mdet^_3:)*"0 3 mdetdc */"1 2 mdetdcdc ) mdetrdcdcdct2=:(0 2|:])"3@( 2*(mdet^_3:)*"0 3 mdetdc */"1 2 mdetdcdc ) mdetrdcdcdct3=:(0 1|:])"3@( 2*(mdet^_3:)*"0 3 mdetdcdc */"2 1 mdetdc ) mdetrdcdcdct4=:(1 0|:])"3@(_6*(mdet^_4:)*"0 3 mdetdc */"1 2 mdetdc */"1 1 mdetdc) mdetrdcdcdc =:mdetrdcdcdct0+mdetrdcdcdct1+mdetrdcdcdct2+mdetrdcdcdct3+mdetrdcdcdct4
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"_
A=:(gXT([mdetrdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@mdetr xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_25);2^_19)qteq[;])"1 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([mdetrdcdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@mdetrdc xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_23);2^_18)qteq[;])"2 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([mdetrdcdcdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@mdetrdcdc xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_18);2^_18)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 experimental.ijs ... mcn=:mdetr*/"0 2 S4M mcndct0=:( ])"3@(mdetr */"0 3 S4Mdc) mcndct1=:(0|:])"3@(mdetrdc*/"1 2 S4M ) mcndc =:mcndct0+mcndct1 mcndcdct0=:( ])"4@(mdetr */"0 4 S4Mdcdc) mcndcdct1=:( 0|:])"4@(mdetrdc */"1 3 S4Mdc ) mcndcdct2=:(0 3|:])"4@(mdetrdc */"1 3 S4Mdc ) mcndcdct3=:(0 1|:])"4@(mdetrdcdc*/"2 2 S4M ) mcndcdc =:mcndcdct0+mcndcdct1+mcndcdct2+mcndcdct3 mcndcdcdct0=:( ])"5@(mdetr */"0 5 S4Mdcdcdc) mcndcdcdct1=:( 0|:])"5@(mdetrdc */"1 4 S4Mdcdc ) mcndcdcdct2=:( 0 4|:])"5@(mdetrdc */"1 4 S4Mdcdc ) mcndcdcdct3=:( 0 1|:])"5@(mdetrdcdc */"2 3 S4Mdc ) mcndcdcdct4=:(0 3 4|:])"5@(mdetrdc */"1 4 S4Mdcdc ) mcndcdcdct5=:(0 4 1|:])"5@(mdetrdcdc */"2 3 S4Mdc ) mcndcdcdct6=:(0 1 4|:])"5@(mdetrdcdc */"2 3 S4Mdc ) mcndcdcdct7=:(0 1 2|:])"5@(mdetrdcdcdc*/"3 2 S4M ) mcndcdcdc =:mcndcdcdct0+mcndcdcdct1+mcndcdcdct2+mcndcdcdct3+mcndcdcdct4+mcndcdcdct5+mcndcdcdct6+mcndcdcdct7
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"_
A=:(gXT([mcndc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@mcn xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_25);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
A=:(gXT([mcndcdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@mcndc xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_20);2^_18)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([mcndcdcdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@mcndcdc xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_16);2^_18)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 experimental.ijs ... ch1k =:0.5*(( 1|:])+( 0 1|:])-])"3@mcvdc ch1kdc =:0.5*(( 1 3|:])+( 0 1 3|:])-])"4@mcvdcdc ch1kdcdc =:0.5*(( 1 3 4|:])+( 0 1 3 4|:])-])"5@mcvdcdcdc ch1kdcdcdc=:0.5*((1 3 4 5|:])+(0 1 3 4 5|:])-])"6@mcvdcdcdcdc
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"_
A=:(gXT([ch1kdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@ch1k xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_24);2^_18)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([ch1kdcdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@ch1kdc xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_23);2^_18)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([ch1kdcdcdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@ch1kdcdc xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_23);2^_18)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 experimental.ijs ... ch2k=:(0|:])"3@(mcn smx"2 3 ch1k) ch2kdct0=:(0 3|:])"4@(mcn (( [)smx 2|:])"2 4 ch1kdc) ch2kdct1=:(0 1|:])"4@(mcndc((1|:[)smx ])"3 3 ch1k ) ch2kdc =:ch2kdct0+ch2kdct1 ch2kdcdct0=:(0 3 4|:])"5@(mcn (( [)smx 2|:])"2 5 ch1kdcdc) ch2kdcdct1=:(0 4 1|:])"5@(mcndc ((1|:[)smx 2|:])"3 4 ch1kdc ) ch2kdcdct2=:(0 1 4|:])"5@(mcndc ((1|:[)smx 2|:])"3 4 ch1kdc ) ch2kdcdct3=:(0 1 2|:])"5@(mcndcdc((1|:[)smx ])"4 3 ch1k ) ch2kdcdc =:ch2kdcdct0+ch2kdcdct1+ch2kdcdct2+ch2kdcdct3 ch2kdcdcdct0=:(0 3 4 5|:])"6@(mcn (( [)smx 2|:])"2 6 ch1kdcdcdc) ch2kdcdcdct1=:(0 4 5 1|:])"6@(mcndc ((1|:[)smx 2|:])"3 5 ch1kdcdc ) ch2kdcdcdct2=:(0 4 1 5|:])"6@(mcndc ((1|:[)smx 2|:])"3 5 ch1kdcdc ) ch2kdcdcdct3=:(0 5 1 2|:])"6@(mcndcdc ((1|:[)smx 2|:])"4 4 ch1kdc ) ch2kdcdcdct4=:(0 1 4 5|:])"6@(mcndc ((1|:[)smx 2|:])"3 5 ch1kdcdc ) ch2kdcdcdct5=:(0 1 5 2|:])"6@(mcndcdc ((1|:[)smx 2|:])"4 4 ch1kdc ) ch2kdcdcdct6=:(0 1 2 5|:])"6@(mcndcdc ((1|:[)smx 2|:])"4 4 ch1kdc ) ch2kdcdcdct7=:(0 1 2 3|:])"6@(mcndcdcdc((1|:[)smx ])"5 3 ch1k ) ch2kdcdcdc =:ch2kdcdcdct0+ch2kdcdcdct1+ch2kdcdcdct2+ch2kdcdcdct3+ch2kdcdcdct4+ch2kdcdcdct5+ch2kdcdcdct6+ch2kdcdcdct7
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"_
A=:(gXT([ch2kdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@ch2k xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_25);2^_18)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([ch2kdcdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@ch2kdc xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_20);2^_18)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([ch2kdcdcdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@ch2kdcdc xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_15);2^_18)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) ... Rt0=: (1 2|:])"4@ch2kdc Rt1=:-@( 2|:])"4@ch2kdc Rt2=: (1 3|:])"4@(ch2k([smx 0|:])"3 3 ch2k) Rt3=:-@( ])"4@(ch2k([smx 0|:])"3 3 ch2k) gXcw =: 1.2 0.3 _ _ _"_ gXpAll=: 0 0 0 0 0"_ yCpts=:__ 0.5 5 8,__ 0.5 5 8,__ 0.5 5 8,:_ 0 20 8"_ *./ (0=]) , (gXT([(Rt0+Rt1+Rt2+Rt3)yRef@hkyF)]) ((0;50"_)pTRandom yCpts)'' 1 xCpts=:_ 1 3 26,_ 0 1p1 26,_ 0 2p1 26,:_ 0 20 26"_ *./ (0=]) ((2^_44)qtsz]) , (gXT([(Rt0+Rt1+Rt2+Rt3)xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)'' 1
NB. ... execute (ijx) ... gXcw =: 1 0 _ _ _"_ gXpAll=: 0 0 0 0 0"_ yCpts=:__ 0.5 5 8,__ 0.5 5 8,__ 0.5 5 8,:_ 0 20 8"_ (gXT([mcv yRef@hkyF)]) ((0;1"_)pTRandom yCpts)'' 1 0 0 0 0 1 0 0 0 0 1 0 0 0 0 _1 (gXT([mcn yRef@hkyF)]) ((0;1"_)pTRandom yCpts)'' 1 0 0 0 0 1 0 0 0 0 1 0 0 0 0 _1
NB. ... execute (ijx) ... gXcw =: 1.5 0 _ _ _"_ gXpAll=: 0 0 0 0 0"_ xCpts=:_ 1 3 26,_ 0 1p1 26,_ 0 2p1 26,:_ 0 20 26"_ exTTcv=:(0,0,0, ( cx0)^_1:)"_ 1 exTTcn=:(0,0,0,-@((gXc^2:)*cx0)^_1:)"_ 1 exTTcndxt0=:0,0,0,0: exTTcndxt1=:0,0,0,0: exTTcndxt2=:0,0,0,0: exTTcndxt3=:((gXc*cx0)^_2:),0,0,0: exTTcndx =:(exTTcndxt0,exTTcndxt1,exTTcndxt2,:exTTcndxt3)"_ 1 (gXT(exTTcndx(((2^_44);2^_23)qteq[;])"2(0|:[:(gXT exTTcn])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 (gXT(exTTcv-:"1([mcv xRef@hkxF)smx"2 1 exTTcn)]) ((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 (0=]) +/@((<0 1)|:])"2 (gXT(exTTcndx+(0|:])"2@(([ch2k xRef@hkxF)((0|:[)smx])"3 1 exTTcn))]) ((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:LTE1100C.txt
Download: File:LTE1101C.txt
Download: File:LTE1102C.txt
Download: File:LTE1103C.txt
Download: File:LTE1104C.txt
Download: File:LTE1105C.txt
Download: File:LTE1106C.txt
Download: File:LTE1107C.txt
Download MoinMoin source: File:TensorExperiments11.ijs
Next Page: Essays/Tensor Experiments/TensorExperiments12
Prev Page: Essays/Tensor Experiments/TensorExperiments10