Changeset bb3a4d in git for libpolys/polys/nc/old.gring.cc
- Timestamp:
- Feb 7, 2019, 10:36:57 PM (5 years ago)
- Branches:
- (u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')
- Children:
- 3dc5f8f4b2193d8650f5715d2d52f6af3b920cb5
- Parents:
- ad62229092fc8ebe6427ffe920f831abe60d4619b3e931b4c9148576d127f3b957900899fa358767
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
libpolys/polys/nc/old.gring.cc
rad6222 rbb3a4d 1655 1655 1656 1656 /* zero exponents !? */ 1657 VARpoly M1 = nc_mm_Mult_p(m1,p_Head(p1,r),r); // M1 = m1 * lt(p1)1658 VARpoly M2 = nc_mm_Mult_p(m2,p_Head(p2,r),r); // M2 = m2 * lt(p2)1657 poly M1 = nc_mm_Mult_p(m1,p_Head(p1,r),r); // M1 = m1 * lt(p1) 1658 poly M2 = nc_mm_Mult_p(m2,p_Head(p2,r),r); // M2 = m2 * lt(p2) 1659 1659 1660 1660 #ifdef PDEBUG … … 1688 1688 } 1689 1689 1690 VARnumber C1 = p_GetCoeff(M1,r); // C1 = lc(M1)1691 VARnumber C2 = p_GetCoeff(M2,r); // C2 = lc(M2)1690 number C1 = p_GetCoeff(M1,r); // C1 = lc(M1) 1691 number C2 = p_GetCoeff(M2,r); // C2 = lc(M2) 1692 1692 1693 1693 /* GCD stuff */ 1694 VARnumber C = n_SubringGcd(C1, C2, r->cf); // C = gcd(C1, C2)1694 number C = n_SubringGcd(C1, C2, r->cf); // C = gcd(C1, C2) 1695 1695 1696 1696 if (!n_IsOne(C, r->cf)) // if C != 1 … … 1851 1851 #endif 1852 1852 /* pSetComp(m,r)=0? */ 1853 VARpoly M = nc_mm_Mult_pp(m, p1,r);1854 VARnumber C=p_GetCoeff(M,r);1853 poly M = nc_mm_Mult_pp(m, p1,r); 1854 number C=p_GetCoeff(M,r); 1855 1855 M=p_Add_q(M,nc_mm_Mult_p(m,p_LmDeleteAndNext(p_Copy(p1,r),r),r),r); // _pp? 1856 1856 q=__p_Mult_nn(q,C,r); 1857 VARnumber MinusOne=n_Init(-1,r->cf);1857 number MinusOne=n_Init(-1,r->cf); 1858 1858 if (!n_Equal(cQ,MinusOne,r->cf)) 1859 1859 {
Note: See TracChangeset
for help on using the changeset viewer.