# HG changeset patch
# User jwe
# Date 1037148323 0
# Node ID aabb8307021f1552441a44987033593cd417b387
# Parent  2aea727f516f1c9b5795f706483aff07fe9d3629
[project @ 2002-11-13 00:45:22 by jwe]

diff --git a/scripts/ChangeLog b/scripts/ChangeLog
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,5 +1,7 @@
 2002-11-12  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
+	* control/base/lsim.m: Use approximate test for step size change.
+
 	* signal/bartlett.m: Avoid row/column mismatch error.
 
 2002-11-12  Paul Kienzle <pkienzle@users.sf.net>
diff --git a/scripts/control/base/lsim.m b/scripts/control/base/lsim.m
--- a/scripts/control/base/lsim.m
+++ b/scripts/control/base/lsim.m
@@ -73,10 +73,13 @@
   t(2)-t(1);
   u=u';
   n = max(size(t));
+
   for ii = 1:(n-1)
 
     ## check if step size changed
-    if (t(ii+1) - t(ii) != Ts)
+    ## XXX FIXME XXX -- this is probably not the best test, but it is
+    ## better than a test for exact equality.
+    if (abs (t(ii+1) - t(ii) - Ts) > 10 * eps)
       Ts = t(ii+1) - t(ii);
       ## [F,G] = c2d(a,b,Ts);
       dsys = c2d(sys, Ts);