Changeset b4ecd2 in git
- Timestamp:
- Jan 21, 2013, 8:20:40 PM (10 years ago)
- Branches:
- (u'spielwiese', 'f6c3dc58b0df4bd712574325fe76d0626174ad97')
- Children:
- 74c52ced49c3c72d9aca4a3cc22f921a3f949687
- Parents:
- 1f1fb0ae2d0228deb0e78489ca037165df05672b
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
libpolys/polys/simpleideals.cc
r1f1fb0 rb4ecd2 77 77 #endif 78 78 79 / * index of generator with leading term in ground ring (if any);80 otherwise -1 */ 79 /// index of generator with leading term in ground ring (if any); 80 /// otherwise -1 81 81 int id_PosConstant(ideal id, const ring r) 82 82 { 83 int k; 84 for (k = IDELEMS(id)-1; k>=0; k--) 85 { 86 if (p_LmIsConstantComp(id->m[k], r) == TRUE) 87 return k; 88 } 83 id_Test(id, r); 84 const int N = IDELEMS(id) - 1; 85 const poly * m = id->m + N; 86 87 for (int k = N; k >= 0; --k, --m) 88 { 89 const poly p = *m; 90 if (p!=NULL) 91 if (p_LmIsConstantComp(p, r) == TRUE) 92 return k; 93 } 94 89 95 return -1; 90 96 }
Note: See TracChangeset
for help on using the changeset viewer.