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;