Changeset 333b889 in git for Singular/LIB/primdec.lib

Timestamp:

Mar 29, 2000, 5:26:52 PM (24 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

b583ae9d01fefeb8ac48ed37894cdabf6e905260

Parents:

8fbf637e134a505ed0c8bd77182881f7867d1d01

Message:

*hannes: fixed primdecSY(ideal(1));


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

File:

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

Singular/LIB/primdec.lib

@@ -1 @@
-// $Id: primdec.lib,v 1.53 2000-01-26 11:43:17 obachman Exp $
+// $Id: primdec.lib,v 1.54 2000-03-29 15:26:52 Singular Exp $
 ///////////////////////////////////////////////////////////////////////////////
 // primdec.lib                                                               //
@@ -11 +11 @@
 ///////////////////////////////////////////////////////////////////////////////
 
-version="$Id: primdec.lib,v 1.53 2000-01-26 11:43:17 obachman Exp $";
+version="$Id: primdec.lib,v 1.54 2000-03-29 15:26:52 Singular Exp $";
 info="
 LIBRARY: primdec.lib   PROCEDURES FOR PRIMARY DECOMPOSITION
@@ -3297 +3297 @@
    {
       option(notWarnSB);
-    }
+   }
   ideal H=1; // The intersection of the primary components
   list U;    // the leaves of the decomposition tree, i.e.,
@@ -3325 +3325 @@
                 //    the empty list otherwise
   ideal SI=std(I);
+  if(SI[1]==1)  // primdecSY(ideal(1))
+  {
+    return(list());
+  }
   int ncolsSI=ncols(SI);
   int ncolsH=1;