Mercurial > hg > octave-lyh

diff scripts/sparse/sprand.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 a1dbe9d80eee
children eb63fbe60fab
line wrap: on
line diff
--- a/scripts/sparse/sprand.m
+++ b/scripts/sparse/sprand.m
@@ -47,7 +47,8 @@
 
 function S = sprand (m, n, d)
   if (nargin == 1)
-    [i, j, v, nr, nc] = spfind (m);
+    [i, j, v] = find (m);
+    [nr, nc] = size (m);
     S = sparse (i, j, rand (size (v)), nr, nc);
   elseif (nargin == 3)
     mn = n*m;