Changeset 489408 in git

Timestamp:

May 6, 1997, 8:04:53 PM (27 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'c5facdfddea2addfd91babd8b9019161dea4b695')

Children:

fd4bdead5f7c89c1b86ada749d9a634013c0124b

Parents:

43d6c5e0633d3e100f8b9f03090a0b47e622409d

Message:

* hannes: changed nrIsOne, nrIsMOne to allow rounding errors


git-svn-id: file:///usr/local/Singular/svn/trunk@270 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/shortfl.cc (modified) (2 diffs)

Singular/shortfl.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: shortfl.cc,v 1.4 1997-04-12 16:04:45 Singular Exp $ */
+/* $Id: shortfl.cc,v 1.5 1997-05-06 18:04:53 Singular Exp $ */
 
 /*
@@ -133 +133 @@
 BOOLEAN nrIsOne (number a)
 {
-  return (1.0 == nf(a).F());
+  float aa=nf(a).F()-1.0;
+  if (aa<0.0) aa=-aa;
+  return (aa<nrEps);
 }
 
 BOOLEAN nrIsMOne (number a)
 {
-  return ((-1.0) == nf(a).F());
+  float aa=nf(a).F()+1.0;
+  if (aa<0.0) aa=-aa;
+  return (aa<nrEps);
 }