function [L,V]=valpros(A,nor,v0)

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

// v0=[1;zeros(n-1,1)]
L=[], V=[]  //zeros(n,1)
for k=1:n,[i,l,v,Av]=valpro(A,v0,nor)
    L=[L,l]
    V=[V,v]
    printf('k= %d ',k),print(6,L),print(6,V)
    [ii,ll,vv,Av]=valpro(A',v0,nor)
    A1=defla(A,l,v,vv)
    print(6,A1)
    A=A1
   end