Changeset ec4a2c in git
- Timestamp:
- Feb 26, 2009, 1:17:38 PM (15 years ago)
- Branches:
- (u'spielwiese', '4a9821a93ffdc22a6696668bd4f6b8c9de3e6c5f')
- Children:
- 982e0181ff465b667d7d64681f4247eabf628b8c
- Parents:
- 3a852046e44ceaad99faf50863adfab42f049b2c
- Location:
- kernel
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
kernel/gr_kstd2.cc
r3a8520 rec4a2c 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: gr_kstd2.cc,v 1.3 0 2009-02-24 17:40:28 SingularExp $ */4 /* $Id: gr_kstd2.cc,v 1.31 2009-02-26 12:17:38 levandov Exp $ */ 5 5 /* 6 6 * ABSTRACT - Kernel: noncomm. alg. of Buchberger … … 168 168 void ratGB_divide_out(poly p) 169 169 { 170 /* extracts monomial content from localized expression */ 170 171 if (p==NULL) return; 171 172 poly root=p; … … 230 231 { 231 232 if (rField_is_Zp_a()) pContent(h->p); 232 else pCleardenom(h->p);// also does a pContent 233 else pCleardenom(h->p);// also does a pContentRat 233 234 } 234 235 loop -
kernel/ratgring.cc
r3a8520 rec4a2c 7 7 * Author: levandov (Viktor Levandovsky) 8 8 * Created: 8/00 - 11/00 9 * Version: $Id: ratgring.cc,v 1. 19 2009-02-26 11:24:15 SingularExp $9 * Version: $Id: ratgring.cc,v 1.20 2009-02-26 12:17:38 levandov Exp $ 10 10 *******************************************************************/ 11 11 #include "mod2.h" … … 700 700 int k = 0; 701 701 poly p = pCopy(ph); // ph will be needed below 702 int mintdeg = pTotaldegree(p); 703 int minlen = len; 704 int dd = 0; int i; 702 705 int HasConstantCoef = 0; 703 706 int is = currRing->real_var_start - 1; … … 729 732 goto cleanup; 730 733 } 731 int mintdeg = pTotaldegree(p); 732 int dd = 0; int i; 733 int minlen = len; 734 734 735 int mindeglen = len; 735 736 int pmindeglen;
Note: See TracChangeset
for help on using the changeset viewer.