Mercurial > octave-nkf

diff scripts/linear-algebra/rank.m @ 7795:df9519e9990c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Handle single precision eps values
author David Bateman <dbateman@free.fr>
date Mon, 12 May 2008 22:57:11 +0200
parents a1dbe9d80eee
children eb63fbe60fab
line wrap: on
line diff
--- a/scripts/linear-algebra/rank.m	Mon May 12 01:35:30 2008 +0200
+++ b/scripts/linear-algebra/rank.m	Mon May 12 22:57:11 2008 +0200
@@ -42,7 +42,11 @@
     if (isempty (sigma))
       tolerance = 0;
     else
-      tolerance = max (size (A)) * sigma (1) * eps;
+      if (isa (A, "single"))
+	tolerance = max (size (A)) * sigma (1) * eps ("single");
+      else
+	tolerance = max (size (A)) * sigma (1) * eps;
+      endif
     endif
   elseif (nargin == 2)
     sigma = svd (A);