Changeset cfb87a8 in git
- Timestamp:
- Jun 15, 2006, 7:56:29 PM (18 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- d82bad198c6a0dbf70e9d1761007a66414ed9729
- Parents:
- 4a38bd8f88228c80374066df9e2be718cca09a25
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/center.lib
r4a38bd rcfb87a8 1 1 /////////////////////////////////////////////////////////////////////////////// 2 version="$Id: center.lib,v 1.2 1 2006-05-11 19:16:21motsak Exp $"2 version="$Id: center.lib,v 1.22 2006-06-15 17:56:29 motsak Exp $" 3 3 category="Noncommutative" 4 4 info=" … … 163 163 // "normal" polynomial form == no denominators, gcd of coeffs is a unit 164 164 l = cleardenom( l ); 165 if ( deg(p) > 0 )165 if ( maxdegInt(l) > 0 ) 166 166 { 167 167 l = cleardenom( l / leadcoef(l) ); … … 177 177 178 178 // Now make polynomials look nice: 179 if ( deg(p) > 0 ) // throw away scalars!179 if ( maxdegInt(p) > 0 ) // throw away scalars! 180 180 { 181 181 // "normal" polynomial form == no denominators, gcd of coeffs is a unit … … 1058 1058 int m = (k > 0); 1059 1059 1060 int @MinDeg = 1; // starting guess for Maximal Bounding Degree, 61061 int @Delta = 1; // increment of it, 41060 int @MinDeg = 6; // starting guess for Maximal Bounding Degree, 6 1061 int @Delta = 4; // increment of it, 4 1062 1062 1063 1063 if( m and (D <= 0) )
Note: See TracChangeset
for help on using the changeset viewer.