User:Tom Allen/TensorExperimentsR18

From J Wiki
Jump to navigation Jump to search


... divergence of space and time ...


load 'plot'

gXRAll=:,:@(0.15 1.0 2 8 1 1 8 _8 0 0"_)
gXSAll=:,:@(0.15 0.9 2 8 1 1 8  8 0 0"_)

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1 2.25p1*0.125),100),:_ 0p1 0p1 0"_

pd (gXR(cx2"_ 1;[(0{])"1@rfE1cn xRef@hkxR03S)]) pTtotal xCpts''
pd (gXR(cx2"_ 1;[(1{])"1@rfE1cn xRef@hkxR03S)]) pTtotal xCpts''
pd (gXR(cx2"_ 1;[(2{])"1@rfE1cn xRef@hkxR03S)]) pTtotal xCpts''
pd (gXR(cx2"_ 1;[(3{])"1@rfE1cn xRef@hkxR03S)]) pTtotal xCpts''

pd 'pdf'
pd 'show'


JTER1800C.jpg
... divergence of x0 x1 x2 x3 (standing wave) ...


load 'plot'

gXRAll=:,:@(0.15 1.0 2 8 1 1 8 _8 0 0"_)
gXSAll=:,:@(0.15 0.9 2 8 1 1 8  8 0 0"_)

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1 2.25p1*0.125),100),:(_,(0.00p1 0.00p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(0{])"1@rfE1cn xRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1 2.25p1*0.125),100),:(_,(0.25p1 0.25p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(0{])"1@rfE1cn xRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1 2.25p1*0.125),100),:(_,(0.40p1 0.40p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(0{])"1@rfE1cn xRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1 2.25p1*0.125),100),:(_,(0.50p1 0.50p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(0{])"1@rfE1cn xRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1 2.25p1*0.125),100),:(_,(0.60p1 0.60p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(0{])"1@rfE1cn xRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1 2.25p1*0.125),100),:(_,(0.75p1 0.75p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(0{])"1@rfE1cn xRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1 2.25p1*0.125),100),:(_,(1.00p1 1.00p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(0{])"1@rfE1cn xRef@hkxR03S)]) pTtotal xCpts''

pd 'pdf'
pd 'show'


JTER1801C.jpg
... divergence of x0 (standing wave) ...


load 'plot'

gXRAll=:,:@(0.15 1.0 2 8 1 1 8 _8 0 0"_)
gXSAll=:,:@(0.15 0.9 2 8 1 1 8  8 0 0"_)

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1 2.25p1*0.125),100),:(_,(0.00p1 0.00p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(2{])"1@rfE1cn xRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1 2.25p1*0.125),100),:(_,(0.25p1 0.25p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(2{])"1@rfE1cn xRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1 2.25p1*0.125),100),:(_,(0.40p1 0.40p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(2{])"1@rfE1cn xRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1 2.25p1*0.125),100),:(_,(0.50p1 0.50p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(2{])"1@rfE1cn xRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1 2.25p1*0.125),100),:(_,(0.60p1 0.60p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(2{])"1@rfE1cn xRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1 2.25p1*0.125),100),:(_,(0.75p1 0.75p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(2{])"1@rfE1cn xRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1 2.25p1*0.125),100),:(_,(1.00p1 1.00p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(2{])"1@rfE1cn xRef@hkxR03S)]) pTtotal xCpts''

pd 'pdf'
pd 'show'


JTER1802C.jpg
... divergence of x2 (standing wave) ...


load 'plot'

gXRAll=:,:@(0.15 1.0 2 8 1 1 8 _8 0 0"_)
gXSAll=:,:@(0.15 0.9 2 8 1 1 8  8 0 0"_)

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1 2.25p1*0.125),100),:(_,(0.00p1 0.00p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(3{])"1@rfE1cn xRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1 2.25p1*0.125),100),:(_,(0.25p1 0.25p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(3{])"1@rfE1cn xRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1 2.25p1*0.125),100),:(_,(0.40p1 0.40p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(3{])"1@rfE1cn xRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1 2.25p1*0.125),100),:(_,(0.50p1 0.50p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(3{])"1@rfE1cn xRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1 2.25p1*0.125),100),:(_,(0.60p1 0.60p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(3{])"1@rfE1cn xRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1 2.25p1*0.125),100),:(_,(0.75p1 0.75p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(3{])"1@rfE1cn xRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1 2.25p1*0.125),100),:(_,(1.00p1 1.00p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(3{])"1@rfE1cn xRef@hkxR03S)]) pTtotal xCpts''

pd 'pdf'
pd 'show'


JTER1803C.jpg
... divergence of x3 (standing wave) ...


... energy (total) ...


load 'plot'

gXRAll=:,:@(0.15 1.0 2 8 1 1 8 _8 0 0"_)
gXSAll=:,:@(0.15 0.9 2 8 1 1 8  8 0 0"_)

xCpts=:_ 0.3 4.0 100,_ 0.5p1 0.5p1 0,(_,(0.25p1 0.25p1*0.125),0),:(_,(0.00p1 0.00p1*0.125),0)"_

pd (gXR(cx0"_ 1;[(2{])"1@Ocn xRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.3 4.0 100,_ 0.5p1 0.5p1 0,(_,(0.25p1 0.25p1*0.125),0),:(_,(0.25p1 0.25p1*0.125),0)"_

pd (gXR(cx0"_ 1;[(2{])"1@Ocn xRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.3 4.0 100,_ 0.5p1 0.5p1 0,(_,(0.25p1 0.25p1*0.125),0),:(_,(0.40p1 0.40p1*0.125),0)"_

pd (gXR(cx0"_ 1;[(2{])"1@Ocn xRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.3 4.0 100,_ 0.5p1 0.5p1 0,(_,(0.25p1 0.25p1*0.125),0),:(_,(0.50p1 0.50p1*0.125),0)"_

pd (gXR(cx0"_ 1;[(2{])"1@Ocn xRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.3 4.0 100,_ 0.5p1 0.5p1 0,(_,(0.25p1 0.25p1*0.125),0),:(_,(0.60p1 0.60p1*0.125),0)"_

pd (gXR(cx0"_ 1;[(2{])"1@Ocn xRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.3 4.0 100,_ 0.5p1 0.5p1 0,(_,(0.25p1 0.25p1*0.125),0),:(_,(0.75p1 0.75p1*0.125),0)"_

pd (gXR(cx0"_ 1;[(2{])"1@Ocn xRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.3 4.0 100,_ 0.5p1 0.5p1 0,(_,(0.25p1 0.25p1*0.125),0),:(_,(1.00p1 1.00p1*0.125),0)"_

pd (gXR(cx0"_ 1;[(2{])"1@Ocn xRef@hkxR03S)]) pTtotal xCpts''

pd 'pdf'
pd 'show'


JTER1804C.jpg
... energy flow (standing wave) ...


load 'plot'

gXRAll=:,:@(0.15 1.0 2 8 1 1 8 _8 0 0"_)
gXSAll=:,:@(0.15 0.9 2 8 1 1 8  8 0 0"_)

xCpts=:_ 0.2 3.0 100,_ 0.5p1 0.5p1 0,(_,(0.25p1 0.25p1*0.125),0),:(_,(0.00p1 0.00p1*0.125),0)"_

pd (gXR(cx0"_ 1;[(3{])"1@Ocn xRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.2 3.0 100,_ 0.5p1 0.5p1 0,(_,(0.25p1 0.25p1*0.125),0),:(_,(0.25p1 0.25p1*0.125),0)"_

pd (gXR(cx0"_ 1;[(3{])"1@Ocn xRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.2 3.0 100,_ 0.5p1 0.5p1 0,(_,(0.25p1 0.25p1*0.125),0),:(_,(0.40p1 0.40p1*0.125),0)"_

pd (gXR(cx0"_ 1;[(3{])"1@Ocn xRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.2 3.0 100,_ 0.5p1 0.5p1 0,(_,(0.25p1 0.25p1*0.125),0),:(_,(0.50p1 0.50p1*0.125),0)"_

pd (gXR(cx0"_ 1;[(3{])"1@Ocn xRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.2 3.0 100,_ 0.5p1 0.5p1 0,(_,(0.25p1 0.25p1*0.125),0),:(_,(0.60p1 0.60p1*0.125),0)"_

pd (gXR(cx0"_ 1;[(3{])"1@Ocn xRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.2 3.0 100,_ 0.5p1 0.5p1 0,(_,(0.25p1 0.25p1*0.125),0),:(_,(0.75p1 0.75p1*0.125),0)"_

pd (gXR(cx0"_ 1;[(3{])"1@Ocn xRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.2 3.0 100,_ 0.5p1 0.5p1 0,(_,(0.25p1 0.25p1*0.125),0),:(_,(1.00p1 1.00p1*0.125),0)"_

pd (gXR(cx0"_ 1;[(3{])"1@Ocn xRef@hkxR03S)]) pTtotal xCpts''

pd 'pdf'
pd 'show'


JTER1805C.jpg
... energy density (standing wave) ...


... EM standing wave ...


load 'plot'

gXRAll=:,:@(0.15 1.0 2 8 1 1 8 _8 0 0"_)
gXSAll=:,:@(0.15 0.9 2 8 1 1 8  8 0 0"_)

xCpts=:_ 0.4 2.0 100,_ 0.5p1 0.5p1 0,(_,(0.25p1 0.25p1*0.125),0),:(_,(0.00p1 0.00p1*0.125),0)"_

pd (gXR(cx0"_ 1;[(0{])"1@(}:"1@}:"2@xdy smx"2 1 rfEEMcn)yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.4 2.0 100,_ 0.5p1 0.5p1 0,(_,(0.25p1 0.25p1*0.125),0),:(_,(0.25p1 0.25p1*0.125),0)"_

pd (gXR(cx0"_ 1;[(0{])"1@(}:"1@}:"2@xdy smx"2 1 rfEEMcn)yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.4 2.0 100,_ 0.5p1 0.5p1 0,(_,(0.25p1 0.25p1*0.125),0),:(_,(0.40p1 0.40p1*0.125),0)"_

pd (gXR(cx0"_ 1;[(0{])"1@(}:"1@}:"2@xdy smx"2 1 rfEEMcn)yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.4 2.0 100,_ 0.5p1 0.5p1 0,(_,(0.25p1 0.25p1*0.125),0),:(_,(0.50p1 0.50p1*0.125),0)"_

pd (gXR(cx0"_ 1;[(0{])"1@(}:"1@}:"2@xdy smx"2 1 rfEEMcn)yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.4 2.0 100,_ 0.5p1 0.5p1 0,(_,(0.25p1 0.25p1*0.125),0),:(_,(0.60p1 0.60p1*0.125),0)"_

pd (gXR(cx0"_ 1;[(0{])"1@(}:"1@}:"2@xdy smx"2 1 rfEEMcn)yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.4 2.0 100,_ 0.5p1 0.5p1 0,(_,(0.25p1 0.25p1*0.125),0),:(_,(0.75p1 0.75p1*0.125),0)"_

pd (gXR(cx0"_ 1;[(0{])"1@(}:"1@}:"2@xdy smx"2 1 rfEEMcn)yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.4 2.0 100,_ 0.5p1 0.5p1 0,(_,(0.25p1 0.25p1*0.125),0),:(_,(1.00p1 1.00p1*0.125),0)"_

pd (gXR(cx0"_ 1;[(0{])"1@(}:"1@}:"2@xdy smx"2 1 rfEEMcn)yRef@hkxR03S)]) pTtotal xCpts''

pd 'pdf'
pd 'show'


JTER1806C.jpg
... electric field (standing wave) ...


load 'plot'

gXRAll=:,:@(0.15 1.0 2 8 1 1 8 _8 0 0"_)
gXSAll=:,:@(0.15 0.9 2 8 1 1 8  8 0 0"_)

xCpts=:_ 0.4 1.7 100,_ 0.5p1 0.5p1 0,(_,(0.25p1 0.25p1*0.125),0),:(_,(0.00p1 0.00p1*0.125),0)"_

pd (gXR(cx0"_ 1;[(3{])"1@(xdy smx"2 1 rfJEMcn)yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.4 1.7 100,_ 0.5p1 0.5p1 0,(_,(0.25p1 0.25p1*0.125),0),:(_,(0.25p1 0.25p1*0.125),0)"_

pd (gXR(cx0"_ 1;[(3{])"1@(xdy smx"2 1 rfJEMcn)yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.4 1.7 100,_ 0.5p1 0.5p1 0,(_,(0.25p1 0.25p1*0.125),0),:(_,(0.40p1 0.40p1*0.125),0)"_

pd (gXR(cx0"_ 1;[(3{])"1@(xdy smx"2 1 rfJEMcn)yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.4 1.7 100,_ 0.5p1 0.5p1 0,(_,(0.25p1 0.25p1*0.125),0),:(_,(0.50p1 0.50p1*0.125),0)"_

pd (gXR(cx0"_ 1;[(3{])"1@(xdy smx"2 1 rfJEMcn)yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.4 1.7 100,_ 0.5p1 0.5p1 0,(_,(0.25p1 0.25p1*0.125),0),:(_,(0.60p1 0.60p1*0.125),0)"_

pd (gXR(cx0"_ 1;[(3{])"1@(xdy smx"2 1 rfJEMcn)yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.4 1.7 100,_ 0.5p1 0.5p1 0,(_,(0.25p1 0.25p1*0.125),0),:(_,(0.75p1 0.75p1*0.125),0)"_

pd (gXR(cx0"_ 1;[(3{])"1@(xdy smx"2 1 rfJEMcn)yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.4 1.7 100,_ 0.5p1 0.5p1 0,(_,(0.25p1 0.25p1*0.125),0),:(_,(1.00p1 1.00p1*0.125),0)"_

pd (gXR(cx0"_ 1;[(3{])"1@(xdy smx"2 1 rfJEMcn)yRef@hkxR03S)]) pTtotal xCpts''

pd 'pdf'
pd 'show'


JTER1807C.jpg
... charge distribution (standing wave) ...


load 'plot'

gXRAll=:,:@(0.15 1.0 2 8 1 1 8 _8 0 0"_)
gXSAll=:,:@(0.15 0.9 2 8 1 1 8  8 0 0"_)

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1*0.125),((0.25p1*0.125)+2p1*0.125),100),:(_,(0.00p1 0.00p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(0{])"1@(}:"1@}:"2@xdy smx"2 1 rfEEMcn)yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1*0.125),((0.25p1*0.125)+2p1*0.125),100),:(_,(0.25p1 0.25p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(0{])"1@(}:"1@}:"2@xdy smx"2 1 rfEEMcn)yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1*0.125),((0.25p1*0.125)+2p1*0.125),100),:(_,(0.40p1 0.40p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(0{])"1@(}:"1@}:"2@xdy smx"2 1 rfEEMcn)yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1*0.125),((0.25p1*0.125)+2p1*0.125),100),:(_,(0.50p1 0.50p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(0{])"1@(}:"1@}:"2@xdy smx"2 1 rfEEMcn)yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1*0.125),((0.25p1*0.125)+2p1*0.125),100),:(_,(0.60p1 0.60p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(0{])"1@(}:"1@}:"2@xdy smx"2 1 rfEEMcn)yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1*0.125),((0.25p1*0.125)+2p1*0.125),100),:(_,(0.75p1 0.75p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(0{])"1@(}:"1@}:"2@xdy smx"2 1 rfEEMcn)yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1*0.125),((0.25p1*0.125)+2p1*0.125),100),:(_,(1.00p1 1.00p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(0{])"1@(}:"1@}:"2@xdy smx"2 1 rfEEMcn)yRef@hkxR03S)]) pTtotal xCpts''

pd 'pdf'
pd 'show'


JTER1808C.jpg
... electric field (standing wave) ...


load 'plot'

gXRAll=:,:@(0.15 1.0 2 8 1 1 8 _8 0 0"_)
gXSAll=:,:@(0.15 0.9 2 8 1 1 8  8 0 0"_)

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1*0.125),((0.25p1*0.125)+2p1*0.125),100),:(_,(0.00p1 0.00p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(1{])"1@(}:"1@}:"2@xdy smx"2 1 HEMcn)yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1*0.125),((0.25p1*0.125)+2p1*0.125),100),:(_,(0.25p1 0.25p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(1{])"1@(}:"1@}:"2@xdy smx"2 1 HEMcn)yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1*0.125),((0.25p1*0.125)+2p1*0.125),100),:(_,(0.40p1 0.40p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(1{])"1@(}:"1@}:"2@xdy smx"2 1 HEMcn)yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1*0.125),((0.25p1*0.125)+2p1*0.125),100),:(_,(0.50p1 0.50p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(1{])"1@(}:"1@}:"2@xdy smx"2 1 HEMcn)yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1*0.125),((0.25p1*0.125)+2p1*0.125),100),:(_,(0.60p1 0.60p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(1{])"1@(}:"1@}:"2@xdy smx"2 1 HEMcn)yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1*0.125),((0.25p1*0.125)+2p1*0.125),100),:(_,(0.75p1 0.75p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(1{])"1@(}:"1@}:"2@xdy smx"2 1 HEMcn)yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1*0.125),((0.25p1*0.125)+2p1*0.125),100),:(_,(1.00p1 1.00p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(1{])"1@(}:"1@}:"2@xdy smx"2 1 HEMcn)yRef@hkxR03S)]) pTtotal xCpts''

pd 'pdf'
pd 'show'


JTER1809C.jpg
... magnetic field (standing wave) ...


load 'plot'

gXRAll=:,:@(0.15 1.0 2 8 1 1 8 _8 0 0"_)
gXSAll=:,:@(0.15 0.9 2 8 1 1 8  8 0 0"_)

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1*0.125),((0.25p1*0.125)+2p1*0.125),100),:(_,(0.00p1 0.00p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(2{])"1@(}:"1@}:"2@xdy smx"2 1 rfPEMcn)yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1*0.125),((0.25p1*0.125)+2p1*0.125),100),:(_,(0.25p1 0.25p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(2{])"1@(}:"1@}:"2@xdy smx"2 1 rfPEMcn)yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1*0.125),((0.25p1*0.125)+2p1*0.125),100),:(_,(0.40p1 0.40p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(2{])"1@(}:"1@}:"2@xdy smx"2 1 rfPEMcn)yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1*0.125),((0.25p1*0.125)+2p1*0.125),100),:(_,(0.50p1 0.50p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(2{])"1@(}:"1@}:"2@xdy smx"2 1 rfPEMcn)yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1*0.125),((0.25p1*0.125)+2p1*0.125),100),:(_,(0.60p1 0.60p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(2{])"1@(}:"1@}:"2@xdy smx"2 1 rfPEMcn)yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1*0.125),((0.25p1*0.125)+2p1*0.125),100),:(_,(0.75p1 0.75p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(2{])"1@(}:"1@}:"2@xdy smx"2 1 rfPEMcn)yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1*0.125),((0.25p1*0.125)+2p1*0.125),100),:(_,(1.00p1 1.00p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(2{])"1@(}:"1@}:"2@xdy smx"2 1 rfPEMcn)yRef@hkxR03S)]) pTtotal xCpts''

pd 'pdf'
pd 'show'


JTER1810C.jpg
... energy flow (standing wave) ...


load 'plot'

gXRAll=:,:@(0.15 1.0 2 8 1 1 8 _8 0 0"_)
gXSAll=:,:@(0.15 0.9 2 8 1 1 8  8 0 0"_)

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1*0.125),((0.25p1*0.125)+2p1*0.125),100),:(_,(0.00p1 0.00p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(3{])"1@rfJEMcn yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1*0.125),((0.25p1*0.125)+2p1*0.125),100),:(_,(0.25p1 0.25p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(3{])"1@rfJEMcn yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1*0.125),((0.25p1*0.125)+2p1*0.125),100),:(_,(0.40p1 0.40p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(3{])"1@rfJEMcn yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1*0.125),((0.25p1*0.125)+2p1*0.125),100),:(_,(0.50p1 0.50p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(3{])"1@rfJEMcn yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1*0.125),((0.25p1*0.125)+2p1*0.125),100),:(_,(0.60p1 0.60p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(3{])"1@rfJEMcn yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1*0.125),((0.25p1*0.125)+2p1*0.125),100),:(_,(0.75p1 0.75p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(3{])"1@rfJEMcn yRef@hkxR03S)]) pTtotal xCpts''

xCpts=:_ 0.94 0.94 0,_ 0.5p1 0.5p1 0,(_,(0.25p1*0.125),((0.25p1*0.125)+2p1*0.125),100),:(_,(1.00p1 1.00p1*0.125),0)"_

pd (gXR(cx2"_ 1;[(3{])"1@rfJEMcn yRef@hkxR03S)]) pTtotal xCpts''

pd 'pdf'
pd 'show'


JTER1811C.jpg
... charge density (standing wave) ...