Changeset 967a9d in git for kernel/polys1.cc

Timestamp:

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

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

e2afcedc88f05c860f7b86aa70958e538eb8727f

Parents:

aaeb98f1d8fde2cb5e6c22ea2a7379cb757bf46c

Message:

*hannes: p_GetAllDenom


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

File:

• kernel/polys1.cc (modified) (2 diffs)

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