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