Changeset d59bc4 in git

Timestamp:

Jan 29, 2019, 11:17:23 AM (4 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

54b24c79febc0e79ee3f9c6a86b7c4d505c69a43e7f87f8c0c1e0f9a32c413846486e3d60a8c191a

Parents:

4b79c7b8189f75f27945f29fcb0e545394b85ab0

Message:

add: p_CopyPowerProduct

Location:

libpolys/polys/monomials

Files:

• p_polys.cc (modified) (1 diff)
• p_polys.h (modified) (2 diffs)

libpolys/polys/monomials/p_polys.cc

@@ -4881 +4881 @@
   return G;
 }
+
+poly p_CopyPowerProduct(poly p, const ring r)
+{
+  if (p == NULL) return NULL;
+  p_LmCheckPolyRing1(p, r);
+  poly np;
+  omTypeAllocBin(poly, np, r->PolyBin);
+  p_SetRingOfLm(np, r);
+  memcpy(np->exp, p->exp, r->ExpL_Size*sizeof(long));
+  pNext(np) = NULL;
+  pSetCoeff0(np, n_Init(1, r->cf));
+  return np;
+}
+

libpolys/polys/monomials/p_polys.h

@@ -822 +822 @@
 }
 
+/// copy the i(leading) term of p
 static inline poly p_Head(poly p, const ring r)
 {
@@ -835 +836 @@
 }
 
-// returns a copy of p with Lm(p) from lmRing and Tail(p) from tailRing
+/// like p_Head, but with coefficient 1
+poly p_CopyPowerProduct(poly p, const ring r);
+
+/// returns a copy of p with Lm(p) from lmRing and Tail(p) from tailRing
 static inline poly p_Copy(poly p, const ring lmRing, const ring tailRing)
 {