pro alpha_s_plots,help=help

if keyword_set(help) then begin
	print,'PURPOSE:'
	print,'	plots alpha and s for MEM NJIT, Clean, and Pixon'
	print,'HELP:'
	print,'	pro alpha_s_plots'
	print,'	no inputs, just an output x-window with 6 plots of alpha and s'
	print,'AUTHOR:'
	print,'	Rick Pernak, Goddard Space Flight Center'
	return
endif

sep_ang,dates,c

n=size(dates,/n_elements)

;make alpha array
amem = c.amem
aclean = c.aclean
apixon = c.apixon

;make separation array
smem = c.smem
sclean = c.sclean
spixon = c.spixon

!p.multi=[0,3,2,0,0]

;plot alphas

xr=[0,3]
yr=[0,3] ;arbitrary alpha ranges

plot,amem,aclean,psym=4,/xst,/yst,xr=xr,yr=yr,/iso,xtitle='MEM alpha',ytitle='Clean alpha'
oplot,xr,yr
for j=0,24 do begin
	xyouts,amem[j],aclean[j],strcompress(j+1,/rem)
endfor

plot,amem,apixon,psym=4,/xst,/yst,xr=xr,yr=yr,/iso,xtitle='MEM alpha',ytitle='Pixon alpha'
oplot,xr,yr
for j=0,24 do begin
	xyouts,amem[j],apixon[j],strcompress(j+1,/rem)
endfor

plot,apixon,aclean,psym=4,/xst,/yst,xr=xr,yr=yr,/iso,xtitle='Pixon alpha',ytitle='Clean alpha'
oplot,xr,yr
for j=0,24 do begin
	xyouts,apixon[j],aclean[j],strcompress(j+1,/rem)
endfor

;plot separations

xr=[0,.08]
yr=[0,.08] ;arbitrary separation values

plot,smem,sclean,psym=4,xr=xr,yr=yr,/xst,/yst,/iso,xtitle='MEM S',ytitle='Clean S'
oplot,xr,yr
for j=0,24 do begin
	xyouts,smem[j],sclean[j],strcompress(j+1,/rem)
endfor

plot,smem,spixon,psym=4,xr=xr,yr=yr,/xst,/yst,/iso,xtitle='MEM S',ytitle='Pixon S'
oplot,xr,yr
for j=0,24 do begin
	xyouts,smem[j],spixon[j],strcompress(j+1,/rem)
endfor

plot,spixon,sclean,psym=4,xr=xr,yr=yr,/xst,/yst,/iso,xtitle='Pixon S',ytitle='Clean S'
oplot,xr,yr
for j=0,24 do begin
	xyouts,spixon[j],sclean[j],strcompress(j+1,/rem)
endfor

!p.multi=0

return
end