1 | /** Copyright 1996 Michael Messollen. All rights reserved. */ |
---|
2 | //////////////////////////////////////////////////////////// |
---|
3 | // emacs edit mode for this file is -*- C++ -*- |
---|
4 | // $Id: helpstuff.h,v 1.2 1997-06-09 15:56:09 Singular Exp $ |
---|
5 | //////////////////////////////////////////////////////////// |
---|
6 | #ifndef HELPSTUFF_H |
---|
7 | #define HELPSTUFF_H |
---|
8 | bool mydivremt ( const CanonicalForm&, const CanonicalForm&, CanonicalForm&, CanonicalForm& ); |
---|
9 | /////////////////////////////////////////////////////////////// |
---|
10 | // Now some procedures used in MVMultiHensel and in Truefactors |
---|
11 | /////////////////////////////////////////////////////////////// |
---|
12 | CanonicalForm mod_power( const CanonicalForm & f, int k, int levelU); |
---|
13 | int subvardegree( const CanonicalForm & F, int levelF ); |
---|
14 | CanonicalForm change_poly( const CanonicalForm & f , const SFormList & Substitutionlist, int directionback ); |
---|
15 | |
---|
16 | /////////////////////////////////////////////////////////////// |
---|
17 | // Now some procedures used in SqrFree and in Factor |
---|
18 | /////////////////////////////////////////////////////////////// |
---|
19 | CFFList myappend( const CFFList & Inputlist, const CFFactor & TheFactor) ; |
---|
20 | CFFList myUnion(const CFFList & Inputlist1,const CFFList & Inputlist2); |
---|
21 | int Powerup( const int base , const int exp=1); |
---|
22 | inline int min ( const int a, const int b ){ |
---|
23 | return (a<=b ? a:b); |
---|
24 | } |
---|
25 | inline int max ( const int a, const int b ){ |
---|
26 | return (a>b ? a:b); |
---|
27 | } |
---|
28 | ////////////////// |
---|
29 | // For testing // |
---|
30 | ////////////////// |
---|
31 | #ifdef SPARSEGCD |
---|
32 | #include "gcd.h" |
---|
33 | #define mygcd(f,g) \ |
---|
34 | ((CanonicalForm) sparsemod( f, g )) |
---|
35 | #else |
---|
36 | #define mygcd(f,g) \ |
---|
37 | ((CanonicalForm) gcd( f, g )) |
---|
38 | #endif |
---|
39 | |
---|
40 | #endif /* HELPSTUFF_H */ |
---|
41 | |
---|
42 | /////////////////////////////////////////////////////////////////////////////// |
---|
43 | /* |
---|
44 | $Log: not supported by cvs2svn $ |
---|
45 | Revision 1.2 1997/04/25 22:23:49 michael |
---|
46 | Version for libfac-0.2.1 |
---|
47 | |
---|
48 | */ |
---|