User:Tom Allen/TensorExperimentsZ27

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

hknQmetric=:<@:>"1@(0|:])@:(((1 0 0 0,0 1 0 0,0 0 1 0,:0 0 0 _1"_);((3$4:)$0:);((4$4:)$0:);((5$4:)$0:);((6$4:)$0:);1$_"_)"_ 1)

hknQ=:(6$a:"_),(6$a:"_),hknQmetric,(6$a:"_),<@:>"1@(0|:])@:(OnFXXS"_ 1),:6$a:"_

nRef=:(0{]),(1{]),(2{]),:4{]

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

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

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

   $ (gXM([R nRef@hknQ)]) ((0;50"_)pTRandom nCpts)''
50 4 4 4 4 4

NB. ... for this energy distribution  ...
NB. ... (compare TensorExperiments20) ...

   (0=]) ((2^_44)qtsz]) (gXM([LamCEr0 nRef@hknQ)]) ((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

   (0=])                (gXM([XiCEr0  nRef@hknQ)]) ((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

---

Download MoinMoin source: File:TensorExperimentsZ27.ijs

---