Changeset e38f01 in git
- Timestamp:
- Nov 28, 2005, 12:12:42 PM (18 years ago)
- Branches:
- (u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
- Children:
- bf95b50b0923cfbe464293d4eadb0fcc3714d309
- Parents:
- 35b1d70e12961317659d8fbf4c078c4e4ad25400
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
factory/cf_gcd.cc
r35b1d7 re38f01 1 1 /* emacs edit mode for this file is -*- C++ -*- */ 2 /* $Id: cf_gcd.cc,v 1.3 1 2005-10-21 09:48:13Singular Exp $ */2 /* $Id: cf_gcd.cc,v 1.32 2005-11-28 11:12:42 Singular Exp $ */ 3 3 4 4 #include <config.h> … … 598 598 Off( SW_RATIONAL ); 599 599 l = gcd_poly( F, G, true ); 600 //if ((F%l!=0) || (G % l !=0))601 //l = gcd_poly( F, G, true );600 if ((!divides(l,F) || (!divides(l,G))) 601 l = gcd_poly( F, G, true ); 602 602 On( SW_RATIONAL ); 603 603 if ( l.lc().sign() < 0 ) … … 608 608 else { 609 609 CanonicalForm d = gcd_poly( f, g, getCharacteristic()==0 ); 610 if (( f%d!=0) || (g % d !=0))610 if ((!divides(l,F) || (!divides(l,G))) 611 611 d = gcd_poly( f, g, getCharacteristic()==0 ); 612 612 if ( d.lc().sign() < 0 )
Note: See TracChangeset
for help on using the changeset viewer.