;
;
;

linestring=' '
openr,1,'speed_test.results'

filetime=fltarr(1582)
filenumb=fltarr(1582)

for i=0,1581 do begin
 readf,1,linestring
 filetime(i)=hms2h(strmid(linestring,50,5))
 if(strmid(linestring,69,1) eq 'f') then filenumb(i)=fix(strmid(linestring,64,4))
 if(strmid(linestring,68,1) eq 'f') then filenumb(i)=fix(strmid(linestring,64,3))
 if(strmid(linestring,67,1) eq 'f') then filenumb(i)=fix(strmid(linestring,64,2))
 if(strmid(linestring,66,1) eq 'f') then filenumb(i)=fix(strmid(linestring,64,1))
 print,i
endfor

close,1

filemins=(filetime-15.)*60.

b15=where(filemins gt 14.5 and filemins lt 15.5,num15)
b16=where(filemins gt 15.5 and filemins lt 16.5,num16)
b17=where(filemins gt 16.5 and filemins lt 17.5,num17)

print,'rate in minute 15 = ',num15/60.,' images per sec'
print,'rate in minute 16 = ',num16/60.,' images per sec'
print,'rate in minute 17 = ',num17/60.,' images per sec'

the_end:
end