;$Id: peigenvals.pro,v 1.2 2014/07/20 09:26:43 brandenb Exp $
if !d.name eq 'PS' then begin
  device,xsize=18,ysize=10,yoffset=3
  !p.charthick=3 & !p.thick=3 & !x.thick=3 & !y.thick=3
endif
;
;  mv idl.ps ~/tex/tina/Decay/fig/peigenvals.ps
;
!p.charsize=1.7
!x.margin=[5.8,1.5]
!y.margin=[3.2,.5]
!x.title='!7k!6'
!y.title='!8p!6(!7k!6)'
restore,'eigenvals_VAR3_16.sav'
plot,xe1,ye1,xr=[-1,1],yr=[0,8]
oplot,xe2,ye2,li=1
oplot,xe3,ye3,li=2
;
siz=1.6
xyouts,-.30,4,siz=siz,'!7k!6!d1!n'
xyouts,-.14,6,siz=siz,'!7k!6!d2!n'
xyouts,+.23,4,siz=siz,'!7k!6!d3!n'
END