User:Tom Allen/TensorExperimentsZ07

From J Wiki
Jump to navigation Jump to search


GTEZ0700C.jpg


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'


Zgraphic0700.jpg
... 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'


Zgraphic0701.jpg
... 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'


Zgraphic0702.jpg
... 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'


Zgraphic0703.jpg
... 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'


Zgraphic0704.jpg
... compare using cos and sin ...



Download: File:LTEZ0700C.txt




Download MoinMoin source: File:TensorExperimentsZ07.ijs