Changeset 0146ce in git
- Timestamp:
- Mar 22, 2000, 9:56:05 AM (24 years ago)
- Branches:
- (u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')
- Children:
- adc638370441b8c15875bd2cf8fe7167400781c8
- Parents:
- e95eaa7b5b685b96b727289d96557b7d1b0984d4
- Location:
- Singular
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/syz.cc
re95eaa7 r0146ce 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: syz.cc,v 1.3 5 2000-02-29 10:46:03siebert Exp $ */4 /* $Id: syz.cc,v 1.36 2000-03-22 08:56:04 siebert Exp $ */ 5 5 6 6 /* … … 230 230 231 231 /*2 232 * make Gauss for one element 232 * make Gauss with the element elnum in the module component ModComp 233 * for the generators from - till 233 234 */ 234 235 void syGaussForOne(ideal syz, int elnum, int ModComp,int from,int till) -
Singular/syz1.cc
re95eaa7 r0146ce 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: syz1.cc,v 1.5 6 2000-03-01 16:08:37 SingularExp $ */4 /* $Id: syz1.cc,v 1.57 2000-03-22 08:56:05 siebert Exp $ */ 5 5 /* 6 6 * ABSTRACT: resolutions … … 1750 1750 if (syzstr->betti!=NULL) 1751 1751 { 1752 return ivCopy(syzstr->betti); 1752 if (minim || (syzstr->resPairs!=NULL)) 1753 return ivCopy(syzstr->betti); 1753 1754 } 1754 1755 intvec *result; … … 1805 1806 } 1806 1807 } 1807 syzstr->betti = result;1808 1808 } 1809 1809 else if (syzstr->fullres!=NULL) 1810 syzstr->betti= syBetti(syzstr->fullres,syzstr->length,&dummy,NULL,minim,row_shift);1810 result = syBetti(syzstr->fullres,syzstr->length,&dummy,NULL,minim,row_shift); 1811 1811 else 1812 syzstr->betti = syBetti(syzstr->minres,syzstr->length,&dummy,NULL,minim,row_shift); 1813 return ivCopy(syzstr->betti); 1812 result = syBetti(syzstr->minres,syzstr->length,&dummy,NULL,minim,row_shift); 1813 if ((minim) || (syzstr->resPairs!=NULL)) 1814 syzstr->betti = ivCopy(result); 1815 return result; 1814 1816 } 1815 1817
Note: See TracChangeset
for help on using the changeset viewer.