Mercurial > octave-antonio
diff scripts/sparse/colperm.m @ 7505:f5005d9510f4
Remove dispatched sparse functions and treat in the generic versions of the functions
author | David Bateman <dbateman@free.fr> |
---|---|
date | Wed, 20 Feb 2008 15:52:11 -0500 |
parents | f084ba47812b |
children | eb63fbe60fab |
line wrap: on
line diff
--- a/scripts/sparse/colperm.m Wed Feb 20 14:56:22 2008 -0500 +++ b/scripts/sparse/colperm.m Wed Feb 20 15:52:11 2008 -0500 @@ -31,7 +31,7 @@ print_usage (); endif - [i, j] = spfind (s); + [i, j] = find (s); idx = find (diff ([j; Inf]) != 0); [dummy, p] = sort (idx - [0; idx(1:(end-1))]); endfunction