Changeset 95a42a2 in git for Singular/LIB/freegb.lib

Timestamp:

Mar 16, 2018, 6:11:32 PM (6 years ago)

Author:

Karim Abou Zeid <karim23697@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

0be0394f8808f23d95c9df90daf22918ecc53e49

Parents:

3ea833075e746ca13c85f94a5894c0c7fd4e6a56

Message:

Fix lpNF bug where degbound must be larger than neccessary

File:

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

Singular/LIB/freegb.lib

@@ -3481 +3481 @@
 
 static proc getlpCoeffs(poly q, poly p)
-"
-"
 {list R; poly m; intvec cq,t,lv,rv,bla;
  int n = attrib(basering,"lV"); int d = attrib(basering,"uptodeg");
@@ -3505 +3503 @@
 "
 {poly l,r,qt; int i;
- g = shiftPoly(g,s);
- list K = getlpCoeffs(lead(g),lead(p));
+ list K = getlpCoeffs(lead(shiftPoly(g,s)), lead(p));
  l = K[1]; r = K[2];
  kill K;
  for (i = 1; i <= size(g); i++)
- {qt = qt + lpMult(lpMult(l,g[i]),r);
+ {
+   qt = qt + lpMult(lpMult(l,g[i]),r);
  }
  return(p - leadcoef(p)*normalize(qt));