58 ideal I=(ideal)v->
Data();
80 result=
idInit(ideal_length,1);
88 pTest(iT->info->root);
94 result->m[ideal_length-ideal_index-1]=
pCopy(iT->info->root);
96 result->m[ideal_length-ideal_index-1]
97 =
pNeg(result->m[ideal_length-ideal_index-1]);
104 result->m[ideal_length-ideal_index-1]=
pCopy(iT->info->root);
106 result->m[ideal_length-ideal_index-1]
107 =
pNeg(result->m[ideal_length-ideal_index-1]);
114 if ((flag==1) && (dpO==0))
120 res->
data = (
char *)result;
131 if (!is_zero) result->m[0]=
pOne();
132 res->
data = (
char *)result;
static BOOLEAN jInitBasis(ideal v, jList **TT, jList **QQ)
void DestroyList(jList *x)
static number & pGetCoeff(poly p)
return an alias to the leading coefficient of p assumes that p != NULL NOTE: not copy ...
ring currRing
Widely used global variable which specifies the current polynomial ring for Singular interpreter and ...
long p_Deg(poly a, const ring r)
#define pIsConstant(p)
like above, except that Comp might be != 0
ideal kInterRedOld(ideal F, ideal Q)
void idSkipZeroes(ideal ide)
gives an ideal/module the minimal possible size
ideal idInit(int idsize, int rank)
initialise an ideal / module
#define pCopy(p)
return a copy of the poly