00001
00002
00003
00004
00005
00006
00007
00008
00009 #include <algorithm>
00010 #include <vector>
00011 #include <queue>
00012 #include "groebner_alg.h"
00013 #if HAVE_M4RI
00014 extern "C"{
00015 #include "m4ri/m4ri.h"
00016 }
00017 #endif
00018 #ifndef PBORI_GB_NF_H
00019 #define PBORI_GB_NF_H
00020 BEGIN_NAMESPACE_PBORIGB
00021
00022
00023 void drawmatrix(mzd_t* mat, const char* filename);
00024
00025 Polynomial add_up_exponents(const std::vector<Exponent>& vec);
00026 Polynomial add_up_monomials(const std::vector<Monomial>& res_vec);
00027
00028
00029 int select_no_deg_growth(const ReductionStrategy& strat, const Monomial& m);
00030
00031
00032
00033
00034 class LMLessCompare{
00035 public:
00036 bool operator() (const Polynomial& p1, const Polynomial& p2){
00037 return p1.lead()<p2.lead();
00038 }
00039 };
00040
00041 const int SLIMGB_SIMPLEST=0;
00042 template<int variant> class SlimgbReduction{
00043 private:
00044 GroebnerStrategy* strat;
00045 std::priority_queue<Polynomial, std::vector<Polynomial>, LMLessCompare> to_reduce;
00046 public:
00047 std::vector<Polynomial> result;
00048
00049 SlimgbReduction(GroebnerStrategy& strat){
00050 this->strat=&strat;
00051 }
00052 SlimgbReduction(){}
00053 void addPolynomial(const Polynomial& p);
00054 void reduce();
00055
00056 Polynomial nextResult();
00057 };
00058 template <int variant> void SlimgbReduction<variant>::addPolynomial(const Polynomial& p){
00059 if (!(p.isZero())){
00060 to_reduce.push(p);
00061 }
00062 }
00063 template <int variant> Polynomial SlimgbReduction<variant>::nextResult(){
00064 if (result.size()==0) return Polynomial();
00065 Polynomial res=result.back();
00066 result.pop_back();
00067 return res;
00068 }
00069 typedef SlimgbReduction<SLIMGB_SIMPLEST> slimgb_reduction_type;
00070 std::vector<Polynomial> parallel_reduce(std::vector<Polynomial> inp, GroebnerStrategy& strat, int average_steps, double delay_f);
00071 Polynomial red_tail(const ReductionStrategy& strat, Polynomial p);
00072 Polynomial red_tail_short(const ReductionStrategy& strat, Polynomial p);
00073 Polynomial nf3(const ReductionStrategy& strat, Polynomial p, Monomial rest_lead);
00074 Polynomial nf3_short(const ReductionStrategy& strat, Polynomial p);
00075 Polynomial ll_red_nf(const Polynomial& p,const BooleSet& reductors);
00076
00077 Polynomial ll_red_nf_noredsb(const Polynomial& p,const BooleSet& reductors);
00078 Polynomial add_up_polynomials(const std::vector<Polynomial>& vec);
00079 Polynomial plug_1(const Polynomial& p, const MonomialSet& m_plus_ones);
00080 MonomialSet mod_mon_set(const MonomialSet& as, const MonomialSet &vs);
00081 std::vector<Polynomial> gauss_on_polys(const std::vector<Polynomial>& orig_system);
00082 Polynomial ll_red_nf_noredsb_single_recursive_call(const Polynomial& p,const BooleSet& reductors);
00083 END_NAMESPACE_PBORIGB
00084 #endif