Mercurial > octave-nkf

comparison scripts/sparse/treeplot.m @ 6746:a8105a726e68

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-06-19 08:18:34 by dbateman]
author dbateman
date Tue, 19 Jun 2007 08:18:34 +0000
parents 2c85044aa63f
children 6304d9ea0a30
comparison
equal deleted inserted replaced
6745:ca6668e47518 6746:a8105a726e68
33 if (! ismatrix (Tree) || rows (Tree) != 1 || ! isnumeric (Tree) 33 if (! ismatrix (Tree) || rows (Tree) != 1 || ! isnumeric (Tree)
34 || ! isvector (Tree) || any (Tree > length (Tree))) 34 || ! isvector (Tree) || any (Tree > length (Tree)))
35 error ("treeplot: the first input argument must be a vector of predecessors"); 35 error ("treeplot: the first input argument must be a vector of predecessors");
36 else 36 else
37 ## the inicialization of node end edge style 37 ## the inicialization of node end edge style
38 NodeStyle = "0*;;"; 38 NodeStyle = "k*";
39 EdgeStyle = "1;;"; 39 EdgeStyle = "r";
40 if (nargin > 2) 40 if (nargin > 2)
41 EdgeStyle = EdgeS; 41 EdgeStyle = EdgeS;
42 if (nargin > 1) 42 if (nargin > 1)
43 if (length (findstr (NodeS, "*")) == 0 43 if (length (findstr (NodeS, "*")) == 0
44 && length (findstr (NodeS, "+")) == 0 44 && length (findstr (NodeS, "+")) == 0