wolffd@0: function b = connected(adj_mat, directed)
wolffd@0: %
wolffd@0: % b = connected(adj_mat).
wolffd@0: % Returns true iff the graph is connected.
wolffd@0: 
wolffd@0: n = length(adj_mat);
wolffd@0: start = 1;
wolffd@0: [d, pre] = dfs(adj_mat, start, directed);
wolffd@0: b = (length(pre) == n);