Changeset 36586bb in git for kernel

Timestamp:

Aug 9, 2010, 7:30:11 PM (14 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '38dfc5131670d387a89455159ed1e071997eec94')

Children:

7f8587b3752e6d6a92df017bafdfb3d03198e66b

Parents:

951dacc4a3685937010b175eaba6b16678bc2853

Message:

optimice gcd for monomials

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

File:

• kernel/clapsing.cc (modified) (1 diff)

kernel/clapsing.cc

@@ -32 +32 @@
   poly res=NULL;
 
-  if (p_IsConstantPoly(f,r) || p_IsConstantPoly(g,r))
-  {
-    return p_One(r);
+  assume(f!=NULL);
+  assume(g!=NULL);
+
+  if((pNext(f)==NULL) && (pNext(g)==NULL))
+  {
+    poly p=pOne();
+    for(int i=rVar(r);i>0;i--)
+      p_SetExp(p,i,si_min(p_GetExp(f,i,r),p_GetExp(g,i,r)),r);
+    p_Setm(p,r);
+    return p;
   }