Changeset cfb87a8 in git


Ignore:
Timestamp:
Jun 15, 2006, 7:56:29 PM (18 years ago)
Author:
Motsak Oleksandr <motsak@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '648d28f488f6ff08f5607ff229b9ad9e4a5b93c2')
Children:
d82bad198c6a0dbf70e9d1761007a66414ed9729
Parents:
4a38bd8f88228c80374066df9e2be718cca09a25
Message:
*motsak: minor updates, bugfix for the case of variables with degree 0.


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

Legend:

Unmodified
Added
Removed
  • Singular/LIB/center.lib

    r4a38bd rcfb87a8  
    11///////////////////////////////////////////////////////////////////////////////
    2 version="$Id: center.lib,v 1.21 2006-05-11 19:16:21 motsak Exp $"
     2version="$Id: center.lib,v 1.22 2006-06-15 17:56:29 motsak Exp $"
    33category="Noncommutative"
    44info="
     
    163163      // "normal" polynomial form == no denominators, gcd of coeffs is a unit
    164164      l = cleardenom( l );
    165       if ( deg(p) > 0 )
     165      if ( maxdegInt(l) > 0 )
    166166        {
    167167          l = cleardenom( l / leadcoef(l) );
     
    177177       
    178178                // Now make polynomials look nice:
    179                 if ( deg(p) > 0 ) // throw away scalars!
     179                if ( maxdegInt(p) > 0 ) // throw away scalars!
    180180                  {
    181181                    // "normal" polynomial form == no denominators, gcd of coeffs is a unit
     
    10581058  int m = (k > 0);
    10591059       
    1060   int @MinDeg = 1; // starting guess for Maximal Bounding Degree, 6
    1061   int @Delta  = 1; // increment of it, 4
     1060  int @MinDeg = 6; // starting guess for Maximal Bounding Degree, 6
     1061  int @Delta  = 4; // increment of it, 4
    10621062       
    10631063  if( m and (D <= 0) )
Note: See TracChangeset for help on using the changeset viewer.