Changeset 4cda39 in git

Timestamp:

Feb 25, 2014, 11:48:17 AM (10 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

7b00dbc9f0db50c18cea3edd1cbb42325128fa85

Parents:

c8e7d6300daa125bcf43fb3a933021818d51256a8d25019f8182d6d3e441f78f8146914b302f82f3

Message:

Merge pull request #519 from steenpass/realclassify_sw

fix: do not change sign of residual form in realclassify.lib

File:

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

Singular/LIB/realclassify.lib

@@ -606 +606 @@
     h = f-jet(f, 2)-corank_part(f);
   }
-  poly g = cleardenom(f-jet(f, 2));
+  poly g = f-jet(f, 2);
+  poly lead_g = leadcoef(g);
+  if(lead_g > 0)
+  {
+    g = g/lead_g;
+  }
+  if(lead_g < 0)
+  {
+    g = -g/lead_g;
+  }
 
   return(list(c, lambda, k, g));