Changeset 971ba6f in git for Singular/LIB/primdec.lib

Timestamp:

Mar 15, 1999, 1:18:28 PM (25 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '873fc1222e995d7cb33f79d8f1792ce418c8c72c')

Children:

70fa9a9325e89b413a16b1300d6f3dc1b470f9b2

Parents:

10bedae97ab8ae164e53bfd61ac6388d443bcaa9

Message:

*pfister: added warning about small char


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

File:

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

Singular/LIB/primdec.lib

@@ -1 @@
-// $Id: primdec.lib,v 1.29 1998-11-04 14:39:44 Singular Exp $
+// $Id: primdec.lib,v 1.30 1999-03-15 12:18:28 Singular Exp $
 ////////////////////////////////////////////////////////////////////////////////
 // primdec.lib                                                                //
@@ -11 +11 @@
 ////////////////////////////////////////////////////////////////////////////////
 
-version="$Id: primdec.lib,v 1.29 1998-11-04 14:39:44 Singular Exp $";
+version="$Id: primdec.lib,v 1.30 1999-03-15 12:18:28 Singular Exp $";
 info="
 LIBRARY: primdec.lib: PROCEDURE FOR PRIMARY DECOMPOSITION
@@ -487 +487 @@
       i[m]=poly(e)^e*leadcoef(i[m])^(e-1)*i[m];
 
+      if(i[m]==0)
+      {
+         "Warning: The characteristic ist too small to use";
+         "the Algorithm of Gianni/Trager/Zacharias.";
+         "The result may be wrong.";
+         "Try primdecSY";
+      }
       if (reduce(i[m]-t^e,prm,1) !=0)
       {
@@ -2128 +2135 @@
      for(@n=1;@n<=size(uprimary);@n++)
      {
+        uprimary[@n]=interred(uprimary[@n]); // temporary fix
         hpl=0;
         for(@n1=1;@n1<=size(uprimary[@n]);@n1++)
@@ -2135 +2143 @@
         saturn[@n]=hpl;
      }
+
      //--------------------------------------------------------------------
      //we leave  the quotientring   K(var(nnp+1),..,var(nva))[..the rest..]
@@ -4192 +4201 @@
    for(j=1;j<=s;j++)
    {
-      if(pos[j]==0)
+      if(pos[s+1-j]==0)
       {
          re=intersect(re,radicalEHV(pr[s+1-j],re,il));
       }
    }
+   re=interred(re);
    return(phi(re));
 }