Changeset 8d25019 in git

Timestamp:

Feb 25, 2014, 10:35:12 AM (10 years ago)

Author:

Andreas Steenpass <steenpass@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

4cda398594e14a9c3953996550f1d55f247252fc

Parents:

c8e7d6300daa125bcf43fb3a933021818d51256a

git-author:

Andreas Steenpass <steenpass@mathematik.uni-kl.de>2014-02-25 10:35:12+01:00

git-committer:

Andreas Steenpass <steenpass@mathematik.uni-kl.de>2014-02-25 10:39:48+01:00

Message:

fix: do not change sign of residual form in realclassify.lib
(cherry picked from commit 3ac9114362c0eb5bc8d012d4a95b6bc92a7bc2ac)

Signed-off-by: Andreas Steenpass <steenpass@mathematik.uni-kl.de>

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));