;$Id: pkt2048_relhel.pro,v 1.1 2014/01/14 09:00:58 brandenb Exp $
if !d.name eq 'PS' then begin
  device,xsize=18,ysize=12,yoffset=3
  !p.charthick=3 & !p.thick=3 & !x.thick=3 & !y.thick=3
end
;
;  mv idl.ps ~/tex/tina/Decay/fig/pkt2048_hel_short2048pm1b3_noforce.ps
;  mv idl.ps ~/tex/tina/Decay/fig/pkt2048_hel_short2048pm1b4_noforce.ps
;  mv idl.ps ~/tex/tina/Decay/fig/pkt2048_hel_short2048pm100b4_noforce.ps
;  mv idl.ps ~/tex/tina/Decay/fig/pkt2048_hel_short2048pm1b3.ps
;
default,iread,0
if iread eq 0 then begin
  power,'hel_kin','hel_mag',k=k,spec1=spec1h,spec2=spec2h,i=n,tt=t,/noplot & print,n
  power,'_kin','_mag',k=k,spec1=spec1,spec2=spec2,i=n,tt=t,/noplot & print,n
  iread=1
endif
;
siz=1.7
!p.multi=0
!x.title='!8k!6/!8k!6!d0!n'
!y.title='!8k!6!u5/3!n!8E!6!dM!n!6(!8k,t!6) and !8k!6!u5/3!n!8E!6!dK!n!6(!8k,t!6)'
!y.title='!8E!6!dM!n!6(!8k,t!6) and !8E!6!dK!n!6(!8k,t!6)'
!x.margin=[9.4,.8]
!y.margin=[3.3,.8]
!p.charsize=1.7
tilde='!9!s!aA!n!r!6'
@parameters
;
plot,total(spec2h,1)/total(spec2,1)
plot,total(spec1h,1)/total(spec1,1)
;
END