User:Tom Allen/TensorExperimentsZ07
Jump to navigation
Jump to search
NB. ... execute (ijx) ...
gXcw =: 1 0 _ _ _ _"_
gXbAll=: _1 1 3 1 1 0"_
xCpts=:_ 0.2p1 2p1 27,_ 0p1 1p1 27,_ 0p1 2p1 27,:_ 0p1 2p1 27"_
((2^_44)qtsz]) (gXZ([(1{])"1@Ocn xRef@hkxM)]) ((0.1;50"_)pTRandom xCpts)''
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
((2^_44)qtsz]) (gXZ([(2{])"1@Ocn xRef@hkxM)]) ((0.1;50"_)pTRandom xCpts)''
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
((2^_44)qtsz]) (gXZ([(1{])"1@J1cn xRef@hkxM)]) ((0.1;50"_)pTRandom xCpts)''
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
((2^_44)qtsz]) (gXZ([(2{])"1@J1cn xRef@hkxM)]) ((0.1;50"_)pTRandom xCpts)''
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
((2^_41)qtsz]) (gXZ([(1{])"1@E1cn xRef@hkxM)]) ((0.1;50"_)pTRandom xCpts)''
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
((2^_44)qtsz]) (gXZ([(2{])"1@E1cn xRef@hkxM)]) ((0.1;50"_)pTRandom xCpts)''
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
...
... normalize (c=1) ...
...
load 'plot'
NB. ... c=1 ('normalize') ...
gXcw =: 1 0 _ _ _ _"_
gXbAll=: _1 1 3 1 1 0"_
xCpts=:_ 0.25p1 0.25p1 0,_ 0.25p1 0.25p1 0,_ 0.25p1 0.25p1 0,:_ 0p1 2p1 200"_
pd (gXZ(cx3"_ 1;[(05*])@(0{])"1@J1cn xRef@hkxM)]) pTtotal xCpts'' NB. ... blue (with multiplier) ...
pd (gXZ(cx3"_ 1;[(05*])@(3{])"1@J1cn xRef@hkxM)]) pTtotal xCpts'' NB. ... red (with multiplier) ...
NB. ... c=3 (compare) ...
gXcw =: 3 0 _ _ _ _"_
gXbAll=: _1 1 3 1 1 0"_
xCpts=:_ 0.25p1 0.25p1 0,_ 0.25p1 0.25p1 0,_ 0.25p1 0.25p1 0,:_ 0p1 2p1 200"_
pd (gXZ(cx3"_ 1;[(0{])"1@J1cn xRef@hkxM)]) pTtotal xCpts'' NB. ... green ...
pd (gXZ(cx3"_ 1;[(3{])"1@J1cn xRef@hkxM)]) pTtotal xCpts'' NB. ... purple ...
pd 'pdf'
pd 'show'
... normalize ...
...
... so that ...
...
load 'plot'
gXcw =: 1 0 _ _ _ _"_
gXbAll=: _1 1 3 1 1 0"_
xCpts=:_ 0.25p1 0.25p1 0,_ 0.25p1 0.25p1 0,_ 0.25p1 0.25p1 0,:_ 0p1 2p1 200"_
pd (gXZ(cx3"_ 1;[(0{])"1@Ocn xRef@hkxM)]) pTtotal xCpts''
pd (gXZ(cx3"_ 1;[(3{])"1@Ocn xRef@hkxM)]) pTtotal xCpts''
pd 'pdf'
pd 'show'
... Ocn ...
...
...
...
load 'plot'
gXcw =: 1 0 _ _ _ _"_
gXbAll=: _1 1 3 1 1 0"_
xCpts=:_ 0.25p1 0.25p1 0,_ 0.25p1 0.25p1 0,_ 0.25p1 0.25p1 0,:_ 0p1 2p1 200"_
pd (gXZ(cx3"_ 1;[(0{])"1@J1cn xRef@hkxM)]) pTtotal xCpts''
pd (gXZ(cx3"_ 1;[(3{])"1@J1cn xRef@hkxM)]) pTtotal xCpts''
pd 'pdf'
pd 'show'
... J1cn ...
...
...
...
load 'plot'
gXcw =: 1 0 _ _ _ _"_
gXbAll=: _1 1 3 1 1 0"_
xCpts=:_ 0.25p1 0.25p1 0,_ 0.25p1 0.25p1 0,_ 0.25p1 0.25p1 0,:_ 0p1 2p1 200"_
pd (gXZ(cx3"_ 1;[(0{])"1@E1cn xRef@hkxM)]) pTtotal xCpts''
pd (gXZ(cx3"_ 1;[(3{])"1@E1cn xRef@hkxM)]) pTtotal xCpts''
pd 'pdf'
pd 'show'
... E1cn ...
...
... compare using cos and sin ...
...
load 'plot'
gXcw =: 1 0 _ _ _ _"_
gXbAll=: _1 1 3 1 1 0"_
xCpts=:_ 0.25p1 0.25p1 0,_ 0.25p1 0.25p1 0,_ 0.25p1 0.25p1 0,:_ 0p1 2p1 200"_
pd (gXZ(cx3"_ 1;[(0{])"1@J1cn xRef@hkxM)]) pTtotal xCpts'' NB. ... blue ...
pd (gXZ(cx3"_ 1;-@(05.20*])@(cos@(2*cx3))"_ 1)]) pTtotal xCpts'' NB. ... red ...
pd (gXZ(cx3"_ 1;[(3{])"1@J1cn xRef@hkxM)]) pTtotal xCpts'' NB. ... green ...
pd (gXZ(cx3"_ 1; (23.05*])@(sin@(2*cx3))"_ 1)]) pTtotal xCpts'' NB. ... purple ...
pd (gXZ(cx3"_ 1;[(3{])"1@E1cn xRef@hkxM)]) pTtotal xCpts'' NB. ... pink ...
pd 'pdf'
pd 'show'
... compare using cos and sin ...
Download: File:LTEZ0700C.txt
Download MoinMoin source: File:TensorExperimentsZ07.ijs