Changeset 780c1b in git for kernel


Ignore:
Timestamp:
Aug 18, 2016, 4:57:26 PM (8 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
Children:
f6b8d2ee25edfef0c6b3807304407993d503b025
Parents:
e6fba316e552672ba628ee059740af7822acc66a
Message:
format
Location:
kernel/GBEngine
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • kernel/GBEngine/kspoly.cc

    re6fba31 r780c1b  
    175175 *
    176176 ***************************************************************/
    177  
     177
    178178int ksReducePolySig(LObject* PR,
    179179                 TObject* PW,
     
    373373  return ret;
    374374}
    375  
     375
    376376int ksReducePolySigRing(LObject* PR,
    377377                 TObject* PW,
  • kernel/GBEngine/kstd2.cc

    re6fba31 r780c1b  
    873873  printf("\nBefore sbaCheckGcdPair ");pWrite(h->p);
    874874  #endif
    875   while(sbaCheckGcdPair(h,strat)) 
     875  while(sbaCheckGcdPair(h,strat))
    876876  {
    877877    #ifdef ADIDEBUG
     
    886886  poly beforeredsig;
    887887  beforeredsig = pCopy(h->sig);
    888    
     888
    889889  if (strat->tl<0) return 1;
    890890  //if (h->GetLmTailRing()==NULL) return 0; // HS: SHOULD NOT BE NEEDED!
     
    929929      printf("\nBefore sbaCheckGcdPair ");pWrite(h->p);
    930930      #endif
    931       while(sbaCheckGcdPair(h,strat)) 
     931      while(sbaCheckGcdPair(h,strat))
    932932      {
    933933        #ifdef ADIDEBUG
     
    10191019      }
    10201020    }
    1021    
     1021
    10221022    start = ii+1;
    10231023
     
    21952195  sba_interreduction_operations = 0;
    21962196#endif
    2197  
     2197
    21982198  ideal F1 = F0;
    21992199  ring sRing, currRingOld;
     
    23512351      strat->enterS(strat->L[strat->Ll-(i)], strat->sl+1, strat, strat->tl);
    23522352    }
    2353     strat->Ll = strat->Ll - strat->sbaEnterS; 
     2353    strat->Ll = strat->Ll - strat->sbaEnterS;
    23542354    strat->sbaEnterS = -1;
    23552355  }
     
    24522452    strat->P = strat->L[strat->Ll];
    24532453    strat->Ll--;
    2454    
     2454
    24552455    if(rField_is_Ring(currRing))
    24562456      strat->sbaEnterS = pGetComp(strat->P.sig) - 1;
    2457    
     2457
    24582458    #ifdef ADIDEBUG
    24592459    printf("\n-------------------------\nThis is the current element P\n");
     
    26042604      break;
    26052605    }
    2606    
     2606
    26072607    if (errorreported)  break;
    26082608
     
    26632663#if SBA_TAIL_RED
    26642664      if(rField_is_Ring(currRing))
    2665       { 
     2665      {
    26662666        if ((TEST_OPT_REDSB)||(TEST_OPT_REDTAIL))
    26672667          strat->P.p = redtailSba(&(strat->P),pos-1,strat, withT);
     
    26882688      }
    26892689      // 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.
    26912691      // Best case scenerio: remains the leading term
    2692       if(rField_is_Ring(currRing) && strat->sigdrop)     
     2692      if(rField_is_Ring(currRing) && strat->sigdrop)
    26932693      {
    26942694        #ifdef ADIDEBUG
     
    31203120  //idSkipZeroes(strat->Shdl);
    31213121  //idPrint(strat->Shdl);
    3122  
     3122
    31233123  if ((strat->sbaOrder == 1 || strat->sbaOrder == 3) && sRing!=currRingOld)
    31243124  {
  • kernel/GBEngine/kutil.h

    re6fba31 r780c1b  
    359359  int nrsyzcrit; // counts how many pairs are deleted by SyzCrit
    360360  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
    362362                 // add directly sbaEnterS elements into S
    363363  int blockred;  // counter for blocked reductions in redSig
     
    719719                 number *coef = NULL,
    720720                 kStrategy strat = NULL);
    721                  
     721
    722722int ksReducePolySigRing(LObject* PR,
    723723                 TObject* PW,
Note: See TracChangeset for help on using the changeset viewer.