Changeset f218a7 in git
- Timestamp:
- Aug 3, 2011, 7:32:22 PM (12 years ago)
- Branches:
- (u'jengelh-datetime', 'ceac47cbc86fe4a15902392bdbb9bd2ae0ea02c6')(u'spielwiese', 'a800fe4b3e9d37a38c5a10cc0ae9dfa0c15a4ee6')
- Children:
- af66d65781bd30dd0d990cc7476eb7c230b6104f
- Parents:
- 1b420fdcd150b1055040f75e2230c9118a3a529d
- git-author:
- Oleksandr Motsak <motsak@mathematik.uni-kl.de>2011-08-03 19:32:22+02:00
- git-committer:
- Mohamed Barakat <mohamed.barakat@rwth-aachen.de>2011-11-09 13:14:21+01:00
- Location:
- kernel
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
kernel/syz0.cc
r1b420fd rf218a7 215 215 { 216 216 S[j] = pCopy(F[j]); 217 totalS[j] = p LDeg(S[j],&k,currRing);218 ecartS[j] = totalS[j]-p FDeg(S[j],currRing);217 totalS[j] = p_LDeg(S[j],&k,currRing); 218 ecartS[j] = totalS[j]-p_FDeg(S[j],currRing); 219 219 //Print("%d", pGetComp(S[j]));PrintS(" "); 220 220 p = S[j]; … … 325 325 * { 326 326 */ 327 totalToRed = p LDeg(toRed,&kk,currRing);328 ecartToRed = totalToRed-p FDeg(toRed,currRing);327 totalToRed = p_LDeg(toRed,&kk,currRing); 328 ecartToRed = totalToRed-p_FDeg(toRed,currRing); 329 329 /* 330 330 * } -
kernel/syz2.cc
r1b420fd rf218a7 934 934 for (j=0;j<k;j++) 935 935 { 936 if (toreor->m[j]!=NULL) (IMATELEM(*syzstr->betti,p FDeg(toreor->m[j],currRing)-i+1,i+1))++;936 if (toreor->m[j]!=NULL) (IMATELEM(*syzstr->betti,p_FDeg(toreor->m[j],currRing)-i+1,i+1))++; 937 937 reor->m[j] = toreor->m[j]; 938 938 toreor->m[j] = NULL; -
kernel/syz3.cc
r1b420fd rf218a7 272 272 if ((syzstr->regularity>0) && (res[syzIndex]->m[i]!=NULL)) 273 273 { 274 if (p FDeg(res[syzIndex]->m[i],currRing)>=syzstr->regularity+syzIndex)274 if (p_FDeg(res[syzIndex]->m[i],currRing)>=syzstr->regularity+syzIndex) 275 275 pDelete(&res[syzIndex]->m[i]); 276 276 } … … 334 334 IDELEMS(old_repr) += 16; 335 335 } 336 k = p FDeg(new_generators->m[i],currRing);336 k = p_FDeg(new_generators->m[i],currRing); 337 337 kk = pGetComp(new_generators->m[i]); 338 338 j = og_ini; … … 340 340 (pGetComp(old_generators->m[j])<kk)) j++; 341 341 while ((j<og_elem) && (old_generators->m[j]!=NULL) && 342 (p FDeg(old_generators->m[j],currRing)<=k)) j++;342 (p_FDeg(old_generators->m[j],currRing)<=k)) j++; 343 343 for (jj=og_elem;jj>j;jj--) 344 344 { … … 439 439 tso.lcm = prs[jj]; 440 440 prs[jj] = NULL; 441 tso.order = p FDeg(tso.lcm,currRing);441 tso.order = p_FDeg(tso.lcm,currRing); 442 442 tso.p1 = old_generators->m[jj]; 443 443 tso.p2 = old_generators->m[j]; … … 678 678 { 679 679 /*--- tests wether a generator must be replaced (lt(f1)|lt(f2)!)--*/ 680 if (p FDeg(tso.p1,currRing)==pFDeg(tso.lcm,currRing))680 if (p_FDeg(tso.p1,currRing)==p_FDeg(tso.lcm,currRing)) 681 681 toReplace = tso.ind1+1; 682 else if (p FDeg(tso.p2,currRing)==pFDeg(tso.lcm,currRing))682 else if (p_FDeg(tso.p2,currRing)==p_FDeg(tso.lcm,currRing)) 683 683 toReplace = tso.ind2+1; 684 684 } … … 686 686 /*--- tests wether the product criterion applies --------------*/ 687 687 if ((index==0) && (old_generators->rank==1) && 688 (p FDeg(tso.p1,currRing)+pFDeg(tso.p2,currRing)==tso.order))688 (p_FDeg(tso.p1,currRing)+p_FDeg(tso.p2,currRing)==tso.order)) 689 689 { 690 690 tso.p = NULL; … … 1138 1138 tso.lcm = prs[j]; 1139 1139 prs[j] = NULL; 1140 tso.order = p FDeg(tso.lcm,currRing);1140 tso.order = p_FDeg(tso.lcm,currRing); 1141 1141 tso.p1 = add_generators->m[j]; 1142 1142 tso.p2 = add_generators->m[i]; … … 1197 1197 PrintS("."); 1198 1198 #ifdef USE_PROD_CRIT 1199 if (p FDeg(tso.p1,currRing)+pFDeg(tso.p2,currRing)==tso.order+pFDeg(deg_soc,currRing))1199 if (p_FDeg(tso.p1,currRing)+p_FDeg(tso.p2,currRing)==tso.order+p_FDeg(deg_soc,currRing)) 1200 1200 { 1201 1201 if (TEST_OPT_PROT) PrintS("pc"); … … 1422 1422 while ((next_place_add>0) && (add_generators->m[next_place_add-1]==NULL)) 1423 1423 next_place_add--; 1424 int next_deg = p FDeg(temp_generators->m[i],currRing);1424 int next_deg = p_FDeg(temp_generators->m[i],currRing); 1425 1425 next_new_el = next_place_add; 1426 1426 /*--- loop about all all elements-----------------------------------*/ … … 1442 1442 } 1443 1443 #endif 1444 while ((i<idel_temp) && (p FDeg(temp_generators->m[i],currRing)==next_deg))1444 while ((i<idel_temp) && (p_FDeg(temp_generators->m[i],currRing)==next_deg)) 1445 1445 { 1446 1446 next_p = temp_generators->m[i]; … … 1503 1503 red_deg = next_deg; 1504 1504 if (i<idel_temp) 1505 next_deg = p FDeg(temp_generators->m[i],currRing);1505 next_deg = p_FDeg(temp_generators->m[i],currRing); 1506 1506 else 1507 1507 next_deg = -1; … … 1607 1607 p = new_generators->m[j]; 1608 1608 new_generators->m[j] = NULL; 1609 deg_p = p FDeg(p,currRing);1609 deg_p = p_FDeg(p,currRing); 1610 1610 if (min_deg<0) 1611 1611 { … … 1618 1618 k = 0; 1619 1619 while ((k<idel_temp) && (temp_generators->m[k]!=NULL) && 1620 (p FDeg(temp_generators->m[k],currRing)<=deg_p)) k++;1620 (p_FDeg(temp_generators->m[k],currRing)<=deg_p)) k++; 1621 1621 for (jj=idel_temp-1;jj>k;jj--) 1622 1622 { … … 1787 1787 { 1788 1788 int md; 1789 int maxdeg=p FDeg(temp->m[IDELEMS(temp)-1],currRing);1789 int maxdeg=p_FDeg(temp->m[IDELEMS(temp)-1],currRing); 1790 1790 ideal temp1=idInit(IDELEMS(temp),temp->rank); 1791 1791 for (j=IDELEMS(temp)-2;j>=0;j--) 1792 1792 { 1793 jj = p FDeg(temp->m[j],currRing);1793 jj = p_FDeg(temp->m[j],currRing); 1794 1794 if (jj>maxdeg) maxdeg = jj; 1795 1795 } … … 1801 1801 if (temp->m[j]!=NULL) 1802 1802 { 1803 jj = p FDeg(temp->m[j],currRing);1803 jj = p_FDeg(temp->m[j],currRing); 1804 1804 if (jj<md) md = jj; 1805 1805 } … … 1807 1807 for (j=0;j<IDELEMS(temp);j++) 1808 1808 { 1809 if ((temp->m[j]!=NULL) && (p FDeg(temp->m[j],currRing)==md))1809 if ((temp->m[j]!=NULL) && (p_FDeg(temp->m[j],currRing)==md)) 1810 1810 { 1811 1811 temp1->m[k] = temp->m[j]; … … 1845 1845 if (!nIsOne(pGetCoeff(new_generators->m[0]))) 1846 1846 pNorm(new_generators->m[0]); 1847 next_deg = p FDeg(new_generators->m[0],currRing);1847 next_deg = p_FDeg(new_generators->m[0],currRing); 1848 1848 next_gen = pCopy(new_generators->m[0]); 1849 1849 } … … 1991 1991 PrintS("Da ist was faul!!!\n"); 1992 1992 Print("Aber: Regularitaet %d, Grad %ld\n", 1993 syzstr->regularity,p FDeg(totake[index]->m[i],currRing));1993 syzstr->regularity,p_FDeg(totake[index]->m[i],currRing)); 1994 1994 } 1995 1995 }
Note: See TracChangeset
for help on using the changeset viewer.