Changeset 8ef575 in git for Singular/LIB/primdec.lib

Timestamp:

Jun 9, 1999, 12:48:03 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

b6484cbfcf631058514ac35b823e8eeaccdb951d

Parents:

22c0fc902278c45a095c691266209a44878dfef8

Message:

*hannes/pfister: fixes for small characteristics


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

File:

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

Singular/LIB/primdec.lib

@@ -1 @@
-// $Id: primdec.lib,v 1.33 1999-06-09 09:49:47 Singular Exp $
+// $Id: primdec.lib,v 1.34 1999-06-09 10:48:03 Singular Exp $
 ////////////////////////////////////////////////////////////////////////////////
 // primdec.lib                                                                //
@@ -11 +11 @@
 ////////////////////////////////////////////////////////////////////////////////
 
-version="$Id: primdec.lib,v 1.33 1999-06-09 09:49:47 Singular Exp $";
+version="$Id: primdec.lib,v 1.34 1999-06-09 10:48:03 Singular Exp $";
 info="
 LIBRARY: primdec.lib: PROCEDURE FOR PRIMARY DECOMPOSITION
@@ -4115 +4115 @@
 }
 ///////////////////////////////////////////////////////////////////////////////
-proc minAssGTZ(ideal i)
-"USAGE:  minAssGTZ(i); i ideal
-RETURN:  list = the minimal associated prime ideals of i
-NOTE:    designed for characteristic 0, works also in char k >> 0,
-         may result in an infinite loop in small characteristic
-EXAMPLE: example minAssGTZ; shows an example
-"
-{
-   return(minAssPrimes(i,1));
-}
-example
-{ "EXAMPLE:";  echo = 2;
-   ring  r = 32003,(x,y,z),dp;
-   poly  p = z2+1;
-   poly  q = z4+2;
-EXAMPLE: example minAssChar; shows an example
-"
-
-{
-   return(min_ass_prim_charsets(i,1));
-}
-example
-{ "EXAMPLE:";  echo = 2;
-   ring  r = 32003,(x,y,z),dp;
-   poly  p = z2+1;
-   poly  q = z4+2;
-   ideal i = p^2*q^3,(y-z3)^3,(x-yz+z4)^4;
-   list pr= minAssChar(i);
-   pr;
-}
-
-///////////////////////////////////////////////////////////////////////////////
 proc equiRadical(ideal i)
 "USAGE:  equiRadical(i); i ideal