;$Id: peb_spec.pro,v 1.3 2018/05/16 01:02:28 brandenb Exp $ if !d.name eq 'PS' then begin device,xsize=7,ysize=12,yoffset=3 !p.charthick=3 & !p.thick=3 & !x.thick=3 & !y.thick=3 end ; ; mv idl.ps ~/tex/tina/prop/dustEB/fig/peb_spec.ps ; siz=1.3 loadct,5 !p.position=0 !p.charsize=1.6 !x.margin=[4.6,0.2] !y.margin=[1.8,0.2] !p.multi=0 ; ; background ; restore,'EBspec.sav' ; !x.title='!6' !y.title='!6' plot_oi,k[1:*],(EEspec[1:*]-BBspec[1:*])/(EEspec[1:*]+BBspec[1:*]) xyouts,9,-.34,'!8k!6/!8k!6!d1!n',siz=siz xyouts,.15,.48,'!8c!dS!n!6(!8k!6)',siz=siz*1.1 xyouts,30.,.46,'!8c!dA!n!6(!8k!6)',siz=siz*1.1 xyouts,45.,.01,'!8EE!6/!8BB!6',siz=siz*1.1 ; ; S(k) as inset ; !p.charsize=.8 !p.position=[.39,.83,.62,.96] plot_oi,k[1:*],2.*EBspec[1:*]/(EEspec[1:*]+BBspec[1:*]),/noerase ; ; EE/BB ratio as inset ; !p.charsize=1.0 !p.position=[.68,.18,.96,.45] plot_oi,k[1:*],EEspec[1:*]/BBspec[1:*],/noerase,yr=[0,4] ; END