Changeset 2a5c2f4 in git

Timestamp:

Aug 14, 2006, 7:08:21 PM (18 years ago)

Author:

Oliver Wienand <wienand@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

6d09f28a24f61ce1c4a87c619ced5aca0fad6075

Parents:

cd3d3369e55f59ac72a629fa206a0f305d198a9e

Message:

exta.cc:
system("createG0"): returns the gb of the van. polys


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

File:

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

Singular/extra.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR      *
 *****************************************/
-/* $Id: extra.cc,v 1.240 2006-06-12 00:08:15 wienand Exp $ */
+/* $Id: extra.cc,v 1.241 2006-08-14 17:08:21 wienand Exp $ */
 /*
 * ABSTRACT: general interface to internals of Singular ("system" command)
@@ -2494 +2494 @@
       extern int strat_nr;
       extern int strat_fac_debug;
-      strat_fac_debug=(int)(long)h->Data(); 
+      strat_fac_debug=(int)(long)h->Data();
       strat_nr=0;
       return FALSE;
@@ -2508 +2508 @@
       res->rtyp=POLY_CMD;
       res->data=(poly) kFindZeroPoly(f, r, r);
+      return(FALSE);
+    }
+    else
+/*==================== Creating zero polynomials =================*/
+    if (strcmp(sys_cmd, "createG0")==0)
+    {
+      /* long exp[50];
+      int N = 0;
+      while (h != NULL)
+      {
+        N += 1;
+        exp[N] = (long) h->Data();
+        // if (exp[i] % 2 != 0) exp[i] -= 1;
+        h = h->next;
+      }
+      for (int k = 1; N + k <= currRing->N; k++) exp[k] = 0;
+
+      poly t_p;
+      res->rtyp=POLY_CMD;
+      res->data= (poly) kCreateZeroPoly(exp, -1, &t_p, currRing, currRing);
+      return(FALSE); */
+
+      res->rtyp = IDEAL_CMD;
+      res->data = (ideal) createG0();
       return(FALSE);
     }
@@ -2533 +2557 @@
     }
     else
-    if (strcmp(sys_cmd, "reduce_fct")==0)
-    {
-      ring r = currRing;
-      poly f = (poly)h->Data();
+/*==================== 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=NULL;
+      res->data=(poly) plain_spoly(f,g);
+      return(FALSE);
+    }
+    else
+    if (strcmp(sys_cmd, "testGB")==0)
+    {
+      ideal I = (ideal) h->Data();
+      h = h->next;
+      ideal GI = (ideal) h->Data();
+      res->rtyp = INT_CMD;
+      res->data = (void *) testGB(I, GI);
       return(FALSE);
     }
@@ -2733 +2770 @@
     }
     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 I = (ideal) h->Data();
-      h = h->next;
-      ideal GI = (ideal) h->Data();
-      res->rtyp = INT_CMD;
-      res->data = (void *) testGB(I, GI);
-      return(FALSE);
-    }
-    else
-#endif
 #ifdef ix86_Win
 /*==================== Python Singular =================*/