source: trunk/Cbc/src/CbcHeuristicDiveCoefficient.cpp @ 2280

Last change on this file since 2280 was 2280, checked in by forrest, 3 years ago

allow heuristics to see if integers are 'optional'

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 4.5 KB
Line 
1/* $Id: CbcHeuristicDiveCoefficient.cpp 2280 2016-06-14 14:39:54Z forrest $ */
2// Copyright (C) 2008, International Business Machines
3// Corporation and others.  All Rights Reserved.
4// This code is licensed under the terms of the Eclipse Public License (EPL).
5
6#if defined(_MSC_VER)
7// Turn off compiler warning about long names
8#  pragma warning(disable:4786)
9#endif
10
11//#define PRINT_DEBUG
12
13#include "CbcHeuristicDiveCoefficient.hpp"
14#include "CbcStrategy.hpp"
15
16// Default Constructor
17CbcHeuristicDiveCoefficient::CbcHeuristicDiveCoefficient()
18        : CbcHeuristicDive()
19{
20  whereFrom_ |= 16*(1+256);
21}
22
23// Constructor from model
24CbcHeuristicDiveCoefficient::CbcHeuristicDiveCoefficient(CbcModel & model)
25        : CbcHeuristicDive(model)
26{
27  whereFrom_ |= 16*(1+256);
28}
29
30// Destructor
31CbcHeuristicDiveCoefficient::~CbcHeuristicDiveCoefficient ()
32{
33}
34
35// Clone
36CbcHeuristicDiveCoefficient *
37CbcHeuristicDiveCoefficient::clone() const
38{
39    return new CbcHeuristicDiveCoefficient(*this);
40}
41
42// Create C++ lines to get to current state
43void
44CbcHeuristicDiveCoefficient::generateCpp( FILE * fp)
45{
46    CbcHeuristicDiveCoefficient other;
47    fprintf(fp, "0#include \"CbcHeuristicDiveCoefficient.hpp\"\n");
48    fprintf(fp, "3  CbcHeuristicDiveCoefficient heuristicDiveCoefficient(*cbcModel);\n");
49    CbcHeuristic::generateCpp(fp, "heuristicDiveCoefficient");
50    fprintf(fp, "3  cbcModel->addHeuristic(&heuristicDiveCoefficient);\n");
51}
52
53// Copy constructor
54CbcHeuristicDiveCoefficient::CbcHeuristicDiveCoefficient(const CbcHeuristicDiveCoefficient & rhs)
55        :
56        CbcHeuristicDive(rhs)
57{
58}
59
60// Assignment operator
61CbcHeuristicDiveCoefficient &
62CbcHeuristicDiveCoefficient::operator=( const CbcHeuristicDiveCoefficient & rhs)
63{
64    if (this != &rhs) {
65        CbcHeuristicDive::operator=(rhs);
66    }
67    return *this;
68}
69
70bool
71CbcHeuristicDiveCoefficient::selectVariableToBranch(OsiSolverInterface* solver,
72        const double* newSolution,
73        int& bestColumn,
74        int& bestRound)
75{
76    int numberIntegers = model_->numberIntegers();
77    const int * integerVariable = model_->integerVariable();
78    double integerTolerance = model_->getDblParam(CbcModel::CbcIntegerTolerance);
79
80    bestColumn = -1;
81    bestRound = -1; // -1 rounds down, +1 rounds up
82    double bestFraction = COIN_DBL_MAX;
83    int bestLocks = COIN_INT_MAX;
84    bool allTriviallyRoundableSoFar = true;
85    int bestPriority = COIN_INT_MAX;
86    for (int i = 0; i < numberIntegers; i++) {
87        int iColumn = integerVariable[i];
88        if (!isHeuristicInteger(solver,iColumn))
89          continue;
90        double value = newSolution[iColumn];
91        double fraction = value - floor(value);
92        int round = 0;
93        if (fabs(floor(value + 0.5) - value) > integerTolerance) {
94            int nDownLocks = downLocks_[i];
95            int nUpLocks = upLocks_[i];
96            if (allTriviallyRoundableSoFar || (nDownLocks > 0 && nUpLocks > 0)) {
97
98                if (allTriviallyRoundableSoFar && nDownLocks > 0 && nUpLocks > 0) {
99                    allTriviallyRoundableSoFar = false;
100                    bestFraction = COIN_DBL_MAX;
101                    bestLocks = COIN_INT_MAX;
102                }
103
104                // the variable cannot be rounded
105                int nLocks = nDownLocks;
106                if (nDownLocks < nUpLocks)
107                    round = -1;
108                else if (nDownLocks > nUpLocks) {
109                    round = 1;
110                    fraction = 1.0 - fraction;
111                    nLocks = nUpLocks;
112                } else if (fraction < 0.5)
113                    round = -1;
114                else {
115                    round = 1;
116                    fraction = 1.0 - fraction;
117                    nLocks = nUpLocks;
118                }
119
120                // if variable is not binary, penalize it
121                if (!solver->isBinary(iColumn))
122                    fraction *= 1000.0;
123
124                // if priorities then use
125                if (priority_) {
126                  int thisRound=static_cast<int>(priority_[i].direction);
127                  if ((thisRound&1)!=0) 
128                    round = ((thisRound&2)==0) ? -1 : +1;
129                  if (priority_[i].priority>bestPriority) {
130                    nLocks=COIN_INT_MAX;
131                  } else if (priority_[i].priority<bestPriority) {
132                    bestPriority=static_cast<int>(priority_[i].priority);
133                    bestLocks=COIN_INT_MAX;
134                  }
135                }
136                if (nLocks < bestLocks || (nLocks == bestLocks &&
137                                           fraction < bestFraction)) {
138                    bestColumn = iColumn;
139                    bestLocks = nLocks;
140                    bestFraction = fraction;
141                    bestRound = round;
142                }
143            }
144        }
145    }
146    return allTriviallyRoundableSoFar;
147}
148
Note: See TracBrowser for help on using the repository browser.