function [ r ] = oving_8_4( x )

tol=.0000001;
z=1;

f=[x(1)^2+x(2)^2-4;x(1)*x(2)-1];
J=[2*x(1),2*x(2);x(2),x(1)];

while z>tol
   r=x-inv(J)*f;
   z=abs(r-x);
   x=r;

   f=[x(1)^2+x(2)^2-4;x(1)*x(2)-1];
   J=[2*x(1),2*x(2);x(2),x(1)];

end

end

