[35aab3] | 1 | // ---------------------------------------------------------------------------- |
---|
| 2 | // spectrum.h |
---|
| 3 | // begin of file |
---|
| 4 | // Stephan Endrass, endrass@mathematik.uni-mainz.de |
---|
| 5 | // 23.7.99 |
---|
| 6 | // ---------------------------------------------------------------------------- |
---|
| 7 | |
---|
| 8 | #ifndef SPECTRUM_H |
---|
| 9 | #define SPECTRUM_H |
---|
[599326] | 10 | #include <kernel/npolygon.h> |
---|
| 11 | #include <kernel/splist.h> |
---|
[35aab3] | 12 | |
---|
[f599a46] | 13 | /*BOOLEAN spectrumProc ( leftv,leftv ); |
---|
[35aab3] | 14 | BOOLEAN spectrumfProc( leftv,leftv ); |
---|
| 15 | BOOLEAN spaddProc ( leftv,leftv,leftv ); |
---|
| 16 | BOOLEAN spmulProc ( leftv,leftv,leftv ); |
---|
| 17 | BOOLEAN semicProc ( leftv,leftv,leftv ); |
---|
[f599a46] | 18 | BOOLEAN semicProc3 ( leftv,leftv,leftv,leftv );*/ //TODO move to kernel |
---|
| 19 | |
---|
[3835a88] | 20 | BOOLEAN hasTermOfDegree( poly h, int d, const ring r ); |
---|
| 21 | int hasOne( ideal J, const ring r ); |
---|
| 22 | BOOLEAN hasAxis( ideal J,int k, const ring r ); |
---|
| 23 | poly computeWC( const newtonPolygon &np,Rational max_weight, const ring r ); |
---|
| 24 | void computeNF( ideal stdJ,poly hc,poly wc,spectrumPolyList *NF, const ring r ); |
---|
[f599a46] | 25 | //void spectrumPrintError(spectrumState state); |
---|
[3835a88] | 26 | BOOLEAN ringIsLocal( const ring r); |
---|
[35aab3] | 27 | |
---|
[3835a88] | 28 | BOOLEAN inline hasConstTerm( poly h, const ring r ) |
---|
| 29 | { return hasTermOfDegree(h,0,r); } |
---|
| 30 | BOOLEAN inline hasLinearTerm( poly h, const ring r ) |
---|
| 31 | { return hasTermOfDegree(h,1,r); } |
---|
[35aab3] | 32 | |
---|
| 33 | |
---|
| 34 | #endif |
---|
| 35 | |
---|
| 36 | // ---------------------------------------------------------------------------- |
---|
| 37 | // spectrum.h |
---|
| 38 | // end of file |
---|
| 39 | // ---------------------------------------------------------------------------- |
---|