* creates an intvec of the monomial order dp(ivstart) * *****************************************************************************/
| 1455 | * creates an intvec of the monomial order dp(ivstart) * |
| 1456 | *****************************************************************************/ |
| 1457 | intvec* MivWeightOrderdp(intvec* ivstart) |
| 1458 | { |
| 1459 | int i; |
| 1460 | int nV = ivstart->length(); |
| 1461 | intvec* ivM = new intvec(nV*nV); |
| 1462 | |
| 1463 | for(i=0; i<nV; i++) |
| 1464 | { |
| 1465 | (*ivM)[i] = (*ivstart)[i]; |
| 1466 | } |
| 1467 | for(i=0; i<nV; i++) |
| 1468 | { |
| 1469 | (*ivM)[nV+i] = 1; |
| 1470 | } |
| 1471 | for(i=2; i<nV; i++) |
| 1472 | { |
| 1473 | (*ivM)[(i+1)*nV - i] = -1; |
| 1474 | } |
| 1475 | return(ivM); |
| 1476 | } |
| 1477 | |
| 1478 | //unused |
| 1479 | /* |