Changeset 728a2c in git

Timestamp:

Jun 8, 2006, 11:56:25 PM (17 years ago)

Author:

Oliver Wienand <wienand@…>

Branches:

(u'spielwiese', '91fdef05f09f54b8d58d92a472e9c4a43aa4656f')

Children:

69bc59eb8e7fb6562032a5586959c2754a881ddc

Parents:

a48e1999411528d3925391351d47f42ca54765b4

Message:

[oliver]

extra.cc:
* testGB --> tests all spoly for reducing to zero
* spoly --> computes one spoly


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

File:

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

Singular/extra.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: extra.cc,v 1.238 2006-01-16 03:28:10 wienand Exp $ */
+/* $Id: extra.cc,v 1.239 2006-06-08 21:56:25 wienand Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -2733 +2733 @@
     }
     else
+#ifdef HAVE_RING2TOM
+/*==================== Testing groebner basis =================*/
+    if (strcmp(sys_cmd, "spoly")==0)
+    {
+      poly f = pCopy((poly) h->Data());
+      h = h->next;
+      poly g = pCopy((poly) h->Data());
+
+      res->rtyp=POLY_CMD;
+      res->data=(poly) plain_spoly(f,g);
+      return(FALSE);
+    }
+    else
+    if (strcmp(sys_cmd, "testGB")==0)
+    {
+      ideal GI = (ideal) h->Data();
+      res->rtyp = INT_CMD;
+      res->data = (void *) testGB(GI);
+      return(FALSE);
+    }
+    else
+#endif
 #ifdef ix86_Win
 /*==================== Python Singular =================*/