Changeset 19370c in git for kernel/gr_kstd2.cc
- Timestamp:
- Feb 7, 2007, 11:49:41 AM (16 years ago)
- Branches:
- (u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'f875bbaccd0831e36aaed09ff6adeb3eb45aeb94')
- Children:
- 89b59f6bb2e4c55ff6effd6ee652ae6444d424aa
- Parents:
- bccc3fcf764b040cb2f6573b1c8756d685b5eb0b
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
kernel/gr_kstd2.cc
rbccc3f r19370c 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: gr_kstd2.cc,v 1.1 2 2007-02-01 18:53:54Singular Exp $ */4 /* $Id: gr_kstd2.cc,v 1.13 2007-02-07 10:49:39 Singular Exp $ */ 5 5 /* 6 6 * ABSTRACT - Kernel: noncomm. alg. of Buchberger … … 76 76 wrp(strat->S[j]); 77 77 } 78 (*h).p = nc_ReduceS Poly(strat->S[j],(*h).p, currRing);78 (*h).p = nc_ReduceSpoly(strat->S[j],(*h).p, currRing); 79 79 //spSpolyRed(strat->T[j].p,(*h).p,strat->kNoether); 80 80 … … 179 179 } 180 180 /*- compute the s-polynomial -*/ 181 (*h).p = nc_ReduceS Poly(strat->S[j],(*h).p/*,strat->kNoether*/,currRing);181 (*h).p = nc_ReduceSpoly(strat->S[j],(*h).p,currRing); 182 182 if ((*h).p == NULL) 183 183 { … … 868 868 /* prod.crit itself in nc_CreateSpoly */ 869 869 } 870 strat->P.p = nc_ SPoly(strat->P.p1,strat->P.p2/*,strat->kNoether*/,currRing);870 strat->P.p = nc_CreateSpoly(strat->P.p1,strat->P.p2,currRing); 871 871 } 872 872 if (strat->P.p != NULL)
Note: See TracChangeset
for help on using the changeset viewer.