Changeset 66bb58 in git for Singular

Timestamp:

Jun 17, 2015, 12:37:30 PM (9 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '2a584933abf2a2d3082034c7586d38bb6de1a30a')

Children:

3e1c75620dfadd12d3798a1aee9d665e5388539d78f5473d833f58e4d789d22b4bdd90725e6f52a4d52203afadb18a3c05d4c08a2bc18bc327690cd9

Parents:

6d1d1eb90429f666ee8004fe1ee9911bbead1dc9

Message:

poly::content for ZZ and in general

File:

• Singular/LIB/poly.lib (modified) (1 diff)

Singular/LIB/poly.lib

@@ -895 +895 @@
 {
   if (f==0) { return(number(1)); }
-  if (attrib(basering,"ring_cf"))
-  {
-    "not yet implemented";
+  if (attrib(basering,"ring_cf")
+  && ((typeof(f)=="poly")||(typeof(f)=="vector")))
+  {
+    number c=leadcoef(f);
+    while((c!=1)&&(f!=0))
+    {
+      c=gcd(c,leadcoef(f));
+      f=f-lead(f);
+    }
+    return(c);
   }
   else