Changeset 741c669 in git
- Timestamp:
- Mar 18, 2008, 4:51:41 PM (15 years ago)
- Branches:
- (u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')
- Children:
- bdefb2801c2a630fe9bc42a5f5c7762b7a410707
- Parents:
- 91c7192ba9ba1fae4324fc07376c3bf1204bb3a8
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/rootsmr.lib
r91c7192 r741c669 1 // $Id: rootsmr.lib,v 1. 3 2006-12-18 18:36:24Singular Exp $1 // $Id: rootsmr.lib,v 1.4 2008-03-18 15:51:41 Singular Exp $ 2 2 // E. Tobis 12.Nov.2004, April 2004 3 3 // last change 7. May 2005 (G.-M. Greuel) … … 507 507 { 508 508 int pr = printlevel - voice + 2; 509 poly sqr free;509 poly sqr_free; 510 510 int correct; 511 511 poly variable; … … 516 516 517 517 variable = isuni(p); 518 sqr free = p/gcd(p,diff(p,variable));519 correct = (mat_rk(matbil(1,b,i)) == deg(sqr free));518 sqr_free = p/gcd(p,diff(p,variable)); 519 correct = (mat_rk(matbil(1,b,i)) == deg(sqr_free)); 520 520 521 521 if (correct) {
Note: See TracChangeset
for help on using the changeset viewer.