Changeset 00d383 in git


Ignore:
Timestamp:
Oct 11, 2004, 7:06:13 PM (20 years ago)
Author:
Michael Brickenstein <bricken@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b52fc4b2495505785981d640dcf7eb3e456778ef')
Children:
9f28a8bf4d221b97630205e49678195c233e099d
Parents:
305bd2711ace1f6f36fffb6d04317a11025b1aa8
Message:
*bricken: implemented Sugar


git-svn-id: file:///usr/local/Singular/svn/trunk@7565 2c84dea3-7e68-4137-9b89-c4e89433aadc
Location:
Singular
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • Singular/tgb.cc

    r305bd2 r00d383  
    160160  return l;
    161161}
    162 
     162static inline int pTotaldegree_full(poly p){
     163  int r=0;
     164  while(p){
     165    int d=pTotaldegree(p);
     166    r=max(r,d);
     167    pIter(p);
     168  }
     169  return r;
     170}
    163171
    164172int red_object::guess_quality(calc_dat* c){
     
    10141022  c->T_deg=(int*) omrealloc(c->T_deg,c->n*sizeof(int));
    10151023  c->T_deg[i]=pTotaldegree(h);
     1024  if(c->T_deg_full){
     1025    c->T_deg_full=(int*) omrealloc(c->T_deg_full,c->n*sizeof(int));
     1026    c->T_deg_full[i]=pTotaldegree_full(h);
     1027  }
     1028 
    10161029  c->tmp_pair_lm=(poly*) omrealloc(c->tmp_pair_lm,c->n*sizeof(poly));
    10171030  c->tmp_pair_lm[i]=pOne_Special(c->r);
     
    11191132        pSetm(lm);
    11201133        s->deg=pTotaldegree(lm);
     1134        if(c->T_deg_full)
     1135        {
     1136          int t_i=c->T_deg_full[s->i]-c->T_deg[s->i];
     1137          int t_j=c->T_deg_full[s->j]-c->T_deg[s->j];
     1138          s->deg+=max(t_i,t_j);
     1139        }
    11211140        s->lcm_of_lm=lm;
    11221141//          pDelete(&short_s);
     
    12011220  c->T_deg=(int*) omrealloc(c->T_deg,c->n*sizeof(int));
    12021221  c->T_deg[i]=pTotaldegree(h);
     1222  if(c->T_deg_full){
     1223    c->T_deg_full=(int*) omrealloc(c->T_deg_full,c->n*sizeof(int));
     1224    c->T_deg_full[i]=pTotaldegree_full(h);
     1225  }
    12031226  c->tmp_pair_lm=(poly*) omrealloc(c->tmp_pair_lm,c->n*sizeof(poly));
    12041227  c->tmp_pair_lm[i]=pOne_Special(c->r);
     
    12841307    pSetm(lm);
    12851308    s->deg=pTotaldegree(lm);
     1309    if(c->T_deg_full)
     1310    {
     1311      int t_i=c->T_deg_full[s->i]-c->T_deg[s->i];
     1312      int t_j=c->T_deg_full[s->j]-c->T_deg[s->j];
     1313      s->deg+=max(t_i,t_j);
     1314      //Print("\n max: %d\n",max(t_i,t_j));
     1315    }
    12861316    s->lcm_of_lm=lm;
    12871317    //          pDelete(&short_s);
     
    39073937  c->n=0;
    39083938  c->T_deg=(int*) omalloc(n*sizeof(int));
     3939  if((!(c->is_homog)) &&(pLexOrder))
     3940    c->T_deg_full=(int*) omalloc(n*sizeof(int));
     3941  else
     3942    c->T_deg_full=NULL;
    39093943  c->tmp_pair_lm=(poly*) omalloc(n*sizeof(poly));
    39103944  c->tmp_spn=(sorted_pair_node**) omalloc(n*sizeof(sorted_pair_node*));
     
    40284062  omfree(c->short_Exps);
    40294063  omfree(c->T_deg);
    4030 
    4031      omFree(c->strat->ecartS);
    4032      omFree(c->strat->sevS);
     4064  if(c->T_deg_full)
     4065    omfree(c->T_deg_full);
     4066
     4067  omFree(c->strat->ecartS);
     4068  omFree(c->strat->sevS);
    40334069//   initsevS(i);
    4034    omFree(c->strat->S_2_R);
     4070  omFree(c->strat->S_2_R);
    40354071   
    40364072
    40374073  omFree(c->strat->lenS);
    40384074
    4039    if(c->strat->lenSw)  omFree(c->strat->lenSw);
     4075  if(c->strat->lenSw)  omFree(c->strat->lenSw);
    40404076
    40414077
     
    41124148  IDELEMS(I)=c->n;
    41134149
    4114   idSkipZeroes(c->S);
     4150  idSkipZeroes(I);
    41154151  for(i=0;i<=c->strat->sl;i++)
    41164152    c->strat->S[i]=NULL;
  • Singular/tgb.h

    r305bd2 r00d383  
    185185  kStrategy strat;
    186186  int* T_deg;
     187  int* T_deg_full;
    187188  poly tmp_lm;
    188189  poly* tmp_pair_lm;
Note: See TracChangeset for help on using the changeset viewer.