Mercurial > octave-nkf

diff scripts/sparse/sprandsym.m @ 7017:a1dbe9d80eee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-10-12 21:27:11 by jwe]
author jwe
date Fri, 12 Oct 2007 21:27:37 +0000
parents 93c65f2a5668
children f5005d9510f4
line wrap: on
line diff
--- a/scripts/sparse/sprandsym.m	Fri Oct 12 06:41:26 2007 +0000
+++ b/scripts/sparse/sprandsym.m	Fri Oct 12 21:27:37 2007 +0000
@@ -1,4 +1,4 @@
-## Copyright (C) 2004 David Bateman & Andy Adler
+## Copyright (C) 2004, 2006, 2007 David Bateman & Andy Adler
 ##
 ## This file is part of Octave.
 ##
@@ -64,7 +64,7 @@
       S = sparse (n, n);
     else
       S1 = sparse (i1, j1+1, randn (k1, 1), m1, n1);
-      S = [tril(S1), sparse (m1, m1); ...
+      S = [tril(S1), sparse(m1,m1); ...
 	   sparse(i2,j2+1,randn(k2,1),n2,n2), triu(S1,1)'];
       S = S + tril (S, -1)';
     endif