Mercurial > hg > octave-nkf

diff scripts/control/hinf/is_dgkf.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 a184bc985c37
children
line wrap: on
line diff
--- a/scripts/control/hinf/is_dgkf.m
+++ b/scripts/control/hinf/is_dgkf.m
@@ -139,8 +139,13 @@
     error ("Argument 1 must be a system data structure");
   endif
   if (nargin < 4)
-    tol = 200*eps;
-  elseif (! is_sample (tol))
+    if (isa (Asys.a, "single") || isa (Asys.b, "single") || isa (Asys.c, "single") ||
+	isa (Asys.d, "single"))
+      tol = 200*eps("single");
+    else
+      tol = 200*eps;
+    endif
+      elseif (! is_sample (tol))
     error ("is_dgkf: tol must be a positive scalar")
   endif