Mercurial > hg > octave-lyh

comparison scripts/sparse/spones.m @ 7151:aeeb646f6538

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-09 19:34:17 by jwe]
author jwe
date Fri, 09 Nov 2007 19:35:52 +0000
parents f084ba47812b
children f5005d9510f4
comparison
equal deleted inserted replaced
7150:68a1b616b7df 7151:aeeb646f6538
31 if (issparse (s)) 31 if (issparse (s))
32 [i, j, v, m, n] = spfind (s); 32 [i, j, v, m, n] = spfind (s);
33 else 33 else
34 [i, j, v] = find (s); 34 [i, j, v] = find (s);
35 [m, n] = size (s); 35 [m, n] = size (s);
36 end 36 endif
37
37 s = sparse (i, j, 1, m, n); 38 s = sparse (i, j, 1, m, n);
39
38 endfunction 40 endfunction
39 41
40 %!assert(issparse(spones([1,2;3,0]))) 42 %!assert(issparse(spones([1,2;3,0])))
41 %!assert(spones([1,2;3,0]),sparse([1,1;1,0])) 43 %!assert(spones([1,2;3,0]),sparse([1,1;1,0]))
42 %!assert(spones(sparse([1,2;3,0])),sparse([1,1;1,0])) 44 %!assert(spones(sparse([1,2;3,0])),sparse([1,1;1,0]))