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