2 * substitute the n-th parameter by the poly e in id * does not destroy id and e */
| 383 | * does not destroy id and e |
| 384 | */ |
| 385 | ideal idSubstPar(ideal id, int n, poly e) |
| 386 | { |
| 387 | int k=MATROWS((matrix)id)*MATCOLS((matrix)id); |
| 388 | ideal res=(ideal)mpNew(MATROWS((matrix)id),MATCOLS((matrix)id)); |
| 389 | |
| 390 | res->rank = id->rank; |
| 391 | for(k--;k>=0;k--) |
| 392 | { |
| 393 | res->m[k]=pSubstPar(id->m[k],n,e); |
| 394 | } |
| 395 | return res; |
| 396 | } |
| 397 | |
| 398 | /*2 |
| 399 | * substitutes the variable var (from 1..N) by image, |
no test coverage detected