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