;
;
;coadd 100 itime 1 cycles 10 go
;coadd 75 itime 1 cycles 10 go
;coadd 50 itime 1 cycles 10 go
;coadd 25 itime 1 cycles 10 go
;coadd 1 itime 1 cycles 10  go
;coadd 100 itime 0.5 cycles 10 go
;coadd 75 itime 0.5 cycles 10 go
;coadd 50 itime 0.5 cycles 10 go
;coadd 25 itime 0.5 cycles 10 go
;coadd 1 itime 0.5 cycles 10 go

flist=file_search('20050306/ctt*',count=numfiles)

filetimes=fltarr(numfiles)

for i=0,numfiles-1 do begin
 print,flist(i)
 filetimes(i)=fredtime(flist(i))
 temp=readfits(flist(i))
 tvhist,rebin(temp,256,256)
endfor

deltatimes=fltarr(numfiles)
for i=1,numfiles-1 do begin
 deltatimes(i)=filetimes(i)-filetimes(i-1)
endfor

coadds=fltarr(100)
coadds(0:9)=100
coadds(10:19)=75
coadds(20:29)=50
coadds(30:39)=25
coadds(40:49)=1
coadds(50:59)=100
coadds(60:69)=75
coadds(70:79)=50
coadds(80:89)=25
coadds(90:99)=1

itime=fltarr(100)
itime(0:49)=1.
itime(50:99)=0.5

c10=poly_fit(coadds(1:49),deltatimes(1:49)*3600.,1,yfit10)
c05=poly_fit(coadds(51:99),deltatimes(51:99)*3600.,1,yfit05)

cc=poly_fit([0.5,1.0],[c05(1),c10(1)],1,yfit)

print,'coadd frame rate: ',1./cc(0)




the_end:
end