Changeset 967a9d in git

Timestamp:

Oct 8, 2009, 12:06:59 PM (14 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

e2afcedc88f05c860f7b86aa70958e538eb8727f

Parents:

aaeb98f1d8fde2cb5e6c22ea2a7379cb757bf46c

Message:

*hannes: p_GetAllDenom


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

Location:

kernel

Files:

• polys.h (modified) (2 diffs)
• polys1.cc (modified) (2 diffs)

kernel/polys.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys.h,v 1.21 2009-02-26 14:22:49 Singular Exp $ */
+/* $Id: polys.h,v 1.22 2009-10-08 10:06:59 Singular Exp $ */
 /*
 * ABSTRACT - all basic methods to manipulate polynomials of the
@@ -367 +367 @@
 void      pCleardenom_n(poly p,number &c);
 void      p_Normalize(poly p,const ring r);
+number    p_GetAllDenom(poly ph, const ring r);
 #define   pNormalize(p) p_Normalize(p,currRing)
 int       pSize( poly p );

kernel/polys1.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys1.cc,v 1.41 2009-09-24 16:37:42 Singular Exp $ */
+/* $Id: polys1.cc,v 1.42 2009-10-08 10:06:59 Singular Exp $ */
 
 /*
@@ -1162 +1162 @@
 }
 
+number p_GetAllDenom(poly ph, const ring r)
+{
+  number d=n_Init(1,r);
+  poly p = ph;
+
+  while (p!=NULL)
+  {
+    number h=n_GetDenom(pGetCoeff(p),r);
+    if (!n_IsOne(h,r))
+    {
+      number dd=n_Mult(d,h,r);
+      n_Delete(&d,r);
+      d=dd;
+    }
+    n_Delete(&h,r);
+    pIter(p);
+  }
+  return d;
+}
+
 /*2
 *tests if p is homogeneous with respect to the actual weigths