PRO JAN20AGU05fig8
;
; Creates figure 8 (Y posn vs nuclear fraction) for AGU05
;
LABELS 	= ['  250-500', ' 550-1000', '1000-1500', '1500-2100', '2215-2231', '3500-7000']+' keV'
nucf	= [      0.104,       0.201,       0.374,       0.510,      0.921,        0.394]
yposn	= [      249.2,       255.2,       272.6,       273.7,      267.1,        273.4]
errbar	= [        1.3,         4.8,         7.6,         8.3,        4.1,         10.1]

!P.MULTI=[0,1,1]
PLOT, nucf, yposn, YRANGE=[230,290], XRANGE=[0,1], XTITLE='Nuclear Fraction', YTITLE='Y centroid position (arcsec)', $
			PSYM=7, SYMSIZE=2, CHARSIZE=2,CHARTHICK=3, YSTYLE=1, THICK=2
ERRPLOT, nucf, yposn-errbar, yposn+errbar
;result= REGRESS(nucf, yposn, MEASURE_ERRORS=errbar, CONST=const)
OPLOT, [0,1], [253.3, 272.4], LINESTYLE=1, THICK=2
RETURN
END