diff options
Diffstat (limited to 'sourcecodes/bnt-master/graph/mk_rooted_tree.m')
| -rw-r--r-- | sourcecodes/bnt-master/graph/mk_rooted_tree.m | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/sourcecodes/bnt-master/graph/mk_rooted_tree.m b/sourcecodes/bnt-master/graph/mk_rooted_tree.m new file mode 100644 index 00000000..396043eb --- /dev/null +++ b/sourcecodes/bnt-master/graph/mk_rooted_tree.m @@ -0,0 +1,19 @@ +function [T, pre, post, cycle] = mk_rooted_tree(G, root) +% MK_ROOTED_TREE Make a directed tree pointing away from root +% [T, pre, post, cycle] = mk_rooted_tree(G, root) + +n = length(G); +T = sparse(n,n); % not the same as T = sparse(n) ! +directed = 0; +[d, pre, post, cycle, f, pred] = dfs(G, root, directed); +[junk, pre2] = sort(d); +assert(isequal(pre, pre2)) +[junk, post2] = sort(f); +assert(isequal(post, post2)); +%[d, pre, post, cycle, f, pred] = dfs(G, [], directed); +for i=1:length(pred) + if pred(i)>0 + T(pred(i),i)=1; + end +end + |