User:Tom Allen/TensorExperimentsZ18

load 'plot'

gXsAll=: _1  1  1  1  1  0"_

uCpts=:_ 2.375p1 2.375p1 0,_ 0 0 0,_ 0 0 0,:_ 0 2p1 160"_

pd (gXS(cu3"_ 1;[                           (3{])"1@J1cn   uRef@hkuR)]) pTtotal uCpts''    NB. ... blue ...

pd (gXS(cu3"_ 1;[                      ((<3 3){])"2@J1cncv uRef@hkuR)]) pTtotal uCpts''    NB. ... red ...

pd (gXS(cu3"_ 1;[(((<0 0){])+((<1 1){])+(<2 2){])"2@J1cncv uRef@hkuR)]) pTtotal uCpts''    NB. ... green ...

pd (gXS(cu3"_ 1;[                  +/@((<0 1)|:])"2@J1cncv uRef@hkuR)]) pTtotal uCpts''    NB. ... purple ...

pd (gXS(cu3"_ 1;[                           (0{])"1@E1cn   uRef@hkuR)]) pTtotal uCpts''    NB. ... pink ...

pd (gXS(cu3"_ 1;[                           (3{])"1@E1cn   uRef@hkuR)]) pTtotal uCpts''    NB. ... dark green ...

pd (gXS(cu3"_ 1;[                  +/@((<0 1)|:])"2@X1cncv uRef@hkuR)]) pTtotal uCpts''    NB. ... light blue ...

pd 'pdf'
pd 'show'

...

---

Download MoinMoin source: File:TensorExperimentsZ18.ijs

---