function [lambda, y] = metpot(A, x)
% [lambda, y] = metpot(A, x) calcoloa con il metodo delle potenze
% l'autovalore lambda di una matrice A di modulo massimo un autovettore x
% realtivo a lambda a partire da un vettore iniziale x (diverso da 0)
for k = 1:1000
  y = x/norm(x);
  x = A * y;
end
lambda = y' * A * y;
end
