Changeset 0146ce in git


Ignore:
Timestamp:
Mar 22, 2000, 9:56:05 AM (24 years ago)
Author:
Thomas Siebert <siebert@…>
Branches:
(u'fieker-DuVal', '117eb8c30fc9e991c4decca4832b1d19036c4c65')(u'spielwiese', '648d28f488f6ff08f5607ff229b9ad9e4a5b93c2')
Children:
adc638370441b8c15875bd2cf8fe7167400781c8
Parents:
e95eaa7b5b685b96b727289d96557b7d1b0984d4
Message:
Handling of non-minimized Betti numbers


git-svn-id: file:///usr/local/Singular/svn/trunk@4213 2c84dea3-7e68-4137-9b89-c4e89433aadc
Location:
Singular
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • Singular/syz.cc

    re95eaa7 r0146ce  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: syz.cc,v 1.35 2000-02-29 10:46:03 siebert Exp $ */
     4/* $Id: syz.cc,v 1.36 2000-03-22 08:56:04 siebert Exp $ */
    55
    66/*
     
    230230
    231231/*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
    233234*/
    234235void syGaussForOne(ideal syz, int elnum, int ModComp,int from,int till)
  • Singular/syz1.cc

    re95eaa7 r0146ce  
    22*  Computer Algebra System SINGULAR     *
    33****************************************/
    4 /* $Id: syz1.cc,v 1.56 2000-03-01 16:08:37 Singular Exp $ */
     4/* $Id: syz1.cc,v 1.57 2000-03-22 08:56:05 siebert Exp $ */
    55/*
    66* ABSTRACT: resolutions
     
    17501750  if (syzstr->betti!=NULL)
    17511751  {
    1752     return ivCopy(syzstr->betti);
     1752    if (minim || (syzstr->resPairs!=NULL))
     1753      return ivCopy(syzstr->betti);
    17531754  }
    17541755  intvec *result;
     
    18051806      }
    18061807    }
    1807     syzstr->betti = result;
    18081808  }
    18091809  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);
    18111811  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;
    18141816}
    18151817
Note: See TracChangeset for help on using the changeset viewer.