clear
clc
EPS=input('\nEPS=');
n=input('\n n=');
a=zeros(n);

for i=1:n
    fprintf('\n Linia %g',i);
    a(i,:)=input(' ');
end

%Faza I-a: obtinerea formei superior Hessenberg

aa=a;
u=zeros(n);
q=eye(n);