Changeset d5efb00 in git

Timestamp:

Nov 17, 1999, 2:51:58 PM (24 years ago)

Author:

Gerhard Pfister <pfister@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

68297e89c8c24c38656fd40ec740a03c2fdff568

Parents:

592ae9a7834c56fa168ab89655671281f17a9333

Message:

bug im radicalKL (Benutzung der Hilbertfunktion) gefixed


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

File:

• Singular/LIB/primdec.lib (modified) (6 diffs)

Singular/LIB/primdec.lib

@@ -1 @@
-// $Id: primdec.lib,v 1.49 1999-10-21 07:23:43 obachman Exp $
+// $Id: primdec.lib,v 1.50 1999-11-17 13:51:58 pfister Exp $
 ///////////////////////////////////////////////////////////////////////////////
 // primdec.lib                                                               //
@@ -11 +11 @@
 ///////////////////////////////////////////////////////////////////////////////
 
-version="$Id: primdec.lib,v 1.49 1999-10-21 07:23:43 obachman Exp $";
+version="$Id: primdec.lib,v 1.50 1999-11-17 13:51:58 pfister Exp $";
 info="
 LIBRARY: primdec.lib:   PROCEDURES FOR PRIMARY DECOMPOSITION
@@ -2555 +2555 @@
    string @va,quotring;
    int  homo=homog(i);
-   if((find(ordstr(basering),"w")!=0)||(find(ordstr(basering),"W")!=0))
+   if((find(ordstr(basering),"w")!=0)||(find(ordstr(basering),"W")!=0)||(find(ordstr(basering),"a")!=0))
    {
       homo=0;
@@ -2701 +2701 @@
      //K(var(nnpr+1),..,var(nva))[..the rest..]
      //------------------------------------------------------------------------
-
       quotring=prepareQuotientring(nvars(basering)-indep[@m][3]);
 
@@ -4185 +4184 @@
    option(redSB);
    list qr=simplifyIdeal(i);
+
    map phi=@P,qr[2];
    i=qr[1];
 
    list pr=facstd(i);
-
    if(size(pr)==1)
    {
@@ -4210 +4209 @@
    option(noredSB);
    int s=size(pr);
-
    if(s==1)
    {