Changeset 59cbd4 in git for libpolys

Timestamp:

Jul 18, 2017, 11:20:36 AM (7 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

e1b97325484518e3066e79d9094d583ba545ecde

Parents:

be9e53616a15688797b33af761ed59fa19365eba

git-author:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2017-07-18 11:20:36+02:00

git-committer:

Hans Schoenemann <hannes@mathematik.uni-kl.de>2017-07-18 11:25:18+02:00

Message:

add: delete(ideal/module, pos)

Location:

libpolys/polys

Files:

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

libpolys/polys/simpleideals.cc

@@ -1803 +1803 @@
 //  id_Test( M, r );
 }
+
+ideal id_Delete_Pos(const ideal I, const int p, const ring r)
+{
+  if ((p<0)||(p>=IDELEMS(I))) return NULL;
+  ideal ret=idInit(IDELEMS(I),I->rank);
+  for(int i=0;i<p;i++) ret->m[i]=p_Copy(I->m[i],r);
+  for(int i=p+1;i<IDELEMS(I);i++) ret->m[i-1]=p_Copy(I->m[i],r);
+  return ret;
+}

libpolys/polys/simpleideals.h

@@ -168 +168 @@
 
 void id_Shift(ideal M, int s, const ring r);
+ideal id_Delete_Pos(const ideal I, const int pos, const ring r);
 #endif