Changeset 7de8e4 in git for Singular/LIB/qhmoduli.lib
- Timestamp:
- Apr 6, 2009, 11:48:23 AM (14 years ago)
- Branches:
- (u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')
- Children:
- 1a3911abf7c4f6cd8f297ffcc0771fef2ae9389b
- Parents:
- 0bc582ce3f42d033e854938a1175f56baba17b23
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Singular/LIB/qhmoduli.lib
r0bc582c r7de8e4 1 1 /////////////////////////////////////////////////////////////////////////////// 2 version="$Id: qhmoduli.lib,v 1.1 2 2008-10-01 15:29:23 SingularExp $";2 version="$Id: qhmoduli.lib,v 1.13 2009-04-06 09:48:23 seelisch Exp $"; 3 3 category="Singularities"; 4 4 info=" … … 480 480 " 481 481 { 482 int i, j, c, k, r, nrVars, offset, n, sln, dbPrt;482 int i, j, c, d, k, r, nrVars, offset, n, sln, dbPrt; 483 483 list Variables, rd, temp, sList, varSubsList; 484 484 poly mPoly; 485 485 string ringSTR, ringSTR1, varString, parString; 486 matrix newcoMx, coMx; 486 487 487 488 dbPrt = printlevel-voice+2; … … 555 556 f = data[r]; 556 557 f1 = F(f); 557 intd = deg(f);558 matrixnewcoMx = coef(f1, vars); // coefficients of F(f)559 matrixcoMx = coef(f, vars); // coefficients of f558 d = deg(f); 559 newcoMx = coef(f1, vars); // coefficients of F(f) 560 coMx = coef(f, vars); // coefficients of f 560 561 561 562 for(i = 1; i <= ncols(newcoMx); i = i + 1) { // build the system of eqns via coeff. comp.
Note: See TracChangeset
for help on using the changeset viewer.