jsv5D
for i=1 to size(col(1)) -1 do
cell(5,i) = (cell(1,i+1)-cell(1,i))
end for
cell(5,size(col(1)))=0.
dz=col(5)
x0=col(2)
y0=col(3)
v2=col(4)
x0wave=x0*v2*dz
y0wave=y0*v2*dz
norm=v2*dz
put x0wave into col(6)
put y0wave into col(7)
put norm into col(8)
x0wsum=total(col(6))
y0wsum=total(col(7))
normsum=total(col(8))
x0beam=x0wsum/normsum
y0beam=y0wsum/normsum
put x0wsum into cell(9,1)
put y0wsum into cell(9,2)
put normsum into cell(9,3)
put x0beam into cell(9,5)
put y0beam into cell(9,6)