Changeset aadd442 in git for libfac/factor/Factor.cc
- Timestamp:
- Jan 25, 2008, 3:19:40 PM (16 years ago)
- Branches:
- (u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')
- Children:
- bfe72e2bcb7632d5cf79dc5196713a5fba2bafb5
- Parents:
- 6bbc8e2c339d1928744e2f67b390389567caa462
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
libfac/factor/Factor.cc
r6bbc8e raadd442 1 1 /* Copyright 1996 Michael Messollen. All rights reserved. */ 2 2 /////////////////////////////////////////////////////////////////////////////// 3 static char * rcsid = "$Id: Factor.cc,v 1. 39 2008-01-22 09:51:37Singular Exp $ ";3 static char * rcsid = "$Id: Factor.cc,v 1.40 2008-01-25 14:19:40 Singular Exp $ "; 4 4 static char * errmsg = "\nYou found a bug!\nPlease inform (Michael Messollen) michael@math.uni-sb.de \nPlease include above information and your input (the ideal/polynomial and characteristic) in your bug-report.\nThank you."; 5 5 /////////////////////////////////////////////////////////////////////////////// … … 363 363 if ( degree(g) == deg ) // degrees match 364 364 if ( level(compress(g,m)) == (vars_left) ) // exactly one variable less 365 if ( SqrFreeTest(g,1) ) // poly is sqrfree365 if ( isSqrFree(g) ) // poly is sqrfree 366 366 if ( gcd(g,g.deriv()).isOne() ) // Discriminante != 0 367 367 return 1; … … 924 924 // (If gcd is fast...) 925 925 /////// 926 // if ( ! SqrFreeTest(F) ){926 // if ( ! isSqrFree(F) ){ 927 927 if ( ! is_SqrFree ) 928 928 { … … 1223 1223 // (If gcd is fast...) 1224 1224 /////// 1225 // if ( ! SqrFreeTest(F) ){1225 // if ( ! isSqrFree(F) ){ 1226 1226 if ( ! is_SqrFree ) 1227 1227 { … … 1329 1329 /* 1330 1330 $Log: not supported by cvs2svn $ 1331 Revision 1.39 2008/01/22 09:51:37 Singular 1332 *hannes: sqrFree/InternalSqrFree -> factory 1333 1331 1334 Revision 1.38 2008/01/07 13:34:56 Singular 1332 1335 *hannes: omse optiomzations(isOne)
Note: See TracChangeset
for help on using the changeset viewer.