User:Tom Allen/TensorExperimentsZ12
Jump to navigation
Jump to 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
...
...
...
...
...
...
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'
...
...
...
...
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'
...
...
...
...
...
...
...
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'
...
...
...
...
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'
...
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