function [A]=qrsimple(A,it)
%QRSIMPLE Il metodo QR
%  [D]=qrsimple(A,IT) esegue IT iterazioni del metodo QR
%  nella sua forma piu' semplice. La matrice
%  risultante D, se il metodo converge, presenta
%  lungo la diagonale gli autovalori
%  della matrice A. 
%
%  Si veda EIG, EIGS.

%   Saleri Fausto 06-02-01

for i = 1:it
 [Q,R]=qr(A);
 A = R*Q;
end 

return
