Mercurial > hg > octave-nkf

diff liboctave/Range.cc @ 1555:6935e817fd25

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1995-10-11 05:49:55 by jwe]
author jwe
date Wed, 11 Oct 1995 05:49:55 +0000
parents 3c89376f951f
children 1281a23a34dd
line wrap: on
line diff
--- a/liboctave/Range.cc
+++ b/liboctave/Range.cc
@@ -194,7 +194,7 @@
   t1 = ct > t1 ? ct : t1;
   t1 = floor (x + t1);
 
-  if (x <= 0.0 || t1 - x < rmax)
+  if (x <= 0.0 || (t1 - x) < rmax)
     return t1;
   else
     return t1 - 1.0;
@@ -217,7 +217,7 @@
 {
   double ct = 3.0 * DBL_EPSILON;
 
-  double tmp = round ((rng_limit - rng_base + rng_inc) / rng_inc, ct);
+  double tmp = tfloor ((rng_limit - rng_base + rng_inc) / rng_inc, ct);
 
   int n_intervals = (int) (tmp > 0.0 ? tmp : 0);