| 1 | /* Copyright 1996 Michael Messollen. All rights reserved. */ |
|---|
| 2 | //////////////////////////////////////////////////////////// |
|---|
| 3 | // emacs edit mode for this file is -*- C++ -*- |
|---|
| 4 | // $Id: csutil.h,v 1.3 1997-09-12 07:19:42 Singular Exp $ |
|---|
| 5 | //////////////////////////////////////////////////////////// |
|---|
| 6 | |
|---|
| 7 | #ifndef INCL_CSUTIL_H |
|---|
| 8 | #define INCL_CSUTIL_H |
|---|
| 9 | |
|---|
| 10 | #include <factory.h> |
|---|
| 11 | #include <tmpl_inst.h> |
|---|
| 12 | |
|---|
| 13 | // inline function's: |
|---|
| 14 | |
|---|
| 15 | inline int |
|---|
| 16 | cls ( const CanonicalForm & f ){ if ( getNumVars(f) == 0 ) {return 0;} else {return f.level();} } |
|---|
| 17 | |
|---|
| 18 | inline int |
|---|
| 19 | rank ( const CanonicalForm & f ){ return cls(f); } |
|---|
| 20 | |
|---|
| 21 | inline CanonicalForm |
|---|
| 22 | ini ( const CanonicalForm & f ){ return LC(f); } |
|---|
| 23 | |
|---|
| 24 | inline CanonicalForm |
|---|
| 25 | ini ( const CanonicalForm & f , const Variable v ){ return LC(f,v); } |
|---|
| 26 | |
|---|
| 27 | inline Variable |
|---|
| 28 | lvar ( const CanonicalForm & f ){ return f.mvar(); } |
|---|
| 29 | |
|---|
| 30 | /////////////////////////////////////////////////////////////// |
|---|
| 31 | // a class definition needed in charset.cc for Prem |
|---|
| 32 | /////////////////////////////////////////////////////////////// |
|---|
| 33 | /*BEGINPUBLIC*/ |
|---|
| 34 | |
|---|
| 35 | class PremForm { |
|---|
| 36 | public: |
|---|
| 37 | CFList FS1; |
|---|
| 38 | CFList FS2; |
|---|
| 39 | inline PremForm& operator=( const PremForm& value ){ |
|---|
| 40 | if ( this != &value ){ |
|---|
| 41 | FS1 = value.FS1; |
|---|
| 42 | FS2 = value.FS2; |
|---|
| 43 | } |
|---|
| 44 | return *this; |
|---|
| 45 | } |
|---|
| 46 | }; |
|---|
| 47 | |
|---|
| 48 | /*ENDPUBLIC*/ |
|---|
| 49 | |
|---|
| 50 | // functions from csutil.cc: |
|---|
| 51 | /*BEGINPUBLIC*/ |
|---|
| 52 | CanonicalForm Prem( const CanonicalForm &f, const CanonicalForm &g ); |
|---|
| 53 | CanonicalForm Prem( const CanonicalForm &f, const CFList &L ); |
|---|
| 54 | CFList Prem( const CFList &AS, const CFList &L ); |
|---|
| 55 | /*ENDPUBLIC*/ |
|---|
| 56 | CanonicalForm divide( const CanonicalForm & ff, const CanonicalForm & f, const CFList & as); |
|---|
| 57 | CFList remsetb( const CFList & ps, const CFList & as); |
|---|
| 58 | CanonicalForm lowestRank( const CFList & F ); |
|---|
| 59 | |
|---|
| 60 | CFList removecontent ( const CFList & PS, PremForm & Remembern ); |
|---|
| 61 | void removefactor( CanonicalForm & r , PremForm & Remembern); |
|---|
| 62 | CFList factorps( const CFList &ps ); |
|---|
| 63 | //CFList initalset(const CFList & CS); |
|---|
| 64 | CFList initalset1(const CFList & CS); |
|---|
| 65 | CFList initalset2(const CFList & CS, const CanonicalForm & reducible); |
|---|
| 66 | int irreducible( const CFList & AS); |
|---|
| 67 | CFList select( const ListCFList & PS); |
|---|
| 68 | void select( const ListCFList & ppi, int length, ListCFList & ppi1, |
|---|
| 69 | ListCFList & ppi2); |
|---|
| 70 | bool same( const CFList &A, const CFList &B ); |
|---|
| 71 | bool member( const CFList & cs, const ListCFList & pi ); |
|---|
| 72 | bool subset( const CFList &PS, const CFList &CS ); |
|---|
| 73 | ListCFList MyUnion( const ListCFList & a, const ListCFList &b ); |
|---|
| 74 | ListCFList MyDifference( const ListCFList & a, const CFList &b); |
|---|
| 75 | ListCFList Minus( const ListCFList & a, const ListCFList &b); |
|---|
| 76 | #endif /* INCL_CSUTIL_H */ |
|---|
| 77 | |
|---|
| 78 | //////////////////////////////////////////////////////////// |
|---|
| 79 | /* |
|---|
| 80 | $Log: not supported by cvs2svn $ |
|---|
| 81 | Revision 1.3 1997/04/25 22:51:48 michael |
|---|
| 82 | Version for libfac-0.2.1 |
|---|
| 83 | |
|---|
| 84 | */ |
|---|
