Changeset 6d1d1e in git for Singular/LIB/poly.lib

Timestamp:

Jun 17, 2015, 11:39:43 AM (8 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'e7cc1ebecb61be8b9ca6c18016352af89940b21a')

Children:

66bb58083828927467d2480a460e91aec1dc789d

Parents:

616e3427b8c510a91535f3e6142aa3be22d7c043

Message:

poly::content for ZZ: blueprint

File:

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

Singular/LIB/poly.lib

@@ -895 +895 @@
 {
   if (f==0) { return(number(1)); }
-  return(leadcoef(f)/leadcoef(cleardenom(f)));
+  if (attrib(basering,"ring_cf"))
+  {
+    "not yet implemented";
+  }
+  else
+  {
+    return(leadcoef(f)/leadcoef(cleardenom(f)));
+  }
 }
 example