Changeset 90753b in git

Timestamp:

Jan 25, 2017, 9:38:05 AM (6 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

cd6f8d22526e61cffd63354b5f245ce64bcd288b

Parents:

aacc4afb6628a4bd0bdffdd5f1f5db0d0f154a28

Message:

fix: nesting too deep by G. Pfister in sagbiNF

File:

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

Singular/LIB/classify_aeq.lib

@@ -1322 +1322 @@
 //computes the Sagbi normal form
    list L=1;
+   poly re;
    map psi;
    f=jet(f,b);
    if(f==0){return(f);}
-   while((f!=0) && (L[1]!=0))
+   while(f!=0)
    {
      L= algebra_containment(lead(f),lead(I),1);
@@ -1335 +1336 @@
         kill S;
      }
-   }
-   return (lead(f)+sagbiNF(f-lead(f),I,b));
+     else
+     {
+        re=re+lead(f);
+        f=f-lead(f);
+     }
+   }
+   return (re);
 }