Changeset cb4700 in git for libpolys/polys/simpleideals.cc
- Timestamp:
- Jan 31, 2024, 4:59:43 PM (3 months ago)
- Branches:
- (u'spielwiese', 'd08f5f0bb3329b8ca19f23b74cb1473686415c3a')
- Children:
- a410042175ed269bc5f88a7a1239e49c4c28b706
- Parents:
- 687d0d05ffa27de4df1418fdc38be90ed25c8aac
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
libpolys/polys/simpleideals.cc
r687d0d rcb4700 216 216 { 217 217 ide->m[j] = ide->m[k]; 218 ide->m[k] = NULL; 218 219 } 219 220 } … … 227 228 if (j == -1) 228 229 j = 0; 229 else230 {231 for (k=j+1; k<idelems; k++)232 ide->m[k] = NULL;233 }234 230 j++; 235 231 pEnlargeSet(&(ide->m),idelems,j-idelems); … … 238 234 } 239 235 240 int idSkipZeroes0 (ideal ide) 236 int idSkipZeroes0 (ideal ide) /*idSkipZeroes without realloc*/ 241 237 { 242 238 assume (ide != NULL); … … 1786 1782 } 1787 1783 1784 ideal id_Jet0(const ideal i, const ring R) 1785 { 1786 ideal r=idInit((i->nrows)*(i->ncols),i->rank); 1787 r->nrows = i-> nrows; 1788 r->ncols = i-> ncols; 1789 //r->rank = i-> rank; 1790 1791 for(long k=((long)(i->nrows))*((long)(i->ncols))-1;k>=0; k--) 1792 r->m[k]=pp_Jet0(i->m[k],R); 1793 1794 return r; 1795 } 1796 1788 1797 ideal id_JetW(const ideal i,int d, intvec * iv, const ring R) 1789 1798 {
Note: See TracChangeset
for help on using the changeset viewer.