histogramas

b=a;

n=5;

s=1000;

for g=1:s,

k=1;

for x=1:w-2,

   for y=1:z-2,

for i=x:x+2,

  for j=y:y+2,

c(k)=b(i,j);

k=k+1;

  end;

end;

for l=1:k-1,

for m=1:k-1,

  if (c(l)>c(m)) 

d=c(l);

c(l)=c(m);

c(m)=d;

  end;

 b(i-1,j-1)=c(5);

end;

        end;

k=1;

    end;

end;

end;