function M=leeImagen(nombre)
  A=imread (nombre);
  M=double(A(:,:,1));
%end
