function [I]=seuilM (M,n);
I=M;
for i=1:n
	I((I>((i-1)/n))&(I<(i/n)))=(i-1);	
end;

endfunction;
