Changeset 911fd6 in git

Timestamp:

Oct 24, 2008, 2:16:59 PM (15 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

e866b065c87964cdd519dce1bd592c5e865f116d

Parents:

24f6cd90f7b9f99de4348fb8924de54d3986e660

Message:

*pfister: bug reported by Arnaud Bodin


git-svn-id: file:///usr/local/Singular/svn/trunk@11154 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/LIB/algebra.lib (modified) (3 diffs)

Singular/LIB/algebra.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: algebra.lib,v 1.17 2008-10-06 17:04:26 Singular Exp $";
+version="$Id: algebra.lib,v 1.18 2008-10-24 12:16:59 Singular Exp $";
 category="Commutative Algebra";
 info="
@@ -265 +265 @@
   //the intersection of ideal nett=(p-y(0),I[1]-y(1),...)
   //with the ring k[y(0),...,y(n)] is computed, the result is ker
-   execute ("ring r1= ("+charstr(basering)+"),(x(1..n),y(0..z)),dp;");
+   execute ("ring r1= ("+charstr(basering)+"),(x(1..n),y(0..z)),lp;");
  //  execute ("ring r1= ("+charstr(basering)+"),(y(0..z),x(1..n)),dp;");
   execute ("minpoly=number("+mp+");");
@@ -279 +279 @@
   //-----------------
   ideal ker=eliminate(nett,product(va));
+  ker=std(ker);
   //---------- test wether y(0)-h(y(1),...,y(z)) is in ker --------------
   l[1]=0;