Changeset f92547 in git for kernel/kstd2.cc
- Timestamp:
- Mar 20, 2006, 9:33:57 PM (18 years ago)
- Branches:
- (u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
- Children:
- 9a7b03d261325d1fc155f5625fe1867b6ef6432c
- Parents:
- f7cbb7696d6c24ac0b31ebc09c768d0a3df1a7a9
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
kernel/kstd2.cc
rf7cbb7 rf92547 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: kstd2.cc,v 1.1 3 2006-03-10 12:53:19 SingularExp $ */4 /* $Id: kstd2.cc,v 1.14 2006-03-20 20:33:56 wienand Exp $ */ 5 5 /* 6 6 * ABSTRACT - Kernel: alg. of Buchberger … … 266 266 else 267 267 { 268 tmp3 = p_ ISet((long) tmp1, tailRing);268 tmp3 = p_NSet(nCopy(tmp1), tailRing); 269 269 zeroPoly = p_Mult_q(zeroPoly, p_Add_q(tmp3, tmp2, tailRing), tailRing); 270 270 } … … 273 273 p_Setm(lead_mult, tailRing); 274 274 zeroPoly = p_Mult_mm(zeroPoly, lead_mult, tailRing); 275 tmp2 = p_ ISet((long) pGetCoeff(zeroPoly), leadRing);275 tmp2 = p_NSet(nCopy(pGetCoeff(zeroPoly)), leadRing); 276 276 for (int i = 1; i <= leadRing->N; i++) { 277 277 pSetExp(tmp2, i, p_GetExp(zeroPoly, i, tailRing)); … … 993 993 // enter into S, L, and T 994 994 enterT(strat->P, strat); 995 enterpairs(strat->P.p,strat->sl,strat->P.ecart,pos,strat, strat->tl); 995 #ifdef HAVE_RING2TOM 996 if (currRing->cring == 1) 997 superenterpairs(strat->P.p,strat->sl,strat->P.ecart,pos,strat, strat->tl); 998 else 999 #endif 1000 enterpairs(strat->P.p,strat->sl,strat->P.ecart,pos,strat, strat->tl); 996 1001 // posInS only depends on the leading term 997 1002 strat->enterS(strat->P, pos, strat, strat->tl);
Note: See TracChangeset
for help on using the changeset viewer.