Changeset 0bcebab in git

Timestamp:

Jun 5, 2000, 1:22:47 PM (24 years ago)

Author:

Gerhard Pfister <pfister@…>

Branches:

(u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')

Children:

4a0a5d596d166bd7225fe54833032e8b60423bba

Parents:

c11796f1aee403c4330add082f13676a92e9b2bb

Message:

bug in decomp behoben


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

File:

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

Singular/LIB/primdec.lib

@@ -1 @@
-// $Id: primdec.lib,v 1.75 2000-05-30 12:31:44 pfister Exp $
+// $Id: primdec.lib,v 1.76 2000-06-05 11:22:47 pfister Exp $
 ///////////////////////////////////////////////////////////////////////////////
 // primdec.lib                                                               //
@@ -11 +11 @@
 ///////////////////////////////////////////////////////////////////////////////
 
-version="$Id: primdec.lib,v 1.75 2000-05-30 12:31:44 pfister Exp $";
+version="$Id: primdec.lib,v 1.76 2000-06-05 11:22:47 pfister Exp $";
 info="
 LIBRARY: primdec.lib   PROCEDURES FOR PRIMARY DECOMPOSITION
@@ -31 +31 @@
   equidimMaxEHV(I); equidimensional locus of I (Algorithm of Eisenbud,
                     Huneke and Vasconcelos)
+  zerodec(I);       zerodimensional decomposition for characteristic zero
 REMARK:
 These procedures are implemented to be used in characteristic 0.
@@ -823 +824 @@
      return(primary);
   }
-
   j=interred(j);
+
   attrib(j,"isSB",1);
   if(vdim(j)==deg(j[1]))
@@ -2202 +2203 @@
           for(@n=1;@n<=size(fried);@n++)
           {
-             if(lead(fried[@n])==var(@k))
+             if(leadmonom(fried[@n])==var(@k))
              {
                 @n1=1;