function [i,l,v,Av]=valpro(A,v0,nor)

n=size(A,'c') // calcul de la taille de A et vérif carrée
if ~ size(A,'r')==n  then printf('matrice non carree'), end

nmax=500

for i=1:nmax, v=v0; Av=A*v,
    l=norme(Av) 
    v=Av/l, // print(6,[i,Av',v',l])
    if norme(v-v0,nor) < %eps , return, end
    if norme(v+v0,nor) < %eps , l=-l, return, end
    if i==nmax, printf('ca ne converge pas'),print(6,v),print(6,v0),return,end
    v0=v
end