function % Insert here your file name after function (Use Alphanumberic name only)
clear, clc, format short g, format compact
xguess=     % Replace this line with the xguess line(s) from Polymath report.
disp('Variable values at the initial estimate');
disp([' Unknown value ' num2str(xguess) '   Function Value ' num2str(NLEfun(xguess))]); 
xsolv=fzero(@NLEfun,xguess); 
disp(' Variable values at the solution');
disp([' Unknown value ' num2str(xsolv) '   Function Value ' num2str(NLEfun(xsolv))]); 
%- - - - - - - - - - - - - - - - - - - - - -
% Replace this and the following line with the function copied from the Polymath report
% Do not include the xguess line(s)