next up previous contents
Next: Procedura di cleaning per Up: Codice prodotto Previous: Procedura di cleaning per   Contents

Procedure di cleaning per bad columns and rows

pro cleanr,frame1,frame2,n
;frame1=immagine in input
;frame2=immagine in output
;n<=1, tanto piu' e' vicino a 1 tanto piu' e' efficace
;DEFAULT n=0.8
on_error,2
dim=size(frame1)
HS=dim(1)
VS=dim(2)
aux=fltarr(HS,VS)
for i=0,HS-1 do begin
  resistant_mean,frame1(i,VS/2:VS-1),2.5,mean,sigma,num_rej
  aux(i,VS/2:VS-1)=mean
 endfor
frame2=frame1-aux*n
end

pro cleancf,in,out
;SET s=10
;SET n=0.8
on_error,2
aux=filter_image(in,SMOOTH=10,/MEDIAN,/ALL)
aux1=in-aux
cleanr,aux1,aux2,0.8
raw=aux1-aux2
out=in-raw
end



Anna Custo 2002-02-05