Changeset a81a22 in git

Timestamp:

Jul 15, 2005, 1:58:24 PM (18 years ago)

Author:

Viktor Levandovskyy <levandov@…>

Branches:

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

Children:

26620d841aad6a1ce3ba68c3114ee40ccffe0576

Parents:

0012cd4f13750d91e4a0ed30bff8169440d35f3f

Message:

*levandov: new, fraction-free version of nc_kBucketPolyRed added


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

Location:

kernel

Files:

• gring.cc (modified) (3 diffs)
• gring.h (modified) (2 diffs)

kernel/gring.cc

@@ -7 +7 @@
  *  Author:  levandov (Viktor Levandovsky)
  *  Created: 8/00 - 11/00
- *  Version: $Id: gring.cc,v 1.25 2005-04-22 18:09:42 levandov Exp $
+ *  Version: $Id: gring.cc,v 1.26 2005-07-15 11:58:24 levandov Exp $
  *******************************************************************/
 #include "mod2.h"
@@ -1228 +1228 @@
 void nc_kBucketPolyRed(kBucket_pt b, poly p, number *c)
 {
-  // b will not by multiplied by any constant in this impl.
+  // b will not be multiplied by any constant in this impl.
   // ==> *c=1
   *c=nInit(1);
@@ -1255 +1255 @@
   int l=pLength(pp);
   kBucket_Add_q(b,pp,&l);
+}
+
+void nc_kBucketPolyRed_Z(kBucket_pt b, poly p, number *c)
+{
+  // b is multiplied by a constant in this impl.
+  poly m=pOne();
+  pExpVectorDiff(m,kBucketGetLm(b),p);
+  //pSetm(m);
+#ifdef PDEBUG
+  pTest(m);
+#endif
+  poly pp = nc_mm_Mult_p(m,pCopy(p),currRing);
+  pDelete(&m);
+  *c = kBucketPolyRed(b,pp,pLength(pp),NULL);
 }
 

kernel/gring.h

@@ -4 +4 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: gring.h,v 1.11 2005-04-22 18:09:42 levandov Exp $ */
+/* $Id: gring.h,v 1.12 2005-07-15 11:58:23 levandov Exp $ */
 /*
 * ABSTRACT additional defines etc for --with-plural
@@ -80 +80 @@
 /* void nc_kBucketPolyRed(kBucket_pt b, poly p); */
 void nc_kBucketPolyRed(kBucket_pt b, poly p, number *c);
+void nc_kBucketPolyRed_Z(kBucket_pt b, poly p, number *c);
 void nc_PolyPolyRed(poly &b, poly p, number *c);