graph theory : convert adjacency matrix to adjacency list in scilab

matrix2list.sce

// desc : retourne une matrice sous forme de liste d'adjacence
// input : matrice d'adjacence (M)
// ouput : Liste d'adjacence ([S, T])
function [S, T]  = mat2listes(M) 
    tailleMatrice = size(M,1)
    S = [] // liste des successeurs.
    T = [1] // initialise forcément à 1.
    for k=1:tailleMatrice
        S = [S, find(M(k,:) == 1)] // on récupère les numéros lignes qui sont à 1
        T = [T, length(S)+1] // on indique le début du prochain sommet
    end
endfunction