Changeset 098784 in git for libpolys/polys/nc/old.gring.cc
- Timestamp:
- Feb 7, 2019, 2:53:21 PM (5 years ago)
- Branches:
- (u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
- Children:
- d0cd21e86cf844ac74991fb599f0b73de5308e93fcdeeaee8c503399a44c025a273cfa24a3b97bd9
- Parents:
- ab771712f9cf6f304a7dbc3fd948527f91510bb4aa4d311381250221eea57c0b1aa32b5f6c7a1185
- git-author:
- Hans Schoenemann <hannes@mathematik.uni-kl.de>2019-02-07 14:53:21+01:00
- git-committer:
- GitHub <noreply@github.com>2019-02-07 14:53:21+01:00
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
libpolys/polys/nc/old.gring.cc
rab7717 r098784 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.