Changeset 971ba6f in git


Ignore:
Timestamp:
Mar 15, 1999, 1:18:28 PM (25 years ago)
Author:
Hans Schönemann <hannes@…>
Branches:
(u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
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:
1 edited

Legend:

Unmodified
Added
Removed
  • Singular/LIB/primdec.lib

    r10bedae r971ba6f  
    1 // $Id: primdec.lib,v 1.29 1998-11-04 14:39:44 Singular Exp $
     1// $Id: primdec.lib,v 1.30 1999-03-15 12:18:28 Singular Exp $
    22////////////////////////////////////////////////////////////////////////////////
    33// primdec.lib                                                                //
     
    1111////////////////////////////////////////////////////////////////////////////////
    1212
    13 version="$Id: primdec.lib,v 1.29 1998-11-04 14:39:44 Singular Exp $";
     13version="$Id: primdec.lib,v 1.30 1999-03-15 12:18:28 Singular Exp $";
    1414info="
    1515LIBRARY: primdec.lib: PROCEDURE FOR PRIMARY DECOMPOSITION
     
    487487      i[m]=poly(e)^e*leadcoef(i[m])^(e-1)*i[m];
    488488
     489      if(i[m]==0)
     490      {
     491         "Warning: The characteristic ist too small to use";
     492         "the Algorithm of Gianni/Trager/Zacharias.";
     493         "The result may be wrong.";
     494         "Try primdecSY";
     495      }
    489496      if (reduce(i[m]-t^e,prm,1) !=0)
    490497      {
     
    21282135     for(@n=1;@n<=size(uprimary);@n++)
    21292136     {
     2137        uprimary[@n]=interred(uprimary[@n]); // temporary fix
    21302138        hpl=0;
    21312139        for(@n1=1;@n1<=size(uprimary[@n]);@n1++)
     
    21352143        saturn[@n]=hpl;
    21362144     }
     2145
    21372146     //--------------------------------------------------------------------
    21382147     //we leave  the quotientring   K(var(nnp+1),..,var(nva))[..the rest..]
     
    41924201   for(j=1;j<=s;j++)
    41934202   {
    4194       if(pos[j]==0)
     4203      if(pos[s+1-j]==0)
    41954204      {
    41964205         re=intersect(re,radicalEHV(pr[s+1-j],re,il));
    41974206      }
    41984207   }
     4208   re=interred(re);
    41994209   return(phi(re));
    42004210}
Note: See TracChangeset for help on using the changeset viewer.