graph theory : convert adjacency matrix to incidence matrix

adja2incidence.sce

// desc : retourne une matrice adjacence sous forme de matrice d'incidence.
// input : matrice d'adjacence (M)
// output : matrice d'incidence (res)
function res = adja2incidence(M) // soucis : les boucles ne sont pas notées
    [S, T] = mat2listes(M)
    res =zeros(length(T), length(S)-1)
    for k=1:size(M, 1) // on marque tout les arcs rentrant dans le sommet
        res(k, predecesseurs(M,k)) = -1
    end
    for k=1:size(M, 1) // on marque tout les arcs sortant du sommet
        succ = liste_succ(S, T, k)
        boucle = find(succ==k)
        if(boucle<>[]) then
            res(k,boucle) = [2]
        else
            res(k, liste_succ(S, T, k)) = 1
        end
    end
endfunction