Essays/Tensor Experiments/TensorExperiments14
< Essays | Tensor Experiments
Jump to navigation
Jump to search
NB. ... script experimental.ijs ... Ups =:(]+-@( 0|:]))"2@Ocvcv Upsdc =:(]+-@( 0 2|:]))"3@Ocvcvdc Upsdcdc =:(]+-@( 0 2 3|:]))"4@Ocvcvdcdc Upsdcdcdc=:(]+-@(0 2 3 4|:]))"5@Ocvcvdcdcdc
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"_
A=:(gXT([Upsdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@Ups xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_44);2^_09)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([Upsdcdc xRef@hkxF)]) ((0.2;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@Upsdc xRef@hkxF),:@])D.1])"_ 1)]) ((0.2;50"_)pTRandom xCpts)''
A (((2^_44);2^_08)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([Upsdcdcdc xRef@hkxF)]) ((0.1;40"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@Upsdcdc xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;40"_)pTRandom xCpts)''
A (((2^_44);2^_05)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
NB. ... execute (ijx) ...
gXcw =: 1.2 0.3 _ _ _ "_
gXpAll=: 1.1 1.2 1.3 1.4 1.5"_
yCpts=:__ 0.5 5 8,__ 0.5 5 8,__ 0.5 5 8,:_ 0 20 8"_
A=:(gXT([Upsdc yRef@hkyF)]) ((0;50"_)pTRandom yCpts)''
B=:(gXT((0|:[:(gXT([(0{])@Ups yRef@hkyF),:@])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
A (((2^_44);2^_13)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([Upsdcdc yRef@hkyF)]) ((0;50"_)pTRandom yCpts)''
B=:(gXT((0|:[:(gXT([(0{])@Upsdc yRef@hkyF),:@])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
A (((2^_44);2^_10)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([Upsdcdcdc yRef@hkyF)]) ((0;50"_)pTRandom yCpts)''
B=:(gXT((0|:[:(gXT([(0{])@Upsdcdc yRef@hkyF),:@])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
A (((2^_44);2^_08)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. ... 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"_ vA=:[Ups xRef vB=:[(ydx((0|:[)smx])"2 ydx((0|:[)smx])"2 Ups)yRef (gXT([(vA(((2^_44);2^_31)qteq[;])"2 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
NB. ... script experimental.ijs ... S=:Ups*/"2 1 Ocn Sdct0=:( ])"4@(Ups (*/)"2 2 Ocndc) Sdct1=:(2|:])"4@(Upsdc(*/)"3 1 Ocn ) Sdc=:Sdct0+Sdct1 Sdcdct0=:( ])"5@(Ups */"2 3 Ocndcdc) Sdcdct1=:( 2|:])"5@(Upsdc */"3 2 Ocndc ) Sdcdct2=:(2 4|:])"5@(Upsdc */"3 2 Ocndc ) Sdcdct3=:(2 3|:])"5@(Upsdcdc*/"4 1 Ocn ) Sdcdc=:Sdcdct0+Sdcdct1+Sdcdct2+Sdcdct3 Sdcdcdct0=:( ])"6@(Ups */"2 4 Ocndcdcdc) Sdcdcdct1=:( 2|:])"6@(Upsdc */"3 3 Ocndcdc ) Sdcdcdct2=:( 2 5|:])"6@(Upsdc */"3 3 Ocndcdc ) Sdcdcdct3=:( 2 3|:])"6@(Upsdcdc */"4 2 Ocndc ) Sdcdcdct4=:(2 4 5|:])"6@(Upsdc */"3 3 Ocndcdc ) Sdcdcdct5=:(2 5 3|:])"6@(Upsdcdc */"4 2 Ocndc ) Sdcdcdct6=:(2 3 5|:])"6@(Upsdcdc */"4 2 Ocndc ) Sdcdcdct7=:(2 3 4|:])"6@(Upsdcdcdc*/"5 1 Ocn ) Sdcdcdc=:Sdcdcdct0+Sdcdcdct1+Sdcdcdct2+Sdcdcdct3+Sdcdcdct4+Sdcdcdct5+Sdcdcdct6+Sdcdcdct7
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"_
A=:(gXT([Sdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@S xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_44);2^_06)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([Sdcdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@Sdc xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_44);2^_06)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([Sdcdcdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@Sdcdc xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_44);2^_03)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) ...
gXcw =: 1.2 0.3 _ _ _ "_
gXpAll=: 1.1 1.2 1.3 1.4 1.5"_
yCpts=:__ 0.5 5 8,__ 0.5 5 8,__ 0.5 5 8,:_ 0 20 8"_
A=:(gXT([Sdc yRef@hkyF)]) ((0;50"_)pTRandom yCpts)''
B=:(gXT((0|:[:(gXT([(0{])@S yRef@hkyF),:@])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
A (((2^_44);2^_11)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([Sdcdc yRef@hkyF)]) ((0;50"_)pTRandom yCpts)''
B=:(gXT((0|:[:(gXT([(0{])@Sdc yRef@hkyF),:@])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
A (((2^_44);2^_05)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([Sdcdcdc yRef@hkyF)]) ((0;50"_)pTRandom yCpts)''
B=:(gXT((0|:[:(gXT([(0{])@Sdcdc yRef@hkyF),:@])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
A (((2^_44);2^_04)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) ... 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"_ vA=:[S xRef vB=:[(ydx((0|:[)smx])"2 3 ydx((0|:[)smx])"2 3 xdy smx"2 3 S)yRef (gXT([(vA(((2^_44);2^_31)qteq[;])"3 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
NB. ... script experimental.ijs ... Gam =:ch2k +0.5*S Gamdc =:ch2kdc +0.5*Sdc Gamdcdc =:ch2kdcdc +0.5*Sdcdc Gamdcdcdc=:ch2kdcdcdc+0.5*Sdcdcdc
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"_
A=:(gXT([Gamdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@Gam xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_23);2^_05)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([Gamdcdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@Gamdc xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_19);2^_05)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([Gamdcdcdc xRef@hkxF)]) ((0.1;50"_)pTRandom xCpts)''
B=:(gXT((0|:[:(gXT([(0{])@Gamdcdc xRef@hkxF),:@])D.1])"_ 1)]) ((0.1;50"_)pTRandom xCpts)''
A (((2^_15);2^_03)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) ...
gXcw =: 1.2 0.3 _ _ _ "_
gXpAll=: 1.1 1.2 1.3 1.4 1.5"_
yCpts=:__ 0.5 5 8,__ 0.5 5 8,__ 0.5 5 8,:_ 0 20 8"_
A=:(gXT([Gamdc yRef@hkyF)]) ((0;50"_)pTRandom yCpts)''
B=:(gXT((0|:[:(gXT([(0{])@Gam yRef@hkyF),:@])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
A (((2^_44);2^_11)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([Gamdcdc yRef@hkyF)]) ((0;50"_)pTRandom yCpts)''
B=:(gXT((0|:[:(gXT([(0{])@Gamdc yRef@hkyF),:@])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
A (((2^_44);2^_05)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([Gamdcdcdc yRef@hkyF)]) ((0;50"_)pTRandom yCpts)''
B=:(gXT((0|:[:(gXT([(0{])@Gamdcdc yRef@hkyF),:@])D.1])"_ 1)]) ((0;50"_)pTRandom yCpts)''
A (((2^_44);2^_04)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
Download: File:LTE1400D.txt
Download: File:LTE1401C.txt
Download: File:LTE1402C.txt
Download: File:LTE1403C.txt
Download: File:LTE1404C.txt
Download MoinMoin source: File:TensorExperiments14.ijs
Next Page: Essays/Tensor Experiments/TensorExperiments15
Prev Page: Essays/Tensor Experiments/TensorExperiments13