function [xn,err,n] =mis1(x0, tol, maxiter)
xn(1) = x0;
n=1;
err(1)=tol+1;
while (err(n)>tol) & (n<=maxiter)
    n=n+1;
    xn(n)=g(xn(n-1));
    err(n)=abs((xn(n)-xn(n-1))/xn(n));
end
end
function y=g(x)
y=2+5/(x*x);
end
return