Changeset ebc602 in git for factory/cf_gcd.cc
- Timestamp:
- May 16, 2006, 3:43:19 PM (18 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- dbcf42a937f51948f4de74902429b68c1b54592b
- Parents:
- b8b01af0e7839f5203fa9378d74dad8732160032
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
factory/cf_gcd.cc
rb8b01a rebc602 1 1 /* emacs edit mode for this file is -*- C++ -*- */ 2 /* $Id: cf_gcd.cc,v 1.4 6 2006-05-08 12:24:04 pohlExp $ */2 /* $Id: cf_gcd.cc,v 1.47 2006-05-16 13:43:18 Singular Exp $ */ 3 3 4 4 #include <config.h> … … 270 270 // now balance D mod q 271 271 D = pp( balance( D, q ) ); 272 if ( divides( D, f ) &÷s( D, g ) )272 if ( fdivides( D, f ) && fdivides( D, g ) ) 273 273 return D * c; 274 274 else … … 620 620 else 621 621 { 622 if ( divides( f, g ) )622 if ( fdivides( f, g ) ) 623 623 return abs( f ); 624 else if ( divides( g, f ) )624 else if ( fdivides( g, f ) ) 625 625 return abs( g ); 626 626 if ( !( getCharacteristic() == 0 && isOn( SW_RATIONAL ) ) ) … … 628 628 CanonicalForm d; 629 629 do{ d = gcd_poly( f, g ); } 630 while ((! divides(d,f)) || (!divides(d,g)));630 while ((!fdivides(d,f)) || (!fdivides(d,g))); 631 631 return abs( d ); 632 632 } … … 641 641 Off( SW_RATIONAL ); 642 642 do { l = gcd_poly( F, G ); } 643 while ((! divides(l,F)) || (!divides(l,G)));643 while ((!fdivides(l,F)) || (!fdivides(l,G))); 644 644 On( SW_RATIONAL ); 645 645 return abs( l );
Note: See TracChangeset
for help on using the changeset viewer.