Changeset 49a289 in git

Timestamp:

Feb 14, 2018, 3:09:59 AM (6 years ago)

Author:

Janko Boehm <boehm@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

568369984da1bcf62b4b7db1cca0a61ce1c17060

Parents:

8dc1b399857b3ad28eefa53a41efd283cae32ce2

Message:

Fix making polynomial monic

File:

• Singular/LIB/paraplanecurves.lib (modified) (2 diffs)

Singular/LIB/paraplanecurves.lib

@@ -554 +554 @@
        else
          {
-           f = subst(f,var(1),var(1)+var(2));
+           number cc=1;
+           int tst=0;
+           poly ff;
+           while (tst==0){
+              ff = subst(f,var(1),var(1)+cc*var(2));
+              tst=((size(coeffs(ff,var(2)))-1) == deg(ff));
+              if (tst==0){cc=cc+1;}
+           }
+           f = subst(f,var(1),var(1)+cc*var(2));
          }
     }
@@ -566 +574 @@
        if(bb2x)
          {
-           map perm = basering, var(2), var(1), var(3);
+           perm = basering, var(2), var(1), var(3);
            AI = mstd(perm(AI))[2];
          }
        else
          {
-           AI = mstd(substitute(AI,var(1),var(1)-var(2)))[2];
+           AI = mstd(substitute(AI,var(1),var(1)-cc*var(2)))[2];
          }