23{
33
35
37
41
45
51
58
59
61 {
62 for(
int i=1;
i<=strat->
sl;
i++)
63 {
65 }
66 }
67 else
68 {
69 for(
int i=1;
i<=strat->
sl;
i++)
70 {
72 }
73 }
76
78 for(
int i=strat->
Ll;
i>=0;
i--)
79 {
80
81 int red_result=1;
82
83 strat->
P = strat->
L[
i];
85 {
86
93 }
94 if ((strat->
P.p ==
NULL) && (strat->
P.t_p ==
NULL))
95 {
96 red_result = 0;
97 }
98 else
99 {
102 {
103
104
105
106
107
109 red_result=0;
111 }
112 else
113 {
117 if (
p==
NULL) red_result=0;
118 #ifdef KDEBUG
119 else
120 {
122 {
124 }
125 }
126 #endif
127 }
128 }
129 if (red_result!=0)
130 {
133 }
134 }
135 return all_okay;
136}
KINLINE TObject ** initR()
KINLINE unsigned long * initsevT()
void ksCreateSpoly(LObject *Pair, poly spNoether, int use_buckets, ring tailRing, poly m1, poly m2, TObject **R)
void initBba(kStrategy strat)
poly redNF(poly h, int &max_ind, int nonorm, kStrategy strat)
void initBuchMora(ideal F, ideal Q, kStrategy strat)
void initBuchMoraPos(kStrategy strat)
void initenterpairs(poly h, int k, int ecart, int isFromQ, kStrategy strat, int atR)
void initS(ideal F, ideal Q, kStrategy strat)
BOOLEAN kCheckSpolyCreation(LObject *L, kStrategy strat, poly &m1, poly &m2)
void initBuchMoraCrit(kStrategy strat)
void messageSets(kStrategy strat)
static LSet initL(int nr=setmaxL)
#define TEST_OPT_DEGBOUND
void p_wrp(poly p, ring lmRing, ring tailRing)
VAR ring currRing
Widely used global variable which specifies the current polynomial ring for Singular interpreter and ...
static void pLmFree(poly p)
frees the space of the monomial m, assumes m != NULL coef is not freed, m is not advanced
#define pInit()
allocates a new monomial and initializes everything to 0
static BOOLEAN rIsNCRing(const ring r)
long id_RankFreeModule(ideal s, ring lmRing, ring tailRing)
return the maximal component number found in any polynomial in s