Changeset d92713 in git for Singular/LIB/primdec.lib

Timestamp:

Mar 18, 2009, 3:17:33 PM (14 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

3ea5d2ffbbc873513a856cebb58c72fc8cceab6d

Parents:

f6c7c9bc43ac7f628ca2111dce707bc4d2039eac

Message:

*hannes:decomp.,3) again


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

File:

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

Singular/LIB/primdec.lib

@@ -1 +1 @@
 ///////////////////////////////////////////////////////////////////////////////
-version="$Id: primdec.lib,v 1.144 2009-03-17 17:24:29 Singular Exp $";
+version="$Id: primdec.lib,v 1.145 2009-03-18 14:17:33 Singular Exp $";
 category="Commutative Algebra";
 info="
@@ -2764 +2764 @@
         l[1]=maxideal(1);
         l[2]=maxideal(1);
-        if (abspri) { return(prepare_absprimdec(l));}
         return(l);
       }
-      if (abspri) { return(prepare_absprimdec(primary));}
       return(primary);
     }
@@ -3659 +3657 @@
     primary=cleanPrimary(primary);
   }
+  if (abspri && (typeof(primary[1][1])=="poly"))
+  { return(prepare_absprimdec(primary));}
   return(primary);
 }