Changeset 592906 in git
- Timestamp:
- Feb 12, 2009, 2:45:23 PM (14 years ago)
- Branches:
- (u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')
- Children:
- 823ff85bb3686ca565d6b9aa91244886d77daa65
- Parents:
- f349c5396e73ff26cd89cf807a76da5f41d2bd71
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
kernel/ideals.cc
rf349c5 r592906 2 2 * Computer Algebra System SINGULAR * 3 3 ****************************************/ 4 /* $Id: ideals.cc,v 1.6 7 2009-02-12 13:31:22 motsakExp $ */4 /* $Id: ideals.cc,v 1.68 2009-02-12 13:45:23 Singular Exp $ */ 5 5 /* 6 6 * ABSTRACT - all basic methods to manipulate ideals … … 1315 1315 Print("Prepare::h2: "); 1316 1316 idPrint(h2); 1317 #endif1318 1317 #endif 1319 1318 #endif 1319 1320 1320 for (j=0; j<=i; j++) 1321 1321 { … … 1343 1343 Print("Prepare::currQuotient: "); 1344 1344 idPrint(currQuotient); 1345 #endif1346 1345 #endif 1347 1348 1346 #endif 1349 1347 1350 1348 #endif 1349 1350 1351 1351 h3 = kStd(h2,currQuotient,h,w,NULL,syzcomp); 1352 1352 idDelete(&h2); … … 1564 1564 rSetSyzComp(k); 1565 1565 1566 1566 1567 1567 #if MYTEST 1568 1568 #ifdef RDEBUG 1569 1569 rWrite(syz_ring); 1570 1570 rDebugPrint(syz_ring); 1571 #endif1572 1571 #endif 1573 1572 #endif 1573 1574 1574 ideal s_h1=h1; 1575 1575 … … 1583 1583 Print("Input: "); 1584 1584 idPrint(s_h1); 1585 #endif1586 1585 #endif 1587 1586 #endif 1587 1588 1588 1589 1589 ideal s_h3=idPrepare(s_h1,h,k,&w); … … 1593 1593 Print("Prepare: "); 1594 1594 idPrint(s_h3); 1595 #endif 1595 #endif 1596 1596 #endif 1597 1597 … … 1602 1602 Print("Temp: "); 1603 1603 idPrint(s_h2); 1604 #endif1605 1604 #endif 1606 1605 #endif 1606 1607 1607 if (w!=NULL) delete w; 1608 1608 i = 0; … … 1640 1640 Print("Input'': "); 1641 1641 idPrint(s_h3); 1642 #endif 1642 #endif 1643 1643 #endif 1644 1644 … … 1650 1650 Print("Temp Result: "); 1651 1651 idPrint(s_h2); 1652 #endif1653 1652 #endif 1654 1655 1653 #endif 1654 1655 1656 1656 if (syz_ring!=orig_ring) 1657 1657 { … … 1698 1698 Print("Output Matrix: "); 1699 1699 iiWriteMatrix(*ma, "ma", 2, 4); 1700 #endif1701 1700 #endif 1702 1701 #endif 1702 1703 1703 1704 1704 if (syz_ring!=orig_ring) rKill(syz_ring); … … 2470 2470 wCall(h1->m, sl, x, wNsqr); 2471 2471 for (sl = pVariables; sl!=0; sl--) 2472 wv[1][sl-1] = x[sl + pVariables + 1]; 2472 wv[1][sl-1] = x[sl + pVariables + 1]; 2473 2473 omFreeSize((ADDRESS)x, 2 * (pVariables + 1) * sizeof(int)); 2474 2474 … … 4051 4051 */ 4052 4052 4053 int cc = gen % m; 4053 int cc = gen % m; 4054 4054 if( cc == 0) cc = m; 4055 4055 int vv = 1 + (gen - cc) / m; … … 4068 4068 4069 4069 4070 p_ SetExp(h, vv, 1 + p_GetExp(h, vv, rRing), rRing); // h *= var(j) &&4071 p_SetComp(h, cc, rRing); 4070 p_AddExp(h, vv, 1, rRing); // h *= var(j) && 4071 p_SetComp(h, cc, rRing); 4072 4072 4073 4073 p_Setm(h, rRing); // addjust degree after the previous steps!
Note: See TracChangeset
for help on using the changeset viewer.