Changeset 754c547 in git for Singular/ideals.cc

Timestamp:

Jan 19, 2002, 3:48:19 PM (22 years ago)

Author:

Olaf Bachmann <obachman@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

e2b5115836f34facc584c5055707ef3f2f428830

Parents:

865fbfc3404627ab39e23c40394104d68cd687ae

Message:

fixed maMonomoial_Insert


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

File:

• Singular/ideals.cc (modified) (3 diffs)

Singular/ideals.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: ideals.cc,v 1.125 2001-09-25 15:43:44 Singular Exp $ */
+/* $Id: ideals.cc,v 1.126 2002-01-19 14:48:16 obachman Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate ideals
@@ -110 +110 @@
     {
       p_Delete(&((*h)->m[--j]), r);
+    }
+    while (j>0);
+    omFreeSize((ADDRESS)((*h)->m),sizeof(poly)*elems);
+  }
+  omFreeBin((ADDRESS)*h, sip_sideal_bin);
+  *h=NULL;
+}
+
+
+/*2
+* Shallowdeletes an ideal/matrix
+*/
+void id_ShallowDelete (ideal *h, ring r)
+{
+  int j,elems;
+  if (*h == NULL)
+    return;
+  elems=j=(*h)->nrows*(*h)->ncols;
+  if (j>0)
+  {
+    do
+    {
+      p_ShallowDelete(&((*h)->m[--j]), r);
     }
     while (j>0);
@@ -623 +646 @@
 }
 
+BOOLEAN idIsModule(ideal id, ring r)
+{
+  if (id != NULL && rRing_has_Comp(r))
+  {
+    int j, l = IDELEMS(id);
+    for (j=0; j<l; j++)
+    {
+      if (id->m[j] != NULL && p_GetComp(id->m[j], r) > 0) return TRUE;
+    }
+  }
+  return FALSE;
+}
+
+    
 /*2
 *returns true if id is homogenous with respect to the aktual weights