Mercurial > octave-nkf

comparison scripts/sparse/spconvert.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 fd0a3ac60b0e
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
31 if (issparse (m)) 31 if (issparse (m))
32 s = m; 32 s = m;
33 else 33 else
34 sz = size (m); 34 sz = size (m);
35 if (nargin != 1 || ! ismatrix (m) || ! isreal (m) 35 if (nargin != 1 || ! ismatrix (m) || ! isreal (m)
36 || length (sz) != 2 || (sz(2) != 3 && sz(2) != 4)) 36 || length (sz) != 2 || (sz(2) != 3 && sz(2) != 4))
37 error ("spconvert: argument must be sparse or real matrix with 3 or 4 columns"); 37 error ("spconvert: argument must be sparse or real matrix with 3 or 4 columns");
38 elseif (sz(2) == 3) 38 elseif (sz(2) == 3)
39 s = sparse (m(:,1), m(:,2), m(:,3)); 39 s = sparse (m(:,1), m(:,2), m(:,3));
40 else 40 else
41 s = sparse (m(:,1), m(:,2), m(:,3) + 1i*m(:,4)); 41 s = sparse (m(:,1), m(:,2), m(:,3) + 1i*m(:,4));