User:Tom Allen/ta/AddendumX04P00

NB. ... script experimentalX04.ijs ...

load jpath '~temp\experimentalT00.ijs'
load jpath '~temp\experimentalT01.ijs'
load jpath '~temp\experimentalT02.ijs'
load jpath '~temp\experimentalT03.ijs'
load jpath '~temp\experimentalU00.ijs'
load jpath '~temp\experimentalU01.ijs'
load jpath '~temp\experimentalU02.ijs'
load jpath '~temp\experimentalU03.ijs'
load jpath '~temp\experimentalU04.ijs'
load jpath '~temp\experimentalV00.ijs'
load jpath '~temp\experimentalW01.ijs'    NB. ... a 3-dimensional vibrating packet of energy ...

NB. ... script experimentalX04.ijs ...

uQX04A0=:([zfyXX zfxc"_ 1),:zfxXX

uQX04A1=:(0 1{]),zfhcvXX,zfgcvXX,zfhcnXX,:zfgcnXX

uQX04A2=:<@:>"1@(0|:])@:(zSbQ59XX"_ 1)

hkyX04A=:[(],OcAXX)([uQX04A1 uQX04A0),uQX04A2

NB. ... script experimentalX04.ijs ...

uQX04B0=:([zfyXX zfxc"_ 1),:zfxXX

uQX04B1=:(0 1{]),zfhcvXX,zfgcvXX,zfhcnXX,:zfgcnXX

uQX04B2=:<@:>"1@(0|:])@:((zSbQ59XX+&.>((,:@1 0.5 1 1 1 1 1 1 1*[)zSbQ59XX])+&.>(,:@1 2 1 1 1 1 1 1 1*[)zSbQ59XX])"_ 1)

hkyX04B=:[(],OcAXX)([uQX04B1 uQX04B0),uQX04B2