function [imf]=fmedian(im)
%
%	Implementacion del filto de mediana
%	para 8 vecinos.
%
%

[xmax,ymax]=size(im);
v=0;
imf=zeros(size(im));
for i=2:xmax-1
	for j=2:ymax-1
		v=[im(i-1:i+1,j-1); im(i-1:i+1,j); im(i-1:i+1,j+1)];
		med=median(v);
		imf(i,j)=med;
	end
end