function [x1, n] = newtonsys (f, J, x0, eps, nmax)
% Az elj�r�s a newton m�dszer seg�ts�g�vel hat�rozza meg egy t�bbv�ltoz�s 
% nemline�ris egyenletrendszer megold�s�t
%
% Bemen� param�terek:
%   f - t�bbv�ltoz�s egyenletrendszer
%   J - az egyenletrendszer Jacobi m�trixa
%   x0 - kezd� �rt�k
%   eps - le�ll�si felt�tel, k�zel�t�s k�sz�b�rt�ke
%   nmax - le�ll�si felt�tel, maxim�lis iter�c� sz�m
% Kimenet: x1 - a megold�s helye, n - iter�ci�k sz�ma
    dx = J(x0)\-f(x0); % els� iter�ci�
    x1 = x0 + dx;      % els� iter�ci�
    n = 1;
    while norm(x1-x0)>eps && n<=nmax
        x0 = x1;
        dx = J(x0)\-f(x0);
        x1 = x0 + dx;
        n = n + 1;
    end;
end