Changeset 754cf99 in git


Ignore:
Timestamp:
May 19, 2000, 1:44:11 PM (24 years ago)
Author:
Gerhard Pfister <pfister@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b21a664aa22dc6e196223af8a74ad4885e83547c')
Children:
1bbaa1df8eb51e5fe6af0dd98bcbb3d09cfbf68f
Parents:
2e785966018c9a0fa6c4029dcf0b765636f953f5
Message:
einen kleinen Trick in zerodec eingebaut


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

Legend:

Unmodified
Added
Removed
  • Singular/LIB/primdec.lib

    r2e7859 r754cf99  
    1 // $Id: primdec.lib,v 1.68 2000-05-19 10:24:33 pfister Exp $
     1// $Id: primdec.lib,v 1.69 2000-05-19 11:44:11 pfister Exp $
    22///////////////////////////////////////////////////////////////////////////////
    33// primdec.lib                                                               //
     
    1111///////////////////////////////////////////////////////////////////////////////
    1212
    13 version="$Id: primdec.lib,v 1.68 2000-05-19 10:24:33 pfister Exp $";
     13version="$Id: primdec.lib,v 1.69 2000-05-19 11:44:11 pfister Exp $";
    1414info="
    1515LIBRARY: primdec.lib   PROCEDURES FOR PRIMARY DECOMPOSITION
     
    46214621   {
    46224622     list fac=factorize(charpol);
     4623     int f=size(fac[1]);
    46234624     setring R;
     4625     if(f==2)
     4626     {
     4627       re=I;
     4628       return(re);
     4629     }
    46244630     map psi=P,p;
    46254631     list rfac=psi(fac);
    4626 
    46274632     option(redSB);
    4628      for(j=2;j<=size(rfac[1]);j++)
     4633     for(j=2;j<=f;j++)
    46294634     {
    46304635        re[j-1]=interred(I+ideal(rfac[1][j]^rfac[2][j]));
Note: See TracChangeset for help on using the changeset viewer.