User:Tom Allen/ta/AddendumX06P02E

From J Wiki
Jump to navigation Jump to search 


load 'plot'

pd 'reset'

pU0=:,:@(1 1 2 8 1 1 1 _1 0"_)


NB. ... for this wave travelling in the anti-clockwise direction ...
NB. ... for 'C' ...
NB. ... the total for the rate of change of energy density ...
NB. ... (at this radius resembles a standing wave) ...


xCpts=:_ 1.00 1.00 0,_ 0.50p1 0.50p1 0,_ _0.25p1 1.75p1 200,:_ 0.00p1 0.00p1 0"_

pd 'itemcolor blue'
pd (pU0([([(i.@{.@$@];((<3 3){])@FREXVC"_ 3)FREMR)yRef@hkyX06B)]) zfyc"1@pTtotal xCpts''

xCpts=:_ 1.00 1.00 0,_ 0.50p1 0.50p1 0,_ _0.25p1 1.75p1 200,:_ 0.25p1 0.25p1 0"_

pd 'itemcolor red'
pd (pU0([([(i.@{.@$@];((<3 3){])@FREXVC"_ 3)FREMR)yRef@hkyX06B)]) zfyc"1@pTtotal xCpts''

xCpts=:_ 1.00 1.00 0,_ 0.50p1 0.50p1 0,_ _0.25p1 1.75p1 200,:_ 0.50p1 0.50p1 0"_

pd 'itemcolor green'
pd (pU0([([(i.@{.@$@];((<3 3){])@FREXVC"_ 3)FREMR)yRef@hkyX06B)]) zfyc"1@pTtotal xCpts''

xCpts=:_ 1.00 1.00 0,_ 0.50p1 0.50p1 0,_ _0.25p1 1.75p1 200,:_ 0.75p1 0.75p1 0"_

pd 'itemcolor purple'
pd (pU0([([(i.@{.@$@];((<3 3){])@FREXVC"_ 3)FREMR)yRef@hkyX06B)]) zfyc"1@pTtotal xCpts''

xCpts=:_ 1.00 1.00 0,_ 0.50p1 0.50p1 0,_ _0.25p1 1.75p1 200,:_ 0.95p1 0.95p1 0"_

pd 'itemcolor pink'
pd (pU0([([(i.@{.@$@];((<3 3){])@FREXVC"_ 3)FREMR)yRef@hkyX06B)]) zfyc"1@pTtotal xCpts''


NB. ... for this wave travelling in the anti-clockwise direction ...
NB. ... for 'E' ...
NB. ... the total for the rate of change of energy density is zero ...


xCpts=:_ 1.00 1.00 0,_ 0.50p1 0.50p1 0,_ _0.25p1 1.75p1 200,:_ 0.00p1 0.00p1 0"_

pd 'itemcolor yellow'
pd (pU0([([(i.@{.@$@];((<3 3){])@FREXVE"_ 3)FREMR)yRef@hkyX06B)]) zfyc"1@pTtotal xCpts''

xCpts=:_ 1.00 1.00 0,_ 0.50p1 0.50p1 0,_ _0.25p1 1.75p1 200,:_ 0.25p1 0.25p1 0"_

pd 'itemcolor yellow'
pd (pU0([([(i.@{.@$@];((<3 3){])@FREXVE"_ 3)FREMR)yRef@hkyX06B)]) zfyc"1@pTtotal xCpts''

xCpts=:_ 1.00 1.00 0,_ 0.50p1 0.50p1 0,_ _0.25p1 1.75p1 200,:_ 0.50p1 0.50p1 0"_

pd 'itemcolor yellow'
pd (pU0([([(i.@{.@$@];((<3 3){])@FREXVE"_ 3)FREMR)yRef@hkyX06B)]) zfyc"1@pTtotal xCpts''

xCpts=:_ 1.00 1.00 0,_ 0.50p1 0.50p1 0,_ _0.25p1 1.75p1 200,:_ 0.75p1 0.75p1 0"_

pd 'itemcolor yellow'
pd (pU0([([(i.@{.@$@];((<3 3){])@FREXVE"_ 3)FREMR)yRef@hkyX06B)]) zfyc"1@pTtotal xCpts''

xCpts=:_ 1.00 1.00 0,_ 0.50p1 0.50p1 0,_ _0.25p1 1.75p1 200,:_ 0.95p1 0.95p1 0"_

pd 'itemcolor yellow'
pd (pU0([([(i.@{.@$@];((<3 3){])@FREXVE"_ 3)FREMR)yRef@hkyX06B)]) zfyc"1@pTtotal xCpts''

pd 'aspect 1'
pd 'canvas plot.html 666 500'

'finished' 1!:2[2


JX06P02E00D.png 


load 'plot'

pd 'reset'

pU0=:,:@(1 1 2 8 1 1 2 _1 0"_)


NB. ... for this wave travelling in the anti-clockwise direction ...
NB. ... for 'C' ...
NB. ... the total for the rate of change of energy density ...
NB. ... (at this radius resembles a standing wave) ...


xCpts=:_ 1.10 1.10 0,_ 0.50p1 0.50p1 0,_ _0.25p1 1.75p1 200,:_ 0.00p1 0.00p1 0"_

pd 'itemcolor blue'
pd (pU0([([(i.@{.@$@];((<3 3){])@FREXVC"_ 3)FREMR)yRef@hkyX06B)]) zfyc"1@pTtotal xCpts''

xCpts=:_ 1.10 1.10 0,_ 0.50p1 0.50p1 0,_ _0.25p1 1.75p1 200,:_ 0.25p1 0.25p1 0"_

pd 'itemcolor red'
pd (pU0([([(i.@{.@$@];((<3 3){])@FREXVC"_ 3)FREMR)yRef@hkyX06B)]) zfyc"1@pTtotal xCpts''

xCpts=:_ 1.10 1.10 0,_ 0.50p1 0.50p1 0,_ _0.25p1 1.75p1 200,:_ 0.50p1 0.50p1 0"_

pd 'itemcolor green'
pd (pU0([([(i.@{.@$@];((<3 3){])@FREXVC"_ 3)FREMR)yRef@hkyX06B)]) zfyc"1@pTtotal xCpts''

xCpts=:_ 1.10 1.10 0,_ 0.50p1 0.50p1 0,_ _0.25p1 1.75p1 200,:_ 0.75p1 0.75p1 0"_

pd 'itemcolor purple'
pd (pU0([([(i.@{.@$@];((<3 3){])@FREXVC"_ 3)FREMR)yRef@hkyX06B)]) zfyc"1@pTtotal xCpts''

xCpts=:_ 1.10 1.10 0,_ 0.50p1 0.50p1 0,_ _0.25p1 1.75p1 200,:_ 0.95p1 0.95p1 0"_

pd 'itemcolor pink'
pd (pU0([([(i.@{.@$@];((<3 3){])@FREXVC"_ 3)FREMR)yRef@hkyX06B)]) zfyc"1@pTtotal xCpts''


NB. ... for this wave travelling in the anti-clockwise direction ...
NB. ... for 'E' ...
NB. ... the total for the rate of change of energy density is zero ...


xCpts=:_ 1.10 1.10 0,_ 0.50p1 0.50p1 0,_ _0.25p1 1.75p1 200,:_ 0.00p1 0.00p1 0"_

pd 'itemcolor yellow'
pd (pU0([([(i.@{.@$@];((<3 3){])@FREXVE"_ 3)FREMR)yRef@hkyX06B)]) zfyc"1@pTtotal xCpts''

xCpts=:_ 1.10 1.10 0,_ 0.50p1 0.50p1 0,_ _0.25p1 1.75p1 200,:_ 0.25p1 0.25p1 0"_

pd 'itemcolor yellow'
pd (pU0([([(i.@{.@$@];((<3 3){])@FREXVE"_ 3)FREMR)yRef@hkyX06B)]) zfyc"1@pTtotal xCpts''

xCpts=:_ 1.10 1.10 0,_ 0.50p1 0.50p1 0,_ _0.25p1 1.75p1 200,:_ 0.50p1 0.50p1 0"_

pd 'itemcolor yellow'
pd (pU0([([(i.@{.@$@];((<3 3){])@FREXVE"_ 3)FREMR)yRef@hkyX06B)]) zfyc"1@pTtotal xCpts''

xCpts=:_ 1.10 1.10 0,_ 0.50p1 0.50p1 0,_ _0.25p1 1.75p1 200,:_ 0.75p1 0.75p1 0"_

pd 'itemcolor yellow'
pd (pU0([([(i.@{.@$@];((<3 3){])@FREXVE"_ 3)FREMR)yRef@hkyX06B)]) zfyc"1@pTtotal xCpts''

xCpts=:_ 1.10 1.10 0,_ 0.50p1 0.50p1 0,_ _0.25p1 1.75p1 200,:_ 0.95p1 0.95p1 0"_

pd 'itemcolor yellow'
pd (pU0([([(i.@{.@$@];((<3 3){])@FREXVE"_ 3)FREMR)yRef@hkyX06B)]) zfyc"1@pTtotal xCpts''

pd 'aspect 1'
pd 'canvas plot.html 666 500'

'finished' 1!:2[2


JX06P02E01C.png 


load 'plot'

pd 'reset'

pU0=:,:@(1 1 2 8 1 1 3 _1 0"_)


NB. ... for this wave travelling in the anti-clockwise direction ...
NB. ... for 'C' ...
NB. ... the total for the rate of change of energy density ...
NB. ... (at this radius resembles a standing wave) ...


xCpts=:_ 1.10 1.10 0,_ 0.50p1 0.50p1 0,_ _0.25p1 1.75p1 200,:_ 1.00p1 0.00p1 0"_

pd 'itemcolor blue'
pd (pU0([([(i.@{.@$@];((<3 3){])@FREXVC"_ 3)FREMR)yRef@hkyX06B)]) zfyc"1@pTtotal xCpts''

xCpts=:_ 1.10 1.10 0,_ 0.50p1 0.50p1 0,_ _0.25p1 1.75p1 200,:_ 1.25p1 0.25p1 0"_

pd 'itemcolor red'
pd (pU0([([(i.@{.@$@];((<3 3){])@FREXVC"_ 3)FREMR)yRef@hkyX06B)]) zfyc"1@pTtotal xCpts''

xCpts=:_ 1.10 1.10 0,_ 0.50p1 0.50p1 0,_ _0.25p1 1.75p1 200,:_ 1.50p1 0.50p1 0"_

pd 'itemcolor green'
pd (pU0([([(i.@{.@$@];((<3 3){])@FREXVC"_ 3)FREMR)yRef@hkyX06B)]) zfyc"1@pTtotal xCpts''

xCpts=:_ 1.10 1.10 0,_ 0.50p1 0.50p1 0,_ _0.25p1 1.75p1 200,:_ 1.75p1 0.75p1 0"_

pd 'itemcolor purple'
pd (pU0([([(i.@{.@$@];((<3 3){])@FREXVC"_ 3)FREMR)yRef@hkyX06B)]) zfyc"1@pTtotal xCpts''

xCpts=:_ 1.10 1.10 0,_ 0.50p1 0.50p1 0,_ _0.25p1 1.75p1 200,:_ 1.95p1 0.95p1 0"_

pd 'itemcolor pink'
pd (pU0([([(i.@{.@$@];((<3 3){])@FREXVC"_ 3)FREMR)yRef@hkyX06B)]) zfyc"1@pTtotal xCpts''


NB. ... for this wave travelling in the anti-clockwise direction ...
NB. ... for 'E' ...
NB. ... the total for the rate of change of energy density is zero ...


xCpts=:_ 1.10 1.10 0,_ 0.50p1 0.50p1 0,_ _0.25p1 1.75p1 200,:_ 1.00p1 0.00p1 0"_

pd 'itemcolor yellow'
pd (pU0([([(i.@{.@$@];((<3 3){])@FREXVE"_ 3)FREMR)yRef@hkyX06B)]) zfyc"1@pTtotal xCpts''

xCpts=:_ 1.10 1.10 0,_ 0.50p1 0.50p1 0,_ _0.25p1 1.75p1 200,:_ 1.25p1 0.25p1 0"_

pd 'itemcolor yellow'
pd (pU0([([(i.@{.@$@];((<3 3){])@FREXVE"_ 3)FREMR)yRef@hkyX06B)]) zfyc"1@pTtotal xCpts''

xCpts=:_ 1.10 1.10 0,_ 0.50p1 0.50p1 0,_ _0.25p1 1.75p1 200,:_ 1.50p1 0.50p1 0"_

pd 'itemcolor yellow'
pd (pU0([([(i.@{.@$@];((<3 3){])@FREXVE"_ 3)FREMR)yRef@hkyX06B)]) zfyc"1@pTtotal xCpts''

xCpts=:_ 1.10 1.10 0,_ 0.50p1 0.50p1 0,_ _0.25p1 1.75p1 200,:_ 1.75p1 0.75p1 0"_

pd 'itemcolor yellow'
pd (pU0([([(i.@{.@$@];((<3 3){])@FREXVE"_ 3)FREMR)yRef@hkyX06B)]) zfyc"1@pTtotal xCpts''

xCpts=:_ 1.10 1.10 0,_ 0.50p1 0.50p1 0,_ _0.25p1 1.75p1 200,:_ 1.95p1 0.95p1 0"_

pd 'itemcolor yellow'
pd (pU0([([(i.@{.@$@];((<3 3){])@FREXVE"_ 3)FREMR)yRef@hkyX06B)]) zfyc"1@pTtotal xCpts''

pd 'aspect 1'
pd 'canvas plot.html 666 500'

'finished' 1!:2[2


JX06P02E02C.png


Next Page: User:Tom Allen/ta/AddendumX06P03
Prev Page: User:Tom Allen/ta/AddendumX06P02D

Retrieved from "https://code.jsoftware.com/mediawiki/index.php?title=User:Tom_Allen/ta/AddendumX06P02E&oldid=53494"