Changeset 31f1850 in git


Ignore:
Timestamp:
Jan 10, 2012, 4:20:10 PM (12 years ago)
Author:
Hans Schoenemann <hannes@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '45e267b9942dec9429fe249ce3e5e44ab80a6a3a')
Children:
930ea815182bc9bf3182f1c57876006af26295b2
Parents:
a74143eec598021f060c389b66230f8f035cc1c5
Message:
chg: pDeg leads to confusion, removed to p_Deg
Files:
7 edited

Legend:

Unmodified
Added
Removed
  • Singular/janet.cc

    ra74143 r31f1850  
    4444
    4545//#define pow_(x) pTotaldegree((x))
    46 //#define pow_(x) pDeg((x))
     46//#define pow_(x) p_Deg((x,currRing))
    4747pFDegProc jDeg;
    4848#define pow_(x) jDeg((x),currRing)
     
    957957  {
    958958    degree_compatible=1;
    959     jDeg=pDeg;
     959    jDeg=p_Deg;
    960960    ListGreatMove=ListGreatMoveDegree;
    961961  }
  • Singular/wrapper.cc

    ra74143 r31f1850  
    8989      {
    9090        //if (pTotaldegree(iT->info->lead) == pTotaldegree(iT->info->history))
    91         if (pDeg(iT->info->lead) == pDeg(iT->info->history))
     91        if (p_Deg(iT->info->lead,currRing) == p_Deg(iT->info->history,currRing))
    9292        {
    9393          result->m[ideal_length-ideal_index-1]=pCopy(iT->info->root);
  • kernel/fast_maps.cc

    ra74143 r31f1850  
    638638  poly fq_p=NULL;
    639639  choice=NULL;
    640   while ((iter != NULL) && (pDeg(iter->src, r) > ggt_deg))
     640  while ((iter != NULL) && (p_Deg(iter->src, r) > ggt_deg))
    641641  {
    642642    //    maMonomial_Out(iter, r, NULL);
     
    648648      int tmp_deg;
    649649      assume((q1!=NULL)&&(q2!=NULL));
    650       if ((tmp_deg=pDeg(q,r)) > ggt_deg)
     650      if ((tmp_deg=p_Deg(q,r)) > ggt_deg)
    651651      {
    652652        choice=iter;
     
    657657          p_LmFree(fq_p, r);
    658658        }
    659         ggt_deg = tmp_deg ; /*pDeg(q, r);*/
     659        ggt_deg = tmp_deg ; /*p_Deg(q, r);*/
    660660        ggT = q;
    661661        fp_p = q1;
  • kernel/ideals.cc

    ra74143 r31f1850  
    12241224  for(i=IDELEMS(Q)-1;i>=0;i--)
    12251225    if(w==NULL)
    1226       N=si_max(N,pDeg(Q->m[i]));
     1226      N=si_max(N,p_Deg(Q->m[i],currRing));
    12271227    else
    12281228      N=si_max(N,pDegW(Q->m[i],w));
     
    12511251          p=pJetW(pSub(p,ppMult_mm(Q->m[j],p0)),N,w);
    12521252        pNormalize(p);
    1253         if((w==NULL)&&(pDeg(p0)>n)||(w!=NULL)&&(pDegW(p0,w)>n))
     1253        if((w==NULL)&&(p_Deg(p0,currRing)>n)||(w!=NULL)&&(pDegW(p0,w)>n))
    12541254          p_Delete(&p0,currRing);
    12551255        else
     
    12641264          pIter(p);
    12651265          pNext(p0)=NULL;
    1266           if(((w==NULL)&&(pDeg(p0)>n))
     1266          if(((w==NULL)&&(p_Deg(p0,currRing)>n))
    12671267          ||((w!=NULL)&&(pDegW(p0,w)>n)))
    12681268            p_Delete(&p0,currRing);
     
    21332133      if (p!=NULL)
    21342134      {
    2135         d = pDeg(p);
     2135        d = p_Deg(p,currRing);
    21362136        k= pGetComp(p);
    21372137        if (slength>0) k--;
  • kernel/kutil.cc

    ra74143 r31f1850  
    32383238  )
    32393239  {
    3240     int o=pDeg(p);
    3241     int oo=pDeg(set[length]);
     3240    int o=p_Deg(p,currRing);
     3241    int oo=p_Deg(set[length],currRing);
    32423242
    32433243    if ((oo<o)
     
    32493249      if (an >= en-1)
    32503250      {
    3251         if ((pDeg(set[an])>=o) && (pLmCmp(set[an],p) == cmp_int))
     3251        if ((p_Deg(set[an],currRing)>=o) && (pLmCmp(set[an],p) == cmp_int))
    32523252        {
    32533253          return an;
     
    32563256      }
    32573257      i=(an+en) / 2;
    3258       if ((pDeg(set[i])>=o) && (pLmCmp(set[i],p) == cmp_int)) en=i;
     3258      if ((p_Deg(set[i],currRing)>=o) && (pLmCmp(set[i],p) == cmp_int)) en=i;
    32593259      else                              an=i;
    32603260    }
     
    63426342  strat->overflow=FALSE;
    63436343  ring new_tailRing = rModifyRing(currRing,
    6344                                   // Hmmm .. the condition pFDeg == pDeg
     6344                                  // Hmmm .. the condition pFDeg == p_Deg
    63456345                                  // might be too strong
    63466346#ifdef HAVE_RINGS
    6347                                   (strat->homog && currRing->pFDeg == pDeg && !(rField_is_Ring(currRing))), // TODO Oliver
     6347                                  (strat->homog && currRing->pFDeg == p_Deg && !(rField_is_Ring(currRing))), // TODO Oliver
    63486348#else
    6349                                   (strat->homog && pFDeg == pDeg), // omit_degree
     6349                                  (strat->homog && currRing->pFDeg == p_Deg), // omit_degree
    63506350#endif
    63516351                                  (strat->ak==0), // omit_comp if the input is an ideal
     
    67526752    else if (strat->tailRing->pLDeg==maxdegreeWecart) PrintS("maxdegreeWecart");
    67536753    else Print("? (%lx)", (long)strat->tailRing->pLDeg);
    6754     Print(" syzring:%d, syzComp(strat):%d syzComb:%d limit:%ld\n",rIsSyzIndexRing(currRing),strat->syzComp,rGetCurrSyzLimit(currRing));
     6754    PrintLn();
     6755  PrintS("currRing->pFDeg: ");
     6756    if (currRing->pFDeg==p_Totaldegree) PrintS("p_Totaldegree");
     6757    else if (currRing->pFDeg==p_WFirstTotalDegree) PrintS("pWFirstTotalDegree");
     6758    else if (currRing->pFDeg==p_Deg) PrintS("p_Deg");
     6759    else if (currRing->pFDeg==kHomModDeg) PrintS("kHomModDeg");
     6760    else if (currRing->pFDeg==totaldegreeWecart) PrintS("totaldegreeWecart");
     6761    else Print("? (%lx)", (long)currRing->pFDeg);
     6762    PrintLn();
     6763    Print(" syzring:%d, syzComp(strat):%d limit:%d\n",rIsSyzIndexRing(currRing),strat->syzComp,rGetCurrSyzLimit(currRing));
    67556764    if(TEST_OPT_DEGBOUND)
    67566765      Print(" degBound: %d\n", Kstd1_deg);
  • kernel/linearAlgebra.cc

    ra74143 r31f1850  
    12121212                   const poly f0, const poly g0, const int d, poly &f, poly &g)
    12131213{
    1214   int n = (int)pDeg(f0);
    1215   int m = (int)pDeg(g0);
     1214  int n = (int)p_Deg(f0,currRing);
     1215  int m = (int)p_Deg(g0,currRing);
    12161216  matrix aMat = mpNew(n + m, n + m);     /* matrix A for linear system */
    12171217  matrix pMat; matrix lMat; matrix uMat; /* for the decomposition of A */
  • kernel/polys.h

    ra74143 r31f1850  
    247247 ***************************************************************/
    248248inline int pWeight(int i, const ring R = currRing){ return p_Weight(i, R); }
    249 inline long pDeg(poly p, const ring R = currRing) { return p_Deg(p, R); }
    250249 
    251250
Note: See TracChangeset for help on using the changeset viewer.