Changeset 977f94 in git for kernel/kutil.cc
- Timestamp:
- Oct 5, 2006, 12:30:03 PM (18 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- ded4ee6c4c561eaf2513cbc7df1f8b1d60dd0ed1
- Parents:
- 1270db5f01f485ad9468a63f65555465d4ccf057
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
kernel/kutil.cc
r1270db r977f94 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: kutil.cc,v 1.3 0 2006-08-14 17:08:36 wienandExp $ */4 /* $Id: kutil.cc,v 1.31 2006-10-05 10:30:03 Singular Exp $ */ 5 5 /* 6 6 * ABSTRACT: kernel: utils for kStd … … 1022 1022 (*Lp).length = 0; 1023 1023 } 1024 1024 1025 1025 void initEcartPairMora (LObject* Lp,poly f,poly g,int ecartF,int ecartG) 1026 1026 { … … 2178 2178 } 2179 2179 tmp2 = p_NSet(nCopy(pGetCoeff(zeroPoly)), leadRing); 2180 for (int i = 1; i <= leadRing->N; i++) { 2180 for (int i = 1; i <= leadRing->N; i++) 2181 { 2181 2182 pSetExp(tmp2, i, p_GetExp(zeroPoly, i, tailRing)); 2182 2183 } … … 2254 2255 } 2255 2256 2256 /* 2257 /* 2257 2258 * Create the Groebner basis of the vanishing polynomials. 2258 2259 */ … … 2403 2404 } 2404 2405 poly tmp = p_ISet((long) ((p)->coef), currRing); 2405 for (int i = 1; i <= currRing->N; i++) { 2406 for (int i = 1; i <= currRing->N; i++) 2407 { 2406 2408 pSetExp(tmp, i, p_GetExp(p, i, strat->tailRing)); 2407 2409 } … … 3440 3442 long tmp = coeff; 3441 3443 int ind = 0; 3442 while (tmp % 2 == 0) { 3444 while (tmp % 2 == 0) 3445 { 3443 3446 tmp = tmp / 2; 3444 3447 ind++; … … 4036 4039 /* obsolete 4037 4040 #ifdef HAVE_RING2TOM 4038 if (currRing->cring == 1) { 4041 if (currRing->cring == 1) 4042 { 4039 4043 With = kRingFindDivisibleByInS(strat, pos, &Ln, &With_s); 4040 4044 } else … … 4049 4053 /* Obsolete 4050 4054 #ifdef HAVE_RING2TOM 4051 if (currRing->cring == 1) { 4055 if (currRing->cring == 1) 4056 { 4052 4057 j = kRingFindDivisibleByInT(strat->T, strat->sevT, strat->tl, &Ln); 4053 4058 } else
Note: See TracChangeset
for help on using the changeset viewer.