| 4648 | } |
| 4649 | |
| 4650 | BOOLEAN nuMPResMat( leftv res, leftv arg1, leftv arg2 ) |
| 4651 | { |
| 4652 | ideal gls = (ideal)(arg1->Data()); |
| 4653 | int imtype= (int)(long)arg2->Data(); |
| 4654 | |
| 4655 | uResultant::resMatType mtype= determineMType( imtype ); |
| 4656 | |
| 4657 | // check input ideal ( = polynomial system ) |
| 4658 | if ( mprIdealCheck( gls, arg1->Name(), mtype, true ) != mprOk ) |
| 4659 | { |
| 4660 | return TRUE; |
| 4661 | } |
| 4662 | |
| 4663 | uResultant *resMat= new uResultant( gls, mtype, false ); |
| 4664 | if (resMat!=NULL) |
| 4665 | { |
| 4666 | res->rtyp = MODUL_CMD; |
| 4667 | res->data= (void*)resMat->accessResMat()->getMatrix(); |
| 4668 | if (!errorreported) delete resMat; |
| 4669 | } |
| 4670 | return errorreported; |
| 4671 | } |
| 4672 | |
| 4673 | BOOLEAN nuLagSolve( leftv res, leftv arg1, leftv arg2, leftv arg3 ) |
| 4674 | { |
nothing calls this directly
no test coverage detected