User:Tom Allen/TensorExperimentsZ24

From J Wiki
Jump to: navigation, search


GTEZ2400C.jpg


NB. ... script experimentalZ.ijs ...

bez=:^@((gXm00*cn0)+gXm01*cn3)+^@-@((gXm00*cn0)+gXm01*cn3)

hez=:^@((gXm00*cn0)+gXm01*cn3)-^@-@((gXm00*cn0)+gXm01*cn3)

bezn0=:gXm00*hez
bezn3=:gXm01*hez
bezdn=:bezn0,0,0,bezn3


NB. ... execute (ijx) ...

   gXm0All=: 1.3  1.4  _  1.6"_
   gXm1All=: _    _    _  _  "_

   nCpts=:_ _4 4 161,_ 0 0 0,_ 0 0 0,:_ _4 4 161"_

   (gXM(bezdn"_ 1(((2^_44);2^_18)qteq[;])"1(0|:[:(gXM bez])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1


GTEZ2401C.jpg


NB. ... script experimentalZ.ijs ...

kex=:gXm03*bez^_1:

kexn0=:-@gXm00*gXm03*(bez^_2:)*hez
kexn3=:-@gXm01*gXm03*(bez^_2:)*hez
kexdn=:kexn0,0,0,kexn3


NB. ... execute (ijx) ...

   gXm0All=: 1.3  1.4  _  1.6"_
   gXm1All=: _    _    _  _  "_

   nCpts=:_ _4 4 161,_ 0 0 0,_ 0 0 0,:_ _4 4 161"_

   (gXM(kexdn"_ 1(((2^_44);2^_18)qteq[;])"1(0|:[:(gXM kex])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1


GTEZ2402C.jpg


NB. ... script experimentalZ.ijs ...

OnE0=:-@(gXm00^_1:)*gXm01*kex
OnE3=:kex
OnE =:OnE0,0,0,OnE3

OnE0n0=:-@(gXm00^_1:)*gXm01*kexn0
OnE0n3=:-@(gXm00^_1:)*gXm01*kexn3
OnE3n0=:kexn0
OnE3n3=:kexn3
OnEdn =:(OnE0n0,0,0,OnE0n3),0 0 0 0,0 0 0 0,:OnE3n0,0,0,OnE3n3


NB. ... execute (ijx) ...

   gXm0All=: 1.3  1.4  _  1.6"_
   gXm1All=: _    _    _  _  "_

   nCpts=:_ _4 4 161,_ 0 0 0,_ 0 0 0,:_ _4 4 161"_

   (gXM(OnEdn"_ 1(((2^_44);2^_18)qteq[;])"2(0|:[:(gXM OnE])D.1])"_ 1)]) ((0;50"_)pTRandom nCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1

NB. ... divergence is 0 ...

   (0=]) ((2^_44)qtsz]) +/@((<0 1)|:])"2 (gXM OnEdn"_ 1]) ((0;50"_)pTRandom nCpts)''
1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1


load 'plot'

gXm0All=: 1  0  _  1"_
gXm1All=: _  _  _  _"_

nCpts=:_ _2p1 2p1 161,_ 0 0 0,_ 0 0 0,:_ 0.00p1 0.00p1 0"_

pd (gXM(cn0"_ 1;OnE0"_ 1)]) pTtotal nCpts''
pd (gXM(cn0"_ 1;OnE3"_ 1)]) pTtotal nCpts''

nCpts=:_ _2p1 2p1 161,_ 0 0 0,_ 0 0 0,:_ 0.30p1 0.30p1 0"_

pd (gXM(cn0"_ 1;OnE0"_ 1)]) pTtotal nCpts''
pd (gXM(cn0"_ 1;OnE3"_ 1)]) pTtotal nCpts''

nCpts=:_ _2p1 2p1 161,_ 0 0 0,_ 0 0 0,:_ 0.60p1 0.60p1 0"_

pd (gXM(cn0"_ 1;OnE0"_ 1)]) pTtotal nCpts''
pd (gXM(cn0"_ 1;OnE3"_ 1)]) pTtotal nCpts''

nCpts=:_ _2p1 2p1 161,_ 0 0 0,_ 0 0 0,:_ 0.90p1 0.90p1 0"_

pd (gXM(cn0"_ 1;OnE0"_ 1)]) pTtotal nCpts''
pd (gXM(cn0"_ 1;OnE3"_ 1)]) pTtotal nCpts''

nCpts=:_ _2p1 2p1 161,_ 0 0 0,_ 0 0 0,:_ 1.20p1 1.20p1 0"_

pd (gXM(cn0"_ 1;OnE0"_ 1)]) pTtotal nCpts''
pd (gXM(cn0"_ 1;OnE3"_ 1)]) pTtotal nCpts''

nCpts=:_ _2p1 2p1 161,_ 0 0 0,_ 0 0 0,:_ 1.50p1 1.50p1 0"_

pd (gXM(cn0"_ 1;OnE0"_ 1)]) pTtotal nCpts''
pd (gXM(cn0"_ 1;OnE3"_ 1)]) pTtotal nCpts''

nCpts=:_ _2p1 2p1 161,_ 0 0 0,_ 0 0 0,:_ 1.80p1 1.80p1 0"_

