Mercurial > octave-nkf

comparison scripts/sparse/sprandsym.m @ 10549:95c3e38098bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Untabify .m scripts
author Rik <code@nomad.inbox5.com>
date Fri, 23 Apr 2010 11:28:50 -0700
parents 16f53d29049f
children be55736a0783
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
66 if (isempty (i1) && isempty (i2)) 66 if (isempty (i1) && isempty (i2))
67 S = sparse (n, n); 67 S = sparse (n, n);
68 else 68 else
69 S1 = sparse (i1, j1+1, randn (k1, 1), m1, n1); 69 S1 = sparse (i1, j1+1, randn (k1, 1), m1, n1);
70 S = [tril(S1), sparse(m1,m1); ... 70 S = [tril(S1), sparse(m1,m1); ...
71 sparse(i2,j2+1,randn(k2,1),n2,n2), triu(S1,1)']; 71 sparse(i2,j2+1,randn(k2,1),n2,n2), triu(S1,1)'];
72 S = S + tril (S, -1)'; 72 S = S + tril (S, -1)';
73 endif 73 endif
74 else 74 else
75 print_usage (); 75 print_usage ();
76 endif 76 endif