3 * compute for monomials p*q * keeps p, q * uses bin only available in MCPower */
| 453 | * uses bin only available in MCPower |
| 454 | */ |
| 455 | static poly p_MonMultCMB(poly p, poly q, ring r) |
| 456 | { |
| 457 | number x; |
| 458 | poly res = p_Init(r,lm_bin); |
| 459 | |
| 460 | x = n_Mult(p_GetCoeff(p,r),p_GetCoeff(q,r),r->cf); |
| 461 | p_SetCoeff0(res,x,r); |
| 462 | p_ExpVectorSum(res,p, q,r); |
| 463 | return res; |
| 464 | } |
| 465 | // unused |
| 466 | #if 0 |
| 467 | static poly p_MonPowerMB(poly p, int exp, ring r) |
no test coverage detected