Changeset cd3d336 in git

Timestamp:

Aug 14, 2006, 6:56:39 PM (18 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

2a5c2f4b88044ea4f445da171e3d11679bd20548

Parents:

1fc18bec9407fc5bcbc1a12d178585dd1f5699f9

Message:

*hannes: naGreaterZero changed (fixes also x<x problem)


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

File:

• kernel/longalg.cc (modified) (2 diffs)

kernel/longalg.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: longalg.cc,v 1.13 2005-11-28 12:44:15 Singular Exp $ */
+/* $Id: longalg.cc,v 1.14 2006-08-14 16:56:39 Singular Exp $ */
 /*
 * ABSTRACT:   algebraic numbers
@@ -1355 +1355 @@
     if (zb->n!=NULL)
     {
-      if ((napIsConstant(zb->z)) && !nacGreaterZero(napGetCoeff(zb->z)))
-        return FALSE;
-      return TRUE;
-    }
-    if ((napIsConstant(zb->z)) && !nacGreaterZero(napGetCoeff(zb->z)))
-      return FALSE;
-  }
-  return TRUE;
+      if (nacGreaterZero(napGetCoeff(zb->z)))
+      {
+        if (nacGreaterZero(napGetCoeff(zb->n))) return TRUE;
+        else                                   return FALSE;
+      }
+      else
+      {
+        if (nacGreaterZero(napGetCoeff(zb->n))) return FALSE;
+        else                                   return TRUE;
+      }
+    }
+    return (nacGreaterZero(napGetCoeff(zb->z)));
+  }
+  /* else */ return FALSE;
 }