function f = esaye(x)
%  epsilon=10e-6;
%  test=1;
%  step=0;
%  while abs(test)> epsilon
   f = exp(x).*log(x)-x.*x;
%   df=exp(x).*log(x)+ (exp(x)/x) - 2*x ;
%   y=x-f/df;
%   step=step+1;
%   test=x-y;
%   x=y;
% end