1 | #ifndef WEIGHT_H |
---|
2 | #define WEIGHT_H |
---|
3 | /**************************************** |
---|
4 | * Computer Algebra System SINGULAR * |
---|
5 | ****************************************/ |
---|
6 | /* |
---|
7 | * ABSTRACT |
---|
8 | */ |
---|
9 | |
---|
10 | #include <polys/monomials/ring.h> |
---|
11 | |
---|
12 | extern short * ecartWeights; |
---|
13 | //extern pFDegProc pFDegOld; |
---|
14 | //extern pLDegProc pLDegOld; |
---|
15 | |
---|
16 | void kEcartWeights(poly* s, int sl, short *eweight, const ring R); |
---|
17 | //BOOLEAN kWeight(leftv res,leftv id); |
---|
18 | //BOOLEAN kQHWeight(leftv res,leftv v); |
---|
19 | long maxdegreeWecart(poly p,int *l, ring r); |
---|
20 | long totaldegreeWecart(poly p, ring r); |
---|
21 | long totaldegreeWecart_IV(poly p, ring r, const short *w); |
---|
22 | |
---|
23 | short * iv2array(intvec * iv, const ring R); |
---|
24 | |
---|
25 | // internal: |
---|
26 | extern "C" double (*wFunctional)(int *degw, int *lpol, int npol, |
---|
27 | double *rel, double wx, double wNsqr); |
---|
28 | extern "C" double wFunctionalBuch(int *degw, int *lpol, int npol, |
---|
29 | double *rel, double wx, double wNsqr); |
---|
30 | void wCall(poly* s, int sl, int *x, double wNsqr, const ring R); |
---|
31 | |
---|
32 | #endif |
---|
33 | |
---|