athos@2149: #include "test_tools.h"
athos@2146: 
athos@2218: 
athos@2221: #ifdef HAVE_CONFIG_H
athos@2221: #include <config.h>
athos@2221: #endif
athos@2221: 
deba@2227: #ifdef HAVE_CPLEX
deba@2227: #include <lemon/mip_cplex.h>
deba@2227: #endif
deba@2227: 
deba@2227: #ifdef HAVE_GLPK
deba@2227: #include <lemon/mip_glpk.h>
deba@2227: #endif
athos@2221: 
athos@2218: 
athos@2146: using namespace lemon;
athos@2146: 
athos@2218: void solveAndCheck(MipSolverBase& lp, MipSolverBase::SolutionStatus stat, 
athos@2149: 		   double exp_opt) {
athos@2149:   using std::string;
athos@2218: 
athos@2149:   lp.solve();
athos@2149:   //int decimal,sign;
athos@2149:   std::ostringstream buf;
athos@2149:   buf << "Primalstatus should be: " << int(stat)<<" and it is "<<int(lp.primalStatus());
athos@2146: 
athos@2218: 
athos@2149:   //  itoa(stat,buf1, 10);
athos@2213:   check(lp.mipStatus()==stat, buf.str());
athos@2149: 
athos@2218:   if (stat ==  MipSolverBase::OPTIMAL) {
athos@2149:     std::ostringstream buf;
athos@2149:     buf << "Wrong optimal value: the right optimum is " << exp_opt; 
athos@2149:     check(std::abs(lp.primalValue()-exp_opt) < 1e-3, buf.str());
athos@2149:     //+ecvt(exp_opt,2)
athos@2149:   }
athos@2149: }
athos@2149: 
athos@2218: void aTest(MipSolverBase& mip)
athos@2149: {
athos@2149:  //The following example is very simple
athos@2149: 
athos@2218: 
athos@2218:   typedef MipSolverBase::Row Row;
athos@2218:   typedef MipSolverBase::Col Col;
athos@2218: 
athos@2149: 
athos@2149: 
athos@2149:   Col x1 = mip.addCol();
athos@2149:   Col x2 = mip.addCol();
athos@2149: 
athos@2149: 
athos@2213:   //Objective function
athos@2213:   mip.setObj(x1);
athos@2213: 
athos@2213:   mip.max();
athos@2213: 
athos@2213: 
athos@2213:   //Unconstrained optimization
athos@2213:   mip.solve();
athos@2213:   //Check it out!
athos@2213: 
athos@2149:   //Constraints
athos@2149:   mip.addRow(2*x1+x2 <=2);  
athos@2149:   mip.addRow(x1-2*x2 <=0);  
athos@2149: 
athos@2149:   //Nonnegativity of the variable x1
athos@2149:   mip.colLowerBound(x1, 0);
athos@2149: 
athos@2149: 
athos@2149: 
athos@2149:   //Maximization of x1
athos@2221:   //over the triangle with vertices (0,0),(4/5,2/5),(0,2)
athos@2149:   double expected_opt=4.0/5.0;
athos@2218:   solveAndCheck(mip, MipSolverBase::OPTIMAL, expected_opt);
athos@2149: 
athos@2149:   //Restrict x2 to integer
athos@2218:   mip.colType(x2,MipSolverBase::LEMON_INTEGER);  
athos@2149:   expected_opt=1.0/2.0;
athos@2218:   solveAndCheck(mip, MipSolverBase::OPTIMAL, expected_opt);
athos@2149: 
athos@2149: 
athos@2149:   //Restrict both to integer
athos@2218:   mip.colType(x1,MipSolverBase::LEMON_INTEGER);  
athos@2149:   expected_opt=0;
athos@2218:   solveAndCheck(mip, MipSolverBase::OPTIMAL, expected_opt);
athos@2149: 
athos@2149:  
athos@2149: 
athos@2149: }
athos@2149: 
athos@2149: 
athos@2149: int main() 
athos@2149: {
athos@2146: 
athos@2147: #ifdef HAVE_GLPK
athos@2149:   MipGlpk mip1;
athos@2149:   aTest(mip1);
athos@2147: #endif
athos@2146: 
athos@2218: #ifdef HAVE_CPLEX
athos@2218:   MipCplex mip2;
athos@2218:   aTest(mip2);
athos@2218: #endif
athos@2218: 
athos@2147:   return 0;
athos@2146: 
athos@2146: }