User:Tom Allen/TensorExperimentsZ18
Jump to navigation
Jump to search
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