- Timestamp:
- Aug 18, 2016, 4:57:26 PM (8 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- f6b8d2ee25edfef0c6b3807304407993d503b025
- Parents:
- e6fba316e552672ba628ee059740af7822acc66a
- Location:
- kernel/GBEngine
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
kernel/GBEngine/kspoly.cc
re6fba31 r780c1b 175 175 * 176 176 ***************************************************************/ 177 177 178 178 int ksReducePolySig(LObject* PR, 179 179 TObject* PW, … … 373 373 return ret; 374 374 } 375 375 376 376 int ksReducePolySigRing(LObject* PR, 377 377 TObject* PW, -
kernel/GBEngine/kstd2.cc
re6fba31 r780c1b 873 873 printf("\nBefore sbaCheckGcdPair ");pWrite(h->p); 874 874 #endif 875 while(sbaCheckGcdPair(h,strat)) 875 while(sbaCheckGcdPair(h,strat)) 876 876 { 877 877 #ifdef ADIDEBUG … … 886 886 poly beforeredsig; 887 887 beforeredsig = pCopy(h->sig); 888 888 889 889 if (strat->tl<0) return 1; 890 890 //if (h->GetLmTailRing()==NULL) return 0; // HS: SHOULD NOT BE NEEDED! … … 929 929 printf("\nBefore sbaCheckGcdPair ");pWrite(h->p); 930 930 #endif 931 while(sbaCheckGcdPair(h,strat)) 931 while(sbaCheckGcdPair(h,strat)) 932 932 { 933 933 #ifdef ADIDEBUG … … 1019 1019 } 1020 1020 } 1021 1021 1022 1022 start = ii+1; 1023 1023 … … 2195 2195 sba_interreduction_operations = 0; 2196 2196 #endif 2197 2197 2198 2198 ideal F1 = F0; 2199 2199 ring sRing, currRingOld; … … 2351 2351 strat->enterS(strat->L[strat->Ll-(i)], strat->sl+1, strat, strat->tl); 2352 2352 } 2353 strat->Ll = strat->Ll - strat->sbaEnterS; 2353 strat->Ll = strat->Ll - strat->sbaEnterS; 2354 2354 strat->sbaEnterS = -1; 2355 2355 } … … 2452 2452 strat->P = strat->L[strat->Ll]; 2453 2453 strat->Ll--; 2454 2454 2455 2455 if(rField_is_Ring(currRing)) 2456 2456 strat->sbaEnterS = pGetComp(strat->P.sig) - 1; 2457 2457 2458 2458 #ifdef ADIDEBUG 2459 2459 printf("\n-------------------------\nThis is the current element P\n"); … … 2604 2604 break; 2605 2605 } 2606 2606 2607 2607 if (errorreported) break; 2608 2608 … … 2663 2663 #if SBA_TAIL_RED 2664 2664 if(rField_is_Ring(currRing)) 2665 { 2665 { 2666 2666 if ((TEST_OPT_REDSB)||(TEST_OPT_REDTAIL)) 2667 2667 strat->P.p = redtailSba(&(strat->P),pos-1,strat, withT); … … 2688 2688 } 2689 2689 // It may happen that we have lost the sig in redtailsba 2690 // It cannot reduce to 0 since here we are doing just tail reduction. 2690 // It cannot reduce to 0 since here we are doing just tail reduction. 2691 2691 // Best case scenerio: remains the leading term 2692 if(rField_is_Ring(currRing) && strat->sigdrop) 2692 if(rField_is_Ring(currRing) && strat->sigdrop) 2693 2693 { 2694 2694 #ifdef ADIDEBUG … … 3120 3120 //idSkipZeroes(strat->Shdl); 3121 3121 //idPrint(strat->Shdl); 3122 3122 3123 3123 if ((strat->sbaOrder == 1 || strat->sbaOrder == 3) && sRing!=currRingOld) 3124 3124 { -
kernel/GBEngine/kutil.h
re6fba31 r780c1b 359 359 int nrsyzcrit; // counts how many pairs are deleted by SyzCrit 360 360 int nrrewcrit; // counts how many pairs are deleted by FaugereRewCrit 361 int sbaEnterS; // sba over Z strategy: if sigdrop element has _*gen(sbaEnterS+1), then 361 int sbaEnterS; // sba over Z strategy: if sigdrop element has _*gen(sbaEnterS+1), then 362 362 // add directly sbaEnterS elements into S 363 363 int blockred; // counter for blocked reductions in redSig … … 719 719 number *coef = NULL, 720 720 kStrategy strat = NULL); 721 721 722 722 int ksReducePolySigRing(LObject* PR, 723 723 TObject* PW,
Note: See TracChangeset
for help on using the changeset viewer.