; IDL Version 7.1 (linux x86_64 m64)
; Journal File for rstein1@bridge3
; Working directory: /nobackupp8/rstein1/96-20/Slices
; Date: Mon Jun 22 23:33:16 2015
 
journ
vhspec=fltarr(1007,921)
for t=0,920 do begin sizesp,vh01t[*,*,t],size=96,spectrum=s,wavenumbers=k & vhspec[*,t]=s
save,/ver,file='spectrum.save',k,vhspec,times
stat,vhspec
;aver =    0.0003425
;rms  =    0.0006876     rms/aver =        2.007
;min  =    8.489e-07     min/aver =     0.002478       1005 662
;max  =     0.003625     max/aver =        10.58         37 184
oplot,vhspec[*,920],lin=1
oplot,k,vhspec[*,920],lin=1
help,s
oplot,k,s,lin=2
oplot,k,sqrt(s),lin=2,thick=3
help,vhspecm
vhspecm[*]=0
help,vhspec
for t=0,920 do vhspecm=vhspecm+vhspec[*,t]
oplot,k,sqrt(vhspecm),lin=0,thick=3
oplot,k,sqrt(vhspecm/921.),lin=0,thick=3
vhspecm=vhspecm/921
save,/ver,file='spectrum.save',k,vhspec,vhspecm,times
plot,k,shspecm
; % PLOT: Expression must be an array in this context: SHSPECM.
plot,k,vhspecm
plot,k,vhspecm,/xlog,/ylog
plot,k,vhspecm,/xlog,/ylog,chars=2
for t=0,920,20 do oplot,k,sqrt(vhspec[*,t]),lin=1
plot,k,sqrt(vhspecm),/xlog,/ylog,chars=2
for t=0,920,20 do oplot,k,sqrt(vhspec[*,t]),lin=1
oplot,k,sqrt(vhspecm),thick=3
plot,k,sqrt(vhspecm*k),/xlog,/ylog,chars=2
plot,k,sqrt(vhspecm*k),/xlog,/ylog,chars=2,thick=2
el=l*700
; % Variable is undefined: L.
el=k*700
plot,el,sqrt(vhspecm*k),/xlog,/ylog,chars=2,thick=2
plot,el,sqrt(vhspecm*k),/xlog,/ylog,chars=2,thick=2,yst=3
plot,el,sqrt(vhspecm*k),/xlog,/ylog,chars=2,thick=2
plot,el,sqrt(vhspecm*k)*1.e4,/xlog,/ylog,chars=2,thick=2
restore,/ver,'vyt_96_2144-2689.save'
help,vhspec,vhspecm
vyspec=vhspec
vyspecm=vhspecm
vyspec[*,*]=0
vyspecm[*]=0.
for t=0,920 do begin sizesp,vy01t[*,*,t],size=96,spectrum=s,wavenumbers=k & vyspec[*,t]=s
print,t
; % PRINT: Variable is undefined: T.
retall
print,t
;     697