% Primerjava Hagerjeve cenilke za 1-normo z pravo 1-normo

steps=0;
poskusov=500;
for k=1:poskusov
    A=randn(10);
    [y,korak]=hager(A);
    napaka(k)=y/norm(A,1);
    steps=steps+korak;
end
plot(1:poskusov,napaka,'.')
povprecje=steps/poskusov