Mercurial > octave-libgccjit

diff scripts/sparse/sprandsym.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 bc982528de11
line wrap: on
line diff
--- a/scripts/sparse/sprandsym.m	Wed Feb 20 14:56:22 2008 -0500
+++ b/scripts/sparse/sprandsym.m	Wed Feb 20 15:52:11 2008 -0500
@@ -35,7 +35,8 @@
 
 function S = sprandsym (n, d)
   if (nargin == 1)
-    [i, j, v, nr, nc] = spfind (tril (n));
+    [i, j, v] = find (tril (n));
+    [nr, nc] = size (n);
     S = sparse (i, j, randn (size (v)), nr, nc);
     S = S + tril (S, -1)';
   elseif (nargin == 2)