47{
51
52 eledeg--;
53 if (eledeg == 0)
54 {
56 {
59 for(
i=strat->
sl;
i>0;
i--)
60 {
62 }
63 for(
i=strat->
ak;
i>0;
i--)
64 {
65 if(used_comp[
i]==
'\0')
66 {
68 return;
69 }
70 }
72 }
74
75
77
84 {
85 if (deg < ln)
86 {
88 {
92 }
93 else
95 }
96 else
97 {
100 else
101 {
103 {
106 {
109 }
111 }
112 delete newhilb;
113 return;
114 }
115 }
116 if (eledeg > 0)
117 break;
118 else if (eledeg <0)
119 return;
120 deg++;
121 }
122 delete newhilb;
123 while ((strat->
Ll>=0) && (degp(strat->
L[strat->
Ll].p,
currRing)-mw < deg))
124 {
127 {
130 }
132 }
133 }
134}
#define BIMATELEM(M, I, J)
static FORCE_INLINE long n_Int(number &n, const coeffs r)
conversion of n to an int; 0 if not possible in Z/pZ: the representing int lying in (-p/2 ....
static FORCE_INLINE number n_Sub(number a, number b, const coeffs r)
return the difference of 'a' and 'b', i.e., a-b
const CanonicalForm int s
bigintmat * hFirstSeries0b(ideal I, ideal Q, intvec *wdegree, intvec *shifts, const ring src, const coeffs biv_cf)
long kHomModDeg(poly p, const ring r)
long kModDeg(poly p, const ring r)
void deleteInL(LSet set, int *length, int j, kStrategy strat)
static long p_Totaldegree(poly p, const ring r)
VAR ring currRing
Widely used global variable which specifies the current polynomial ring for Singular interpreter and ...
#define pGetComp(p)
Component.
void PrintS(const char *s)
long(* pFDegProc)(poly p, ring r)
int status int void size_t count