Changeset da49bc in git for libpolys/polys/nc/gring.cc
- Timestamp:
- Jul 5, 2011, 11:31:10 AM (12 years ago)
- Branches:
- (u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')
- Children:
- 2d3091c7bb239cd4787574560ab475ac88621da7
- Parents:
- e5d267f9d348da407e363f52fded181b04542680
- git-author:
- Hans Schoenemann <hannes@mathematik.uni-kl.de>2011-07-05 11:31:10+02:00
- git-committer:
- Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 12:39:11+01:00
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
libpolys/polys/nc/gring.cc
re5d267 rda49bc 1430 1430 /* pSetComp(m,r)=0? */ 1431 1431 poly N = nc_mm_Mult_p(m, p_Head(p1,r), r); 1432 number C = p_GetCoeff(N, r);1433 number cF = p_GetCoeff(p2, r);1432 number C = p_GetCoeff(N, r); 1433 number cF = p_GetCoeff(p2, r); 1434 1434 /* GCD stuff */ 1435 1435 number cG = n_Gcd(C, cF, r); … … 1463 1463 n_Delete(&C,r); 1464 1464 return(out); 1465 1466 1465 } 1467 1466 … … 1491 1490 poly N = nc_mm_Mult_p(m, p_Head(p1,r), r); 1492 1491 1493 number C = 1494 number cF = 1492 number C = p_GetCoeff(N, r); 1493 number cF = p_GetCoeff(p2, r); 1495 1494 1496 1495 /* GCD stuff */ … … 1499 1498 if (!n_IsOne(cG, r)) 1500 1499 { 1501 cF = n_Div(cF, cG, r); n_Normalize(cF, r);1502 C = n_Div(C, cG, r); n_Normalize(C, r);1500 cF = n_Div(cF, cG, r); n_Normalize(cF, r); 1501 C = n_Div(C, cG, r); n_Normalize(C, r); 1503 1502 } 1504 1503 else … … 1584 1583 if (!n_IsOne(C,r)) 1585 1584 { 1586 C1=n_Div(C1,C, r);n_Normalize(C1,r);1587 C2=n_Div(C2,C, r);n_Normalize(C1,r);1585 C1=n_Div(C1,C, r);n_Normalize(C1,r); 1586 C2=n_Div(C2,C, r);n_Normalize(C2,r); 1588 1587 } 1589 1588 else 1590 1589 { 1591 C1=n_Copy(C1, r);1592 C2=n_Copy(C2, r);1590 C1=n_Copy(C1, r); 1591 C2=n_Copy(C2, r); 1593 1592 } 1594 1593 nDelete(&C); … … 1775 1774 if (!n_IsOne(C, r)) // if C != 1 1776 1775 { 1777 C1=n_Div(C1, C, r); // C1 = C1 / C 1778 n_Normalize(C1,r); 1779 C2=n_Div(C2, C, r); // C2 = C2 / C 1780 n_Normalize(C2,r); 1776 C1=n_Div(C1, C, r);n_Normalize(C1,r); // C1 = C1 / C 1777 C2=n_Div(C2, C, r);n_Normalize(C2,r); // C2 = C2 / C 1781 1778 } 1782 1779 else
Note: See TracChangeset
for help on using the changeset viewer.