Multitemporal (and/or Multisensor) Image filtering using Median. LEGAL program to create images with pixels ranked from highest to lowest values. Change Inforlayer names and resolutions accordingly.

{
Digital i01, i02, i03, i04, i05, i06, i07, i08, i09,
       Y01, Y02, Y03, Y04, Y05, Y06, Y07, Y08, Y09,
       R01, R02, R03, R04, R05, R06, R07, R08, R09 ("CAT_MNT");
       
Y01 = Recupere (Nome= "R_0720_Filt");
Y02 = Recupere (Nome= "R_0726_Filt");
Y03 = Recupere (Nome= "R_0729_Filt");

i01 = Novo (Nome= "Ys03N_1", ResX=32, ResY=32, Escala=100000);
i02 = Novo (Nome= "Ys03N_2", ResX=32, ResY=32, Escala=100000);
i03 = Novo (Nome= "Ys03N_3", ResX=32, ResY=32, Escala=100000);

R01 = Novo (Nome= "Rs3n01", ResX=32, ResY=32, Escala=100000);
R02 = Novo (Nome= "Rs3n02", ResX=32, ResY=32, Escala=100000);
R03 = Novo (Nome= "Rs3n03", ResX=32, ResY=32, Escala=100000);

i01 = Y01+0.001;
i02 = Y02+0.002;
i03 = Y03+0.003;

R01 = i01>i02 && i01>i03  ? i01 :
                 i02>i03  ? i02 : i03;

i01 = i01==R01 ? 0 : i01; i02 = i02==R01 ? 0 : i02;
i03 = i03==R01 ? 0 : i03; 

R02 = i01>i02 && i01>i03  ? i01 :
                 i02>i03  ? i02 : i03;

i01 = i01==R02 ? 0 : i01; i02 = i02==R02 ? 0 : i02;
i03 = i03==R02 ? 0 : i03; 

R03 = i01>i02 && i01>i03  ? i01 :
                 i02>i03  ? i02 : i03;

}