Changeset a93f7b0 in git
- Timestamp:
- Feb 27, 2009, 5:56:51 PM (14 years ago)
- Branches:
- (u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', '0604212ebb110535022efecad887940825b97c3f')
- Children:
- f58aa61ada5934435d94d1d486fb70912543c11a
- Parents:
- b172c34e900d95e16b695c1a52b2c1b2b6497936
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
kernel/gr_kstd2.cc
rb172c3 ra93f7b0 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: gr_kstd2.cc,v 1.3 4 2009-02-27 16:34:45 SingularExp $ */4 /* $Id: gr_kstd2.cc,v 1.35 2009-02-27 16:56:51 levandov Exp $ */ 5 5 /* 6 6 * ABSTRACT - Kernel: noncomm. alg. of Buchberger … … 256 256 } 257 257 #endif 258 //poly hh = nc_CreateSpoly(strat->S[c_j],(*h).p, currRing); 259 Print("vor nc_rat_ReduceSpolyNew (ce:%d) ",c_e);wrp(h->p);PrintLn(); 260 //if(c_e==-1) 261 // c_p = nc_CreateSpoly(pCopy(strat->S[c_j]),pCopy((*h).p), currRing); 262 //else 263 c_p=nc_rat_ReduceSpolyNew(strat->S[c_j],pCopy((*h).p), currRing->real_var_start-1,currRing); 264 Print("nach nc_rat_ReduceSpolyNew ");wrp(c_p);PrintLn(); 265 pDelete(&((*h).p)); 258 //poly hh = nc_CreateSpoly(strat->S[c_j],(*h).p, currRing); 259 // Print("vor nc_rat_ReduceSpolyNew (ce:%d) ",c_e);wrp(h->p);PrintLn(); 260 //if(c_e==-1) 261 // c_p = nc_CreateSpoly(pCopy(strat->S[c_j]),pCopy((*h).p), currRing); 262 //else 263 // c_p=nc_rat_ReduceSpolyNew(strat->S[c_j],pCopy((*h).p), currRing->real_var_start-1,currRing); 264 // Print("nach nc_rat_ReduceSpolyNew ");wrp(c_p);PrintLn(); 265 // pDelete(&((*h).p)); 266 267 c_p=nc_rat_ReduceSpolyNew(strat->S[c_j],(*h).p, currRing->real_var_start-1,currRing); 266 268 (*h).p=c_p; 267 269 if (!TEST_OPT_INTSTRATEGY)
Note: See TracChangeset
for help on using the changeset viewer.