Changeset 8c4d79 in git

Timestamp:

Jul 31, 1998, 7:42:54 PM (26 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

81da6babf16d8b6dcb49f991f1a18a9727cced73

Parents:

9c935cb36b6c027f643525b80ad9895107ae13e6

Message:

*** empty log message ***


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

File:

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

Singular/LIB/primdec.lib

@@ -1 @@
-// $Id: primdec.lib,v 1.23 1998-07-14 08:50:04 pfister Exp $
+// $Id: primdec.lib,v 1.24 1998-07-31 17:42:18 Singular Exp $
 ////////////////////////////////////////////////////////////////////////////////
 // primdec.lib                                                                //
@@ -11 +11 @@
 ////////////////////////////////////////////////////////////////////////////////
 
-version="$Id: primdec.lib,v 1.23 1998-07-14 08:50:04 pfister Exp $";
+version="$Id: primdec.lib,v 1.24 1998-07-31 17:42:18 Singular Exp $";
 info="
 LIBRARY: primdec.lib: PROCEDURE FOR PRIMARY DECOMPOSITION
@@ -2772 +2772 @@
          if(homog(@j)==1)
          {
-            @mu=mstd(@j);   
+            @mu=mstd(@j);
          }
          else
@@ -4211 +4211 @@
       setring @Q;
       ideal i1=fetch(@P,re);
-      return(i1);      
-   }
-   if(dim(re)+size(i)==nvars(basering))
+      return(i1);
+   }
+   if((dim(re)+size(i)==nvars(basering))&&(nvars(basering)<=6)&&(size(i)<=6))
    {
 //hier spaeter SB uebergeben
-     i=radicalEHV(i,ideal(1),1);  
+     i=radicalEHV(i,ideal(1),1);
      setring @Q;
      ideal i1=fetch(@P,i);