function y = explnxy(x)
%
% Función definida implícitamente:
%   F(x,y) = exp(-y / (1 + x^2)) - ln y = 0
%
  y = bisecsolve(@Faux, 1, 9);
  return;
%
  function z = Faux(w)
    if (w > 0)
     z = exp(-w / (1 + x * x)) - log(w);
    else
     z = 0;
    end
  end
end
