function x1=fixpont2(x,e)
          x1=g(x);
          while abs(x-x1)>e
                    h=abs(x-x1);
                    x=x1;
                    x1=g(x);
          endwhile