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