* return the "intvec" lead exponent of a polynomial * *****************************************************/
| 876 | * return the "intvec" lead exponent of a polynomial * |
| 877 | *****************************************************/ |
| 878 | static intvec* MExpPol(poly f) |
| 879 | { |
| 880 | int i, nR = currRing->N; |
| 881 | intvec* result = new intvec(nR); |
| 882 | |
| 883 | for(i=nR-1; i>=0; i--) |
| 884 | { |
| 885 | (*result)[i] = pGetExp(f,i+1); |
| 886 | } |
| 887 | return result; |
| 888 | } |
| 889 | |
| 890 | /***************************************************** |
| 891 | * Compare two given intvecs and return 1, if they * |