* Substract two given intvecs componentwise * *****************************************************/
| 860 | * Substract two given intvecs componentwise * |
| 861 | *****************************************************/ |
| 862 | static intvec* MivSub(intvec* a, intvec* b) |
| 863 | { |
| 864 | assume( a->length() == b->length()); |
| 865 | int i, n = a->length(); |
| 866 | intvec* result = new intvec(n); |
| 867 | |
| 868 | for(i=n-1; i>=0; i--) |
| 869 | { |
| 870 | (*result)[i] = (*a)[i] - (*b)[i]; |
| 871 | } |
| 872 | return result; |
| 873 | } |
| 874 | |
| 875 | /***************************************************** |
| 876 | * return the "intvec" lead exponent of a polynomial * |
no test coverage detected