Mercurial > octave-nkf

comparison scripts/sparse/spaugment.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 be150a172010
children 994e2a93a8e2
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
76 if (nargin < 2) 76 if (nargin < 2)
77 if (issparse (a)) 77 if (issparse (a))
78 c = max (max (abs (a))) / 1000; 78 c = max (max (abs (a))) / 1000;
79 else 79 else
80 if (ndims (a) != 2) 80 if (ndims (a) != 2)
81 error ("spaugment: expecting 2-dimenisional matrix") 81 error ("spaugment: expecting 2-dimenisional matrix")
82 else 82 else
83 c = max (abs (a(:))) / 1000; 83 c = max (abs (a(:))) / 1000;
84 endif 84 endif
85 endif 85 endif
86 elseif (!isscalar (c)) 86 elseif (!isscalar (c))
87 error ("spaugment: c must be a scalar"); 87 error ("spaugment: c must be a scalar");
88 endif 88 endif