;+
;
; NAME: 
;       PLOT_RATIOS
;
; PURPOSE:
;       Not a main program or procedure but an include block
;       used by PLOT_RESULTS.PRO
;
; CATEGORY:
;       BATSE, OCCULTS
;
; CALLING SEQUENCE:
;
;
; CALLS:
;	none
;
; INPUTS:
;       none explicit, only through commons;
;
; OPTIONAL INPUTS:
;	none
;
; OUTPUTS:
;       none explicit, only through commons;
;
; OPTIONAL OUTPUTS:
;	none
;
; KEYWORDS:
;	none
; COMMON BLOCKS:
;	none
;
; SIDE EFFECTS:
;	none
;
; RESTRICTIONS:
;	none
;
; PROCEDURE:
;	none
;
; MODIFICATION HISTORY:
;	Version 1, ras, august 1995
;-
symkey = [3,3,3,3,1,2,4,5,6,7]
label=string(findgen(6)*.1+.37,form='(f4.2)')+$
	' < COSINE < '+string(findgen(6)*.1+.47,form='(f4.2)')
e_in =r(0).ein_d
win = (e_in(1,*)-e_in(0,*))(*)
emin = (e_in(1,*)+e_in(0,*))(*)/2.
pred2=r.discsp_pred
for i=0,48 do for j=0,3 do pred2(0,j,i)= $
  ( (r(i).edges_d(1,0:1,j)-r(i).edges_d(0,0:1,j))*(r(i).drm_d(*,*,j)# $
  (7.55e-3*win/(emin/30.)^2.03))*127)(*)

pred2 = reform(pred2,2,n_elements(pred2)/2)
pred2 = pred2(*,w)

if !d.name eq 'X' then wset,1 else ps,/ful
!p.multi=[0,1,2]
!x.charsize=.5
!y.charsize=.5
plot_occs_res,rw.edges(1,0),$
	f_div( f_div( rw.davg(0,1), rw.davg(0,0) ), f_div(rw.dprd(1),rw.dprd(0)) ), $
	rw.cos, [.37,.97],/xtype,xrange=[5,200],yrange=[-1,10],$
	xtit='DISCSP1 DISCSP2 BOUNDARY (keV)', $
	ytit='RATIO DISCSP2/1 (MEAS) / DISCSP2/1 (PRED)'

legend, label, psym=symkey(4:9),posi=[15,9.9]
xyouts, 15, 5, 'Crab Model: 0.0074 * (E/30.)!u-2.12!n'

plot_occs_res,rw.edges(1,0),$
	f_div( f_div( rw.davg(0,1), rw.davg(0,0) ), f_div(pred2(1,*),pred2(0,*)) ), $
	rw.cos, [.37,.97],/xtype,xrange=[5,200],yrange=[-1,10],$
	xtit='DISCSP1 DISCSP2 BOUNDARY (keV)', $
	ytit='RATIO DISCSP2/1 (MEAS) / DISCSP2/1 (PRED)'

plotdate, 'DISCSP OCCULT STUDY'

xyouts, 15, 5, 'Crab Model: 0.00755 * (E/30.)!u-2.03!n'
if !d.name eq 'PS' then ps,/full