pd (gXM(cn0"_ 1;OnE0"_ 1)]) pTtotal nCpts''
pd (gXM(cn0"_ 1;OnE3"_ 1)]) pTtotal nCpts''

pd 'pdf'
pd 'show'


Zgraphic2400.jpg
... no energy flow/static energy density ...


load 'plot'

gXm0All=: 1  _1  _  1"_
gXm1All=: _   _  _  _"_

nCpts=:_ _2p1 4p1 161,_ 0 0 0,_ 0 0 0,:_ 0.00p1 0.00p1 0"_

pd (gXM(cn0"_ 1;OnE0"_ 1)]) pTtotal nCpts''

nCpts=:_ _2p1 4p1 161,_ 0 0 0,_ 0 0 0,:_ 0.25p1 0.25p1 0"_

pd (gXM(cn0"_ 1;OnE0"_ 1)]) pTtotal nCpts''

nCpts=:_ _2p1 4p1 161,_ 0 0 0,_ 0 0 0,:_ 0.50p1 0.50p1 0"_

pd (gXM(cn0"_ 1;OnE0"_ 1)]) pTtotal nCpts''

nCpts=:_ _2p1 4p1 161,_ 0 0 0,_ 0 0 0,:_ 0.75p1 0.75p1 0"_

pd (gXM(cn0"_ 1;OnE0"_ 1)]) pTtotal nCpts''

nCpts=:_ _2p1 4p1 161,_ 0 0 0,_ 0 0 0,:_ 1.00p1 1.00p1 0"_

pd (gXM(cn0"_ 1;OnE0"_ 1)]) pTtotal nCpts''

nCpts=:_ _2p1 4p1 161,_ 0 0 0,_ 0 0 0,:_ 1.25p1 1.25p1 0"_

pd (gXM(cn0"_ 1;OnE0"_ 1)]) pTtotal nCpts''

nCpts=:_ _2p1 4p1 161,_ 0 0 0,_ 0 0 0,:_ 1.50p1 1.50p1 0"_

pd (gXM(cn0"_ 1;OnE0"_ 1)]) pTtotal nCpts''

nCpts=:_ _2p1 4p1 161,_ 0 0 0,_ 0 0 0,:_ 1.75p1 1.75p1 0"_

pd (gXM(cn0"_ 1;OnE0"_ 1)]) pTtotal nCpts''

nCpts=:_ _2p1 4p1 161,_ 0 0 0,_ 0 0 0,:_ 2.00p1 2.00p1 0"_

pd (gXM(cn0"_ 1;OnE0"_ 1)]) pTtotal nCpts''

pd 'pdf'
pd 'show'


Zgraphic2401.jpg
... energy flow ...


load 'plot'

gXm0All=: 1  _1  _  1"_
gXm1All=: _   _  _  _"_

nCpts=:_ _2p1 4p1 161,_ 0 0 0,_ 0 0 0,:_ 0.00p1 0.00p1 0"_

pd (gXM(cn0"_ 1;OnE3"_ 1)]) pTtotal nCpts''

nCpts=:_ _2p1 4p1 161,_ 0 0 0,_ 0 0 0,:_ 0.25p1 0.25p1 0"_

pd (gXM(cn0"_ 1;OnE3"_ 1)]) pTtotal nCpts''

nCpts=:_ _2p1 4p1 161,_ 0 0 0,_ 0 0 0,:_ 0.50p1 0.50p1 0"_

pd (gXM(cn0"_ 1;OnE3"_ 1)]) pTtotal nCpts''

nCpts=:_ _2p1 4p1 161,_ 0 0 0,_ 0 0 0,:_ 0.75p1 0.75p1 0"_

pd (gXM(cn0"_ 1;OnE3"_ 1)]) pTtotal nCpts''

nCpts=:_ _2p1 4p1 161,_ 0 0 0,_ 0 0 0,:_ 1.00p1 1.00p1 0"_

pd (gXM(cn0"_ 1;OnE3"_ 1)]) pTtotal nCpts''

nCpts=:_ _2p1 4p1 161,_ 0 0 0,_ 0 0 0,:_ 1.25p1 1.25p1 0"_

pd (gXM(cn0"_ 1;OnE3"_ 1)]) pTtotal nCpts''

nCpts=:_ _2p1 4p1 161,_ 0 0 0,_ 0 0 0,:_ 1.50p1 1.50p1 0"_

pd (gXM(cn0"_ 1;OnE3"_ 1)]) pTtotal nCpts''

nCpts=:_ _2p1 4p1 161,_ 0 0 0,_ 0 0 0,:_ 1.75p1 1.75p1 0"_

pd (gXM(cn0"_ 1;OnE3"_ 1)]) pTtotal nCpts''

nCpts=:_ _2p1 4p1 161,_ 0 0 0,_ 0 0 0,:_ 2.00p1 2.00p1 0"_

pd (gXM(cn0"_ 1;OnE3"_ 1)]) pTtotal nCpts''

pd 'pdf'
pd 'show'


Zgraphic2402.jpg
... energy density ...



Download: File:LTEZ2400C.txt
Download: File:LTEZ2401C.txt
Download: File:LTEZ2402C.txt




Download MoinMoin source: File:TensorExperimentsZ24.ijs