| 2154 | } |
| 2155 | |
| 2156 | static ideal getModuleComp(ideal A, int c, const ring src) |
| 2157 | { |
| 2158 | ideal res=idInit(IDELEMS(A),A->rank); |
| 2159 | for (int i=0;i<IDELEMS(A);i++) |
| 2160 | { |
| 2161 | if ((A->m[i]!=NULL) && (p_GetComp(A->m[i],src)==c)) |
| 2162 | res->m[i]=p_Head(A->m[i],src); |
| 2163 | } |
| 2164 | return res; |
| 2165 | } |
| 2166 | |
| 2167 | intvec* hFirstSeries(ideal A,intvec *module_w,ideal Q, intvec *wdegree) |
| 2168 | { |
no test coverage detected