Go to the source code of this file.
◆ btest()
Definition at line 81 of file freealgebra.cc.
86 poly
p=(poly)
h->Data();
BOOLEAN iiCheckTypes(leftv args, const short *type_list, int report)
check a list of arguemys against a given field of types return TRUE if the types match return FALSE (...
◆ freeAlgebra()
Definition at line 12 of file freealgebra.cc.
18 ring r=(ring)args->
Data();
29 else if ((r->block0[
i]==1)&&(r->block1[
i]==r->N))
i++;
32 WerrorS(
"only for rings with a global ordering of one block");
39 WerrorS(
"only for rings with a global ordering of one block");
void WerrorS(const char *s)
static BOOLEAN freeAlgebra(leftv res, leftv args)
BOOLEAN rHasLocalOrMixedOrdering(const ring r)
◆ freealgebra()
Definition at line 160 of file freealgebra.cc.
168 p->iiAddCproc(
"freealgebra.so",
"stest",
TRUE,
stest);
169 p->iiAddCproc(
"freealgebra.so",
"btest",
TRUE,
btest);
static BOOLEAN lpUfnarovskiGraph(leftv res, leftv h)
static BOOLEAN lpVarAt(leftv res, leftv h)
static BOOLEAN btest(leftv res, leftv h)
static BOOLEAN lpLmDivides(leftv res, leftv h)
static BOOLEAN stest(leftv res, leftv args)
◆ lpLmDivides()
Definition at line 94 of file freealgebra.cc.
100 poly
p=(poly)
h->Data();
101 poly q=(poly)
h->next->Data();
108 ideal I=(ideal)
h->Data();
109 poly q=(poly)
h->next->Data();
VAR ring currRing
Widely used global variable which specifies the current polynomial ring for Singular interpreter and ...
BOOLEAN p_LPDivisibleBy(poly a, poly b, const ring r)
◆ lpUfnarovskiGraph()
Definition at line 131 of file freealgebra.cc.
136 ideal I = (ideal)
h->Data();
147 li->
m[1].
data=standardWords;
INLINE_THIS void Init(int l=0)
intvec * lp_ufnarovskiGraph(ideal G, ideal &standardWords)
◆ lpVarAt()
Definition at line 117 of file freealgebra.cc.
122 poly
p=(poly)
h->Data();
123 int pos=(int)((
long)(
h->next->Data()));
poly p_LPVarAt(poly p, int pos, const ring r)
◆ stest()
Definition at line 54 of file freealgebra.cc.
59 poly
p=(poly)args->
CopyD();
61 int sh=(int)((
long)(args->
Data()));
64 WerrorS(
"negative shift for pLPshift");
70 WerrorS(
"pLPshift: too big shift requested\n");
void p_LPshift(poly p, int sh, const ring ri)