Mercurial > octave-nkf
diff scripts/sparse/colperm.m @ 7125:f084ba47812b
[project @ 2007-11-08 02:29:23 by jwe]
author | jwe |
---|---|
date | Thu, 08 Nov 2007 02:29:24 +0000 |
parents | a1dbe9d80eee |
children | f5005d9510f4 |
line wrap: on
line diff
--- a/scripts/sparse/colperm.m Thu Nov 08 01:09:44 2007 +0000 +++ b/scripts/sparse/colperm.m Thu Nov 08 02:29:24 2007 +0000 @@ -26,6 +26,11 @@ ## @end deftypefn function p = colperm (s) + + if (nargin != 1) + print_usage (); + endif + [i, j] = spfind (s); idx = find (diff ([j; Inf]) != 0); [dummy, p] = sort (idx - [0; idx(1:(end-1))]);