User:Tom Allen/TensorExperimentsZ12

From J Wiki
Jump to: navigation, search


...

... compare Ocn and J1cn ...

...


...

... spherical symmetry ...

...


NB. ... execute ...

gXcw  =:  1  0  _  _  _  _"_
gXbAll=: _1  1  1  1  1  0"_

xCpts=:_ 2.375p1 2.375p1 0,_ 0.25p1 0.25p1 0,_ 0.25p1 0.25p1 0,:_ 0.00p1 2.00p1 160"_

NB. ... spherical symmetry ...

   *./ (0=]) ((2^_44)qtsz]) (gXZ([(1{])"1@Ocn  xRef@hkxM)]) pTtotal xCpts''
1
   *./ (0=]) ((2^_44)qtsz]) (gXZ([(2{])"1@Ocn  xRef@hkxM)]) pTtotal xCpts''
1

   *./ (0=]) ((2^_44)qtsz]) (gXZ([(1{])"1@J1cn xRef@hkxM)]) pTtotal xCpts''
1
   *./ (0=]) ((2^_44)qtsz]) (gXZ([(2{])"1@J1cn xRef@hkxM)]) pTtotal xCpts''
1

   *./ (0=]) ((2^_44)qtsz]) (gXZ([(1{])"1@E1cn xRef@hkxM)]) pTtotal xCpts''
1
   *./ (0=]) ((2^_44)qtsz]) (gXZ([(2{])"1@E1cn xRef@hkxM)]) pTtotal xCpts''
1


...

...

...


GTEZ1200E.jpg


...

...

...


GTEZ1201D.jpg


load 'plot'

gXcw  =:  1  0  _  _  _  _"_
gXbAll=: _1  1  1  1  1  0"_

xCpts=:_ 2.375p1 2.375p1 0,_ 0.25p1 0.25p1 0,_ 0.25p1 0.25p1 0,:_ 0.00p1 2.00p1 160"_

pd (gXZ(cx3"_ 1;[                           (3{])"1@Ocn   xRef@hkxM)]) pTtotal xCpts''    NB. ... blue ...

pd (gXZ(cx3"_ 1;[                      ((<3 3){])"2@Ocncv xRef@hkxM)]) pTtotal xCpts''    NB. ... red ...

pd (gXZ(cx3"_ 1;[(((<0 0){])+((<1 1){])+(<2 2){])"2@Ocncv xRef@hkxM)]) pTtotal xCpts''    NB. ... green ...

pd (gXZ(cx3"_ 1;[                  +/@((<0 1)|:])"2@Ocncv xRef@hkxM)]) pTtotal xCpts''    NB. ... purple ...

pd 'pdf'
pd 'show'


Zgraphic1200.jpg
...


...

...

...


GTEZ1202F.jpg


load 'plot'

gXcw  =:  1  0  _  _  _  _"_
gXbAll=: _1  1  1  1  1  0"_

xCpts=:_ 2.375p1 2.375p1 0,_ 0.25p1 0.25p1 0,_ 0.25p1 0.25p1 0,:_ 0.00p1 2.00p1 160"_

pd (gXZ(cx3"_ 1;[                           (3{])"1@J1cn   xRef@hkxM)]) pTtotal xCpts''    NB. ... blue ...

pd (gXZ(cx3"_ 1;[                      ((<3 3){])"2@J1cncv xRef@hkxM)]) pTtotal xCpts''    NB. ... red ...

pd (gXZ(cx3"_ 1;[(((<0 0){])+((<1 1){])+(<2 2){])"2@J1cncv xRef@hkxM)]) pTtotal xCpts''    NB. ... green ...

pd (gXZ(cx3"_ 1;[                  +/@((<0 1)|:])"2@J1cncv xRef@hkxM)]) pTtotal xCpts''    NB. ... purple ...

pd (gXZ(cx3"_ 1;[                           (0{])"1@E1cn   xRef@hkxM)]) pTtotal xCpts''    NB. ... pink ...

pd (gXZ(cx3"_ 1;[                           (3{])"1@E1cn   xRef@hkxM)]) pTtotal xCpts''    NB. ... dark green ...

pd (gXZ(cx3"_ 1;[                  +/@((<0 1)|:])"2@X1cncv xRef@hkxM)]) pTtotal xCpts''    NB. ... light blue ...

pd 'pdf'
pd 'show'


Zgraphic1201.jpg
...


...

...

...


GTEZ1203D.jpg


...

...

...


GTEZ1204D.jpg


load 'plot'

gXcw  =:  1  0  _  _  _  _"_
gXbAll=: _1  1  1  1  1  0"_

xCpts=:_ 1.5p1 4.5p1 160,_ 0.25p1 0.25p1 0,_ 0.25p1 0.25p1 0,:_ 0.88p1 0.88p1 0"_

pd (gXZ(cx0"_ 1;[     (0{])"1@Ocn   xRef@hkxM)]) pTtotal xCpts''    NB. ... blue ...

pd (gXZ(cx0"_ 1;[((<0 0){])"2@Ocncv xRef@hkxM)]) pTtotal xCpts''    NB. ... red ...

pd 'pdf'
pd 'show'


Zgraphic1202.jpg
...


...

...

...


GTEZ1205D.jpg


load 'plot'

gXcw  =:  1  0  _  _  _  _"_
gXbAll=: _1  1  1  1  1  0"_

xCpts=:_ 1.5p1 4.5p1 160,_ 0.25p1 0.25p1 0,_ 0.25p1 0.25p1 0,:_ 0.62p1 0.62p1 0"_

pd (gXZ(cx0"_ 1;[     (0{])"1@J1cn   xRef@hkxM)]) pTtotal xCpts''    NB. ... blue ...

pd (gXZ(cx0"_ 1;[((<0 0){])"2@J1cncv xRef@hkxM)]) pTtotal xCpts''    NB. ... red ...

pd 'pdf'
pd 'show'


Zgraphic1203.jpg
...



Download: File:LTEZ1200E.txt
Download: File:LTEZ1201D.txt
Download: File:LTEZ1202F.txt
Download: File:LTEZ1203D.txt
Download: File:LTEZ1204D.txt
Download: File:LTEZ1205D.txt




Download MoinMoin source: File:TensorExperimentsZ12.ijs