Changeset eecd53 in git

Timestamp:

Sep 27, 2011, 7:33:22 PM (12 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '828514cf6e480e4bafc26df99217bf2a1ed1ef45')

Children:

65b5a77b2199ad09546a232cdee6cd4fed8468bb

Parents:

9c79efdbfa9e07161b8b9c4ce598e1b0b476ccd1

Message:

try to normalize in multiplaction

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

File:

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

kernel/longtrans.cc

@@ -1358 +1358 @@
   lo->n = x;
   lo->s = 0;
+  number luu=(number)lo;
   if(lo->z==NULL)
   {
@@ -1365 +1366 @@
   else if (lo->n!=NULL)
   {
-    number luu=(number)lo;
     // if (p_IsConstant(lo->n,nacRing)) ntCoefNormalize(luu);
     // else
@@ -1371 +1371 @@
     lo=(lnumber)luu;
   }
+  luu=(number)lo;
+  if ((lo!=NULL) 
+  && (naMinimalPoly!=NULL)
+  &&(p_GetExp(lo->z,1,nacRing)>=p_GetExp(naMinimalPoly,1,nacRing)))
+    lo->z=napRemainder(lo->z,naMinimalPoly);
   //if (naMinimalPoly==NULL) lo->s=2;
   ntTest((number)lo);