COIN-OR::LEMON - Graph Library

source: lemon-main/test/mip_test.cc @ 842:c2ff0a365245

Last change on this file since 842:c2ff0a365245 was 748:4792459983d0, checked in by Alpar Juttner <alpar@…>, 15 years ago

Fix (and improve) error message in mip_test.cc (#317)

File size: 3.0 KB
RevLine 
[458]1/* -*- mode: C++; indent-tabs-mode: nil; -*-
2 *
3 * This file is a part of LEMON, a generic C++ optimization library.
4 *
[551]5 * Copyright (C) 2003-2009
[458]6 * Egervary Jeno Kombinatorikus Optimalizalasi Kutatocsoport
7 * (Egervary Research Group on Combinatorial Optimization, EGRES).
8 *
9 * Permission to use, modify and distribute this software is granted
10 * provided that this copyright notice appears in all copies. For
11 * precise terms see the accompanying LICENSE file.
12 *
13 * This software is provided "AS IS" with no warranty of any kind,
14 * express or implied, and with no claim as to its suitability for any
15 * purpose.
16 *
17 */
18
19#include "test_tools.h"
20
21#include <lemon/config.h>
22
[627]23#ifdef LEMON_HAVE_CPLEX
[461]24#include <lemon/cplex.h>
[458]25#endif
26
[627]27#ifdef LEMON_HAVE_GLPK
[461]28#include <lemon/glpk.h>
[458]29#endif
30
[627]31#ifdef LEMON_HAVE_CBC
[567]32#include <lemon/cbc.h>
33#endif
34
[458]35
36using namespace lemon;
37
[459]38void solveAndCheck(MipSolver& mip, MipSolver::ProblemType stat,
[458]39                   double exp_opt) {
40  using std::string;
41
[459]42  mip.solve();
[458]43  //int decimal,sign;
44  std::ostringstream buf;
[459]45  buf << "Type should be: " << int(stat)<<" and it is "<<int(mip.type());
[458]46
47
48  //  itoa(stat,buf1, 10);
[459]49  check(mip.type()==stat, buf.str());
[458]50
[459]51  if (stat ==  MipSolver::OPTIMAL) {
[458]52    std::ostringstream sbuf;
[748]53    sbuf << "Wrong optimal value ("<< mip.solValue()
54         <<" instead of " << exp_opt << ")";
[459]55    check(std::abs(mip.solValue()-exp_opt) < 1e-3, sbuf.str());
[458]56    //+ecvt(exp_opt,2)
57  }
58}
59
[459]60void aTest(MipSolver& mip)
[458]61{
[567]62  //The following example is very simple
[458]63
64
[459]65  typedef MipSolver::Row Row;
66  typedef MipSolver::Col Col;
[458]67
68
69  Col x1 = mip.addCol();
70  Col x2 = mip.addCol();
71
72
73  //Objective function
74  mip.obj(x1);
75
76  mip.max();
77
78  //Unconstrained optimization
79  mip.solve();
80  //Check it out!
81
82  //Constraints
[567]83  mip.addRow(2 * x1 + x2 <= 2);
84  Row y2 = mip.addRow(x1 - 2 * x2 <= 0);
[458]85
86  //Nonnegativity of the variable x1
87  mip.colLowerBound(x1, 0);
88
[567]89
[458]90  //Maximization of x1
91  //over the triangle with vertices (0,0),(4/5,2/5),(0,2)
92  double expected_opt=4.0/5.0;
[459]93  solveAndCheck(mip, MipSolver::OPTIMAL, expected_opt);
[458]94
[567]95
[458]96  //Restrict x2 to integer
[459]97  mip.colType(x2,MipSolver::INTEGER);
[458]98  expected_opt=1.0/2.0;
[459]99  solveAndCheck(mip, MipSolver::OPTIMAL, expected_opt);
[458]100
101
102  //Restrict both to integer
[459]103  mip.colType(x1,MipSolver::INTEGER);
[458]104  expected_opt=0;
[459]105  solveAndCheck(mip, MipSolver::OPTIMAL, expected_opt);
[458]106
[567]107  //Erase a variable
108  mip.erase(x2);
109  mip.rowUpperBound(y2, 8);
110  expected_opt=1;
111  solveAndCheck(mip, MipSolver::OPTIMAL, expected_opt);
[458]112
113}
114
[567]115
[540]116template<class MIP>
117void cloneTest()
118{
[551]119
[540]120  MIP* mip = new MIP();
121  MIP* mipnew = mip->newSolver();
122  MIP* mipclone = mip->cloneSolver();
123  delete mip;
124  delete mipnew;
125  delete mipclone;
126}
[458]127
128int main()
129{
130
[627]131#ifdef LEMON_HAVE_GLPK
[459]132  {
[462]133    GlpkMip mip1;
[459]134    aTest(mip1);
[540]135    cloneTest<GlpkMip>();
[459]136  }
[458]137#endif
138
[627]139#ifdef LEMON_HAVE_CPLEX
[459]140  try {
[462]141    CplexMip mip2;
[459]142    aTest(mip2);
[551]143    cloneTest<CplexMip>();
[459]144  } catch (CplexEnv::LicenseError& error) {
145    check(false, error.what());
146  }
[458]147#endif
148
[627]149#ifdef LEMON_HAVE_CBC
[567]150  {
151    CbcMip mip1;
152    aTest(mip1);
153    cloneTest<CbcMip>();
154  }
155#endif
156
[458]157  return 0;
158
159}
Note: See TracBrowser for help on using the repository browser.