for i=1:5
    w=A*v
    [y,i]=max(abs(w))
    alpha=w(i)
    v=w/alpha
end
