Mercurial > octave-nkf

comparison scripts/linear-algebra/rank.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 eb9e0b597d61
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
41 sigma = svd (A); 41 sigma = svd (A);
42 if (isempty (sigma)) 42 if (isempty (sigma))
43 tolerance = 0; 43 tolerance = 0;
44 else 44 else
45 if (isa (A, "single")) 45 if (isa (A, "single"))
46 tolerance = max (size (A)) * sigma (1) * eps ("single"); 46 tolerance = max (size (A)) * sigma (1) * eps ("single");
47 else 47 else
48 tolerance = max (size (A)) * sigma (1) * eps; 48 tolerance = max (size (A)) * sigma (1) * eps;
49 endif 49 endif
50 endif 50 endif
51 elseif (nargin == 2) 51 elseif (nargin == 2)
52 sigma = svd (A); 52 sigma = svd (A);
53 tolerance = tol; 53 tolerance = tol;