Changeset 49f194f in git
- Timestamp:
- Jan 14, 2002, 3:21:59 PM (22 years ago)
- Branches:
- (u'spielwiese', 'e7cc1ebecb61be8b9ca6c18016352af89940b21a')
- Children:
- 04c34487b9081fb3d8f6cb1dfa704d69627ea0fd
- Parents:
- 16acb09611f2c0a2a96a2f0c68f766df486a05bb
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/syz0.cc
r16acb0 r49f194f 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: syz0.cc,v 1.3 8 2001-10-09 16:36:25Singular Exp $ */4 /* $Id: syz0.cc,v 1.39 2002-01-14 14:21:59 Singular Exp $ */ 5 5 /* 6 6 * ABSTRACT: resolutions … … 217 217 if (rkF>0) 218 218 rSetSyzComp(rkF); 219 else 219 else 220 220 rSetSyzComp(1); 221 221 /*----------------creating S--------------------------------*/ … … 857 857 //idPrint(res[start]); 858 858 start++; 859 } 859 } 860 860 } 861 861 … … 1009 1009 syStrategy sySchreyer(ideal arg, int maxlength) 1010 1010 { 1011 int rl; 1012 resolvente fr = sySchreyerResolvente(arg,maxlength,&(rl)); 1013 if (fr==NULL) return NULL; 1014 1011 1015 int typ0; 1012 1016 syStrategy result=(syStrategy)omAlloc0(sizeof(ssyStrategy)); 1013 1014 resolvente fr = sySchreyerResolvente(arg,maxlength,&(result->length)); 1015 result->fullres = (resolvente)omAlloc0((result->length+1)*sizeof(ideal)); 1016 for (int i=result->length-1;i>=0;i--) 1017 result->length=rl; 1018 result->fullres = (resolvente)omAlloc0((rl /*result->length*/+1)*sizeof(ideal)); 1019 for (int i=rl /*result->length*/-1;i>=0;i--) 1017 1020 { 1018 1021 if (fr[i]!=NULL) … … 1020 1023 fr[i] = NULL; 1021 1024 } 1022 omFreeSize((ADDRESS)fr,(r esult->length)*sizeof(ideal));1025 omFreeSize((ADDRESS)fr,(rl /*result->length*/)*sizeof(ideal)); 1023 1026 return result; 1024 1027 }
Note: See TracChangeset
for help on using the changeset viewer.