Mercurial > hg > octave-nkf

comparison 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
comparison
equal deleted inserted replaced
7794:2b458dfe31ae 7795:df9519e9990c
137 error ("is_dgkf: arguments 2 and 3 must be scalars") 137 error ("is_dgkf: arguments 2 and 3 must be scalars")
138 elseif (! isstruct (Asys)) 138 elseif (! isstruct (Asys))
139 error ("Argument 1 must be a system data structure"); 139 error ("Argument 1 must be a system data structure");
140 endif 140 endif
141 if (nargin < 4) 141 if (nargin < 4)
142 tol = 200*eps; 142 if (isa (Asys.a, "single") || isa (Asys.b, "single") || isa (Asys.c, "single") ||
143 elseif (! is_sample (tol)) 143 isa (Asys.d, "single"))
144 tol = 200*eps("single");
145 else
146 tol = 200*eps;
147 endif
148 elseif (! is_sample (tol))
144 error ("is_dgkf: tol must be a positive scalar") 149 error ("is_dgkf: tol must be a positive scalar")
145 endif 150 endif
146 151
147 retval = 1; # assume passes test 152 retval = 1; # assume passes test
148 153