Changeset 7ba059 in git for kernel/polys.cc

Timestamp:

Jul 24, 2007, 2:29:31 PM (16 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')

Children:

1dc959316eac2288bfe64889d2e83ce1d387c029

Parents:

2f0941897d4f1406c4c4e8071399248a0e0b6e1c

Message:

*hannes: NF, pSize, normalize etc.


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

File:

• kernel/polys.cc (modified) (3 diffs)

kernel/polys.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: polys.cc,v 1.25 2007-07-23 14:11:04 motsak Exp $ */
+/* $Id: polys.cc,v 1.26 2007-07-24 12:29:31 Singular Exp $ */
 
 /*
@@ -765 +765 @@
       {
         c=nDiv(pGetCoeff(h),k);
-        if (!nIsOne(c)) nNormalize(c);
+        // no need to normalize: Z/p, R
+        // normalize already in nDiv: Q_a, Z/p_a
+        // remains: Q
+        if (rField_is_Q() && (!nIsOne(c))) nNormalize(c);
         pSetCoeff(h,c);
         pIter(h);
@@ -1038 +1041 @@
   return FALSE;
 }
+
+int pSize(poly p)
+{
+  int count = 0;
+  while ( p != NULL )
+  {
+    count+= nSize( pGetCoeff( p ) );
+    pIter( p );
+  }
+  return count;
+}
+