Changeset 9234fb in git for kernel

Timestamp:

Jan 9, 2013, 12:39:10 PM (11 years ago)

Author:

Andreas Steenpass <steenpass@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38dfc5131670d387a89455159ed1e071997eec94')

Children:

c81bf79ced86ab51e160b984ca42699ac44228a0

Parents:

14a45578ff0a670cc8f091fed8b195c50ef51126

git-author:

Andreas Steenpass <steenpass@mathematik.uni-kl.de>2013-01-09 12:39:10+01:00

git-committer:

Oleksandr Motsak <motsak@mathematik.uni-kl.de>2013-02-19 20:27:28+01:00

Message:

add: idKeepFirstK() in ideals.cc

Conflicts:
	Singular/MinorInterface.cc
	kernel/ideals.cc
	kernel/ideals.h

Location:

kernel

Files:

• ideals.cc (modified) (1 diff)
• ideals.h (modified) (1 diff)

kernel/ideals.cc

@@ -2559 +2559 @@
 */
 
-
-
+/// keeps the first k (>= 1) entries of the given ideal
+/// (Note that the kept polynomials may be zero.)
+void idKeepFirstK(ideal id, const int k)
+{
+     for (int i = IDELEMS(id)-1; i >= k; i--)
+     {
+        if (id->m[i] != NULL) pDelete(&id->m[i]);
+     }
+     pEnlargeSet(&(id->m), IDELEMS(id), k-IDELEMS(id));
+     IDELEMS(id) = k;
+}
+

kernel/ideals.h

@@ -24 +24 @@
 }
 
+void idKeepFirstK(ideal ide, const int k);
+
 /// delete an ideal
 inline void idDelete (ideal* h, ring r = currRing)