| 32 | void wGcd(int *x, int n); |
| 33 | |
| 34 | static void wDimensions(poly* s, int sl, int *lpol, int *npol, int *mons) |
| 35 | { |
| 36 | int i, i1, j, k; |
| 37 | poly p, q; |
| 38 | |
| 39 | i1 = j = 0; |
| 40 | for (i = 0; i <= sl; i++) |
| 41 | { |
| 42 | p = s[i]; |
| 43 | if (p!=NULL) |
| 44 | { |
| 45 | k = 1; |
| 46 | q = pNext(p); |
| 47 | while (q!=NULL) |
| 48 | { |
| 49 | k++; |
| 50 | q = pNext(q); |
| 51 | } |
| 52 | if (k > 1) |
| 53 | { |
| 54 | lpol[i1++] = k; |
| 55 | j += k; |
| 56 | } |
| 57 | } |
| 58 | } |
| 59 | *npol = i1; |
| 60 | *mons = j; |
| 61 | } |
| 62 | |
| 63 | |
| 64 | static void wInit(poly* s, int sl, int mons, int *A, const ring R) |