Mercurial > hg > octave-nkf

diff scripts/sparse/spdiags.m @ 7505:f5005d9510f4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 30c0533e39ae
children f3c00dc0912b
line wrap: on
line diff
--- a/scripts/sparse/spdiags.m
+++ b/scripts/sparse/spdiags.m
@@ -56,7 +56,9 @@
 
   if (nargin == 1 || nargin == 2)
     ## extract nonzero diagonals of v into A,c
-    [i, j, v, nr, nc] = spfind (v);
+    [i, j, v] = find (v);
+    [nr, nc] = size (v);
+
     if (nargin == 1)
       ## c contains the active diagonals
       c = unique (j-i);