Changeset fdda308 in git

Timestamp:

Aug 6, 2014, 6:07:32 PM (10 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

c311064c2b37f0ffc421b75995c94179b5b9a0ea

Parents:

3fff1f5061af4657adabc775899c591c7c39b23bf5bce2e759c27d4d638afa665b55e0b57ab09b37

Message:

Merge pull request #634 from YueRen/gcd_fixes

fix: gcd over integers of two terms ignoring coefficients

File:

• libpolys/polys/clapsing.cc (modified) (2 diffs)

libpolys/polys/clapsing.cc

@@ -62 +62 @@
     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);
+    if (rField_is_Ring(r))
+    {
+      number c = p_GetCoeff(f,r);
+      number d = p_GetCoeff(g,r);
+      p_SetCoeff(p,n_Gcd(c,d,r->cf),r);
+    }
     p_Setm(p,r);
     return p;
@@ -88 +94 @@
     for(int i=rVar(r);i>0;i--)
       p_SetExp(p,i,p_GetExp(g,i,r),r);
+    if (rField_is_Ring(r))
+    {
+      number c = p_GetCoeff(f,r);
+      number d = p_GetCoeff(g,r);
+      p_SetCoeff(p,n_Gcd(c,d,r->cf),r);
+    }
     while(h!=NULL)
     {