Mercurial > hg > octave-nkf

comparison scripts/control/system/is_stable.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 59dcf01bb3e3
children
comparison
equal deleted inserted replaced
7794:2b458dfe31ae 7795:df9519e9990c
67 error ("A(%dx%d) must be square", rows (A), columns (A)); 67 error ("A(%dx%d) must be square", rows (A), columns (A));
68 endif 68 endif
69 endif 69 endif
70 70
71 if (nargin < 2) 71 if (nargin < 2)
72 tol = 200*eps; 72 if (isa (a, "single"))
73 tol = 200 * eps("single");
74 else
75 tol = 200 * eps;
76 endif
73 elseif (! isscalar (tol)) 77 elseif (! isscalar (tol))
74 error ("is_stable: tol(%dx%d) must be a scalar", rows (tol), 78 error ("is_stable: tol(%dx%d) must be a scalar", rows (tol),
75 columns (tol)); 79 columns (tol));
76 endif 80 endif
77 81