Changeset 00d383 in git
 Timestamp:
 Oct 11, 2004, 7:06:13 PM (20 years ago)
 Branches:
 (u'fiekerDuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', 'b52fc4b2495505785981d640dcf7eb3e456778ef')
 Children:
 9f28a8bf4d221b97630205e49678195c233e099d
 Parents:
 305bd2711ace1f6f36fffb6d04317a11025b1aa8
 Location:
 Singular
 Files:

 2 edited
Legend:
 Unmodified
 Added
 Removed

Singular/tgb.cc
r305bd2 r00d383 160 160 return l; 161 161 } 162 162 static 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 } 163 171 164 172 int red_object::guess_quality(calc_dat* c){ … … 1014 1022 c>T_deg=(int*) omrealloc(c>T_deg,c>n*sizeof(int)); 1015 1023 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 1016 1029 c>tmp_pair_lm=(poly*) omrealloc(c>tmp_pair_lm,c>n*sizeof(poly)); 1017 1030 c>tmp_pair_lm[i]=pOne_Special(c>r); … … 1119 1132 pSetm(lm); 1120 1133 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 } 1121 1140 s>lcm_of_lm=lm; 1122 1141 // pDelete(&short_s); … … 1201 1220 c>T_deg=(int*) omrealloc(c>T_deg,c>n*sizeof(int)); 1202 1221 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 } 1203 1226 c>tmp_pair_lm=(poly*) omrealloc(c>tmp_pair_lm,c>n*sizeof(poly)); 1204 1227 c>tmp_pair_lm[i]=pOne_Special(c>r); … … 1284 1307 pSetm(lm); 1285 1308 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 } 1286 1316 s>lcm_of_lm=lm; 1287 1317 // pDelete(&short_s); … … 3907 3937 c>n=0; 3908 3938 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; 3909 3943 c>tmp_pair_lm=(poly*) omalloc(n*sizeof(poly)); 3910 3944 c>tmp_spn=(sorted_pair_node**) omalloc(n*sizeof(sorted_pair_node*)); … … 4028 4062 omfree(c>short_Exps); 4029 4063 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); 4033 4069 // initsevS(i); 4034 4070 omFree(c>strat>S_2_R); 4035 4071 4036 4072 4037 4073 omFree(c>strat>lenS); 4038 4074 4039 4075 if(c>strat>lenSw) omFree(c>strat>lenSw); 4040 4076 4041 4077 … … 4112 4148 IDELEMS(I)=c>n; 4113 4149 4114 idSkipZeroes( c>S);4150 idSkipZeroes(I); 4115 4151 for(i=0;i<=c>strat>sl;i++) 4116 4152 c>strat>S[i]=NULL; 
Singular/tgb.h
r305bd2 r00d383 185 185 kStrategy strat; 186 186 int* T_deg; 187 int* T_deg_full; 187 188 poly tmp_lm; 188 189 poly* tmp_pair_lm;
Note: See TracChangeset
for help on using the changeset viewer.