0;
function [la, v] = hatvanymodszer(A,v,n)
  % A matrix
  % v kezdovektor
  % n : iteraciok szama
  for i = 1:n
    z = A*v
    la = norm(z,Inf)
    % La(i) = la
    w = v
    v = z / la
    % V(:,i) = v
  endfor
  % la elojele: v elso koord elojele valtakozik-e?
  la *= sign(v(1)) * sign(w(1))
endfunction

function [la, v] = hatvanymodszer_hiba(A,v,eps)
  % A matrix
  % v kezdovektor
  % eps: la hibaja
  la = Inf
  do
    z = A*v
    la_regi = la
    la = norm(z,Inf)
    v_regi = v
    v = z / la
  until ( abs(la-la_regi) < eps )
  % la elojele: v elso koord elojele valtakozik-e?
  la *= sign(v(1)) * sign(v_regi(1))
endfunction