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'
...
... 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'
...
...
...
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'
...
...
...
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'
...
... 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'
Download: File:LTEZ0700C.txt
Download MoinMoin source: File:TensorExperimentsZ07.ijs