Changeset 3e0a7b in git for kernel/p_polys.cc

Timestamp:

Jul 5, 2007, 12:00:10 PM (17 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

6f7f1ad28512aea17029a55a093c7f9f7ebc2c74

Parents:

b43de705d3ac74ad38d52116da8878e00fb7af66

Message:

*hannes: neg. entries in M(..): pWTotaldegree


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

File:

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

kernel/p_polys.cc

@@ -7 +7 @@
  *  Author:  obachman (Olaf Bachmann)
  *  Created: 8/00
- *  Version: $Id: p_polys.cc,v 1.6 2007-07-05 08:35:10 Singular Exp $
+ *  Version: $Id: p_polys.cc,v 1.7 2007-07-05 10:00:10 Singular Exp $
  *******************************************************************/
 
@@ -287 +287 @@
   int i, k;
   long j =0;
+  int factor;
 
   // iterate through each block:
   for (i=0;r->order[i]!=0;i++)
   {
+    factor=1;
     switch(r->order[i])
     {
+      case ringorder_M:
+           factor=r->OrdSgn;
       case ringorder_wp:
       case ringorder_ws:
       case ringorder_Wp:
       case ringorder_Ws:
-      case ringorder_M:
         for (k=r->block0[i];k<=r->block1[i];k++)
         { // in jedem block:
-          j+= p_GetExp(p,k,r)*r->wvhdl[i][k - r->block0[i]];
+          j+= p_GetExp(p,k,r)*r->wvhdl[i][k - r->block0[i]]*factor;
         }
         break;