Changeset b130fb in git for kernel/kstd1.cc
- Timestamp:
- Feb 17, 2005, 10:42:23 AM (19 years ago)
- Branches:
- (u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
- Children:
- 08db0a0dca2c73d19b0d83ba8110def246830498
- Parents:
- ecce503e3c38e63f043db34fbea817c3fc1fdc6c
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
kernel/kstd1.cc
recce503 rb130fb 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: kstd1.cc,v 1. 4 2004-09-28 13:23:49 Singular Exp $ */4 /* $Id: kstd1.cc,v 1.5 2005-02-17 09:42:19 Singular Exp $ */ 5 5 /* 6 6 * ABSTRACT: … … 447 447 int z = 10; 448 448 int o = H.SetpFDeg(); 449 H.ecart = pLDeg(H.p,&H.length )-o;449 H.ecart = pLDeg(H.p,&H.length,currRing)-o; 450 450 if ((flag & 2) == 0) cancelunit(&H); 451 451 H.sev = pGetShortExpVector(H.p); … … 526 526 o = H.SetpFDeg(); 527 527 if ((flag &2 ) == 0) cancelunit(&H); 528 H.ecart = pLDeg(H.p,&(H.length) )-o;528 H.ecart = pLDeg(H.p,&(H.length),currRing)-o; 529 529 j = 0; 530 530 H.sev = pGetShortExpVector(H.p); … … 1059 1059 if (strat->kHEdgeFound) 1060 1060 { 1061 strat->HCord = pFDeg(ppNoether )+1;1061 strat->HCord = pFDeg(ppNoether,currRing)+1; 1062 1062 strat->posInT = posInT2; 1063 1063 } … … 1294 1294 { 1295 1295 if (strat->kHEdge!=NULL) 1296 Kstd1_mu=pFDeg(strat->kHEdge );1296 Kstd1_mu=pFDeg(strat->kHEdge,currRing); 1297 1297 else 1298 1298 Kstd1_mu=-1; … … 1753 1753 for (i=IDELEMS(F)-1;i>=0;i--) 1754 1754 { 1755 if ((F->m[i]!=NULL) && (pFDeg(F->m[i] )>=Kstd1_deg))1756 Kstd1_deg = pFDeg(F->m[i] )+1;1755 if ((F->m[i]!=NULL) && (pFDeg(F->m[i],currRing)>=Kstd1_deg)) 1756 Kstd1_deg = pFDeg(F->m[i],currRing)+1; 1757 1757 } 1758 1758 }
Note: See TracChangeset
for help on using the changeset viewer.