Changeset 84db93f in git for Singular/ideals.cc
- Timestamp:
- Nov 25, 1999, 2:12:27 PM (24 years ago)
- Branches:
- (u'spielwiese', '5b153614cbc72bfa198d75b1e9e33dab2645d9fe')
- Children:
- 24e55d9c9c4da931e0ed35d289b334426b6ab185
- Parents:
- b9ce2a5eabe5f00663bb9ef2e4e9ca761079d6dd
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/ideals.cc
rb9ce2a r84db93f 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: ideals.cc,v 1.7 8 1999-11-24 14:07:21 obachmanExp $ */4 /* $Id: ideals.cc,v 1.79 1999-11-25 13:12:24 siebert Exp $ */ 5 5 /* 6 6 * ABSTRACT - all basic methods to manipulate ideals … … 1353 1353 int i, j, k, length=0,reg; 1354 1354 BOOLEAN isMonomial=TRUE; 1355 int ii; 1355 1356 1356 1357 #ifdef PDEBUG 1357 int ii;1358 1358 for(ii=0;ii<IDELEMS(h1);ii++) pTest(h1->m[ii]); 1359 1359 #endif 1360 1360 if (idIs0(h1)) 1361 return idFreeModule(IDELEMS(h1)); 1361 { 1362 ideal result=idFreeModule(IDELEMS(h1)); 1363 int curr_syz_limit=rGetCurrSyzLimit(); 1364 if (curr_syz_limit>0) 1365 for (ii=0;ii<IDELEMS(h1);ii++) 1366 { 1367 if (h1->m[ii]!=NULL) 1368 pShift(&h1->m[ii],curr_syz_limit); 1369 } 1370 return result; 1371 } 1362 1372 k=max(1,idRankFreeModule(h1)); 1363 1373 … … 1456 1466 } 1457 1467 idTest(s_h3); 1468 if (currQuotient != NULL) 1469 { 1470 ideal ts_h3=kStd(s_h3,currQuotient,h,w); 1471 idDelete(&s_h3); 1472 s_h3 = ts_h3; 1473 } 1458 1474 return s_h3; 1459 1475 } … … 3243 3259 /*2 3244 3260 * returns the presentation of an isomorphic, minimally 3245 * embedded module 3261 * embedded module (arg represents the quotient!) 3246 3262 */ 3247 3263 ideal idMinEmbedding(ideal arg,BOOLEAN inPlace)
Note: See TracChangeset
for help on using the changeset viewer.