%  mfile for the solution of Boyce section
%  2.3 probme 8.  Seek root of this function.

function z=retire(x)


z=2000*((exp(40*x)-1))  -(10^6)*x;