Essays/Tensor Experiments/TensorExperiments11

From J Wiki
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){])


GTE1100C.jpg


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


GTE1101C.jpg


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


GTE1102C.jpg


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


GTE1103C.jpg


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


GTE1104C.jpg


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


GTE1105C.jpg


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


GTE1106C.jpg


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


GTE1107C.jpg


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