test/preflow_test.cc
author Peter Kovacs <kpeter@inf.elte.hu>
Sat, 16 Mar 2013 13:16:27 +0100
changeset 1050 d9d1cb759951
parent 924 a80381c43760
parent 1007 7e368d9b67f7
child 1084 8b2d4e5d96e4
permissions -rw-r--r--
Add images to the doc of two groups (#459)
alpar@389
     1
/* -*- mode: C++; indent-tabs-mode: nil; -*-
alpar@389
     2
 *
alpar@389
     3
 * This file is a part of LEMON, a generic C++ optimization library.
alpar@389
     4
 *
alpar@877
     5
 * Copyright (C) 2003-2010
alpar@389
     6
 * Egervary Jeno Kombinatorikus Optimalizalasi Kutatocsoport
alpar@389
     7
 * (Egervary Research Group on Combinatorial Optimization, EGRES).
alpar@389
     8
 *
alpar@389
     9
 * Permission to use, modify and distribute this software is granted
alpar@389
    10
 * provided that this copyright notice appears in all copies. For
alpar@389
    11
 * precise terms see the accompanying LICENSE file.
alpar@389
    12
 *
alpar@389
    13
 * This software is provided "AS IS" with no warranty of any kind,
alpar@389
    14
 * express or implied, and with no claim as to its suitability for any
alpar@389
    15
 * purpose.
alpar@389
    16
 *
alpar@389
    17
 */
alpar@389
    18
alpar@423
    19
#include <iostream>
alpar@389
    20
alpar@389
    21
#include "test_tools.h"
alpar@389
    22
#include <lemon/smart_graph.h>
alpar@389
    23
#include <lemon/preflow.h>
alpar@389
    24
#include <lemon/concepts/digraph.h>
alpar@389
    25
#include <lemon/concepts/maps.h>
alpar@389
    26
#include <lemon/lgf_reader.h>
kpeter@394
    27
#include <lemon/elevator.h>
alpar@389
    28
alpar@389
    29
using namespace lemon;
alpar@389
    30
alpar@423
    31
char test_lgf[] =
alpar@423
    32
  "@nodes\n"
alpar@423
    33
  "label\n"
alpar@423
    34
  "0\n"
alpar@423
    35
  "1\n"
alpar@423
    36
  "2\n"
alpar@423
    37
  "3\n"
alpar@423
    38
  "4\n"
alpar@423
    39
  "5\n"
alpar@423
    40
  "6\n"
alpar@423
    41
  "7\n"
alpar@423
    42
  "8\n"
alpar@423
    43
  "9\n"
alpar@423
    44
  "@arcs\n"
alpar@423
    45
  "    label capacity\n"
alpar@423
    46
  "0 1 0     20\n"
alpar@423
    47
  "0 2 1     0\n"
alpar@423
    48
  "1 1 2     3\n"
alpar@423
    49
  "1 2 3     8\n"
alpar@423
    50
  "1 3 4     8\n"
alpar@423
    51
  "2 5 5     5\n"
alpar@423
    52
  "3 2 6     5\n"
alpar@423
    53
  "3 5 7     5\n"
alpar@423
    54
  "3 6 8     5\n"
alpar@423
    55
  "4 3 9     3\n"
alpar@423
    56
  "5 7 10    3\n"
alpar@423
    57
  "5 6 11    10\n"
alpar@423
    58
  "5 8 12    10\n"
alpar@423
    59
  "6 8 13    8\n"
alpar@423
    60
  "8 9 14    20\n"
alpar@423
    61
  "8 1 15    5\n"
alpar@423
    62
  "9 5 16    5\n"
alpar@423
    63
  "@attributes\n"
alpar@423
    64
  "source 1\n"
alpar@423
    65
  "target 8\n";
alpar@423
    66
kpeter@394
    67
void checkPreflowCompile()
alpar@389
    68
{
alpar@389
    69
  typedef int VType;
alpar@389
    70
  typedef concepts::Digraph Digraph;
alpar@389
    71
alpar@389
    72
  typedef Digraph::Node Node;
alpar@389
    73
  typedef Digraph::Arc Arc;
alpar@389
    74
  typedef concepts::ReadMap<Arc,VType> CapMap;
alpar@389
    75
  typedef concepts::ReadWriteMap<Arc,VType> FlowMap;
alpar@389
    76
  typedef concepts::WriteMap<Node,bool> CutMap;
alpar@389
    77
kpeter@394
    78
  typedef Elevator<Digraph, Digraph::Node> Elev;
kpeter@394
    79
  typedef LinkedElevator<Digraph, Digraph::Node> LinkedElev;
kpeter@394
    80
alpar@389
    81
  Digraph g;
alpar@389
    82
  Node n;
alpar@389
    83
  Arc e;
alpar@389
    84
  CapMap cap;
alpar@389
    85
  FlowMap flow;
alpar@389
    86
  CutMap cut;
kpeter@585
    87
  VType v;
kpeter@585
    88
  bool b;
alpar@1007
    89
  ignore_unused_variable_warning(v,b);
alpar@389
    90
kpeter@585
    91
  typedef Preflow<Digraph, CapMap>
kpeter@585
    92
            ::SetFlowMap<FlowMap>
kpeter@585
    93
            ::SetElevator<Elev>
kpeter@585
    94
            ::SetStandardElevator<LinkedElev>
kpeter@585
    95
            ::Create PreflowType;
kpeter@585
    96
  PreflowType preflow_test(g, cap, n, n);
kpeter@585
    97
  const PreflowType& const_preflow_test = preflow_test;
alpar@389
    98
kpeter@689
    99
  const PreflowType::Elevator& elev = const_preflow_test.elevator();
kpeter@689
   100
  preflow_test.elevator(const_cast<PreflowType::Elevator&>(elev));
kpeter@689
   101
  PreflowType::Tolerance tol = const_preflow_test.tolerance();
kpeter@689
   102
  preflow_test.tolerance(tol);
kpeter@585
   103
kpeter@585
   104
  preflow_test
kpeter@585
   105
    .capacityMap(cap)
kpeter@585
   106
    .flowMap(flow)
kpeter@585
   107
    .source(n)
kpeter@585
   108
    .target(n);
alpar@389
   109
alpar@389
   110
  preflow_test.init();
kpeter@392
   111
  preflow_test.init(cap);
alpar@389
   112
  preflow_test.startFirstPhase();
alpar@389
   113
  preflow_test.startSecondPhase();
alpar@389
   114
  preflow_test.run();
alpar@389
   115
  preflow_test.runMinCut();
alpar@389
   116
kpeter@585
   117
  v = const_preflow_test.flowValue();
kpeter@585
   118
  v = const_preflow_test.flow(e);
kpeter@585
   119
  const FlowMap& fm = const_preflow_test.flowMap();
kpeter@585
   120
  b = const_preflow_test.minCut(n);
kpeter@585
   121
  const_preflow_test.minCutMap(cut);
alpar@877
   122
kpeter@585
   123
  ignore_unused_variable_warning(fm);
alpar@389
   124
}
alpar@389
   125
alpar@389
   126
int cutValue (const SmartDigraph& g,
alpar@389
   127
              const SmartDigraph::NodeMap<bool>& cut,
alpar@389
   128
              const SmartDigraph::ArcMap<int>& cap) {
alpar@389
   129
alpar@389
   130
  int c=0;
alpar@389
   131
  for(SmartDigraph::ArcIt e(g); e!=INVALID; ++e) {
alpar@389
   132
    if (cut[g.source(e)] && !cut[g.target(e)]) c+=cap[e];
alpar@389
   133
  }
alpar@389
   134
  return c;
alpar@389
   135
}
alpar@389
   136
alpar@389
   137
bool checkFlow(const SmartDigraph& g,
alpar@389
   138
               const SmartDigraph::ArcMap<int>& flow,
alpar@389
   139
               const SmartDigraph::ArcMap<int>& cap,
alpar@389
   140
               SmartDigraph::Node s, SmartDigraph::Node t) {
alpar@389
   141
alpar@389
   142
  for (SmartDigraph::ArcIt e(g); e != INVALID; ++e) {
alpar@389
   143
    if (flow[e] < 0 || flow[e] > cap[e]) return false;
alpar@389
   144
  }
alpar@389
   145
alpar@389
   146
  for (SmartDigraph::NodeIt n(g); n != INVALID; ++n) {
alpar@389
   147
    if (n == s || n == t) continue;
alpar@389
   148
    int sum = 0;
alpar@389
   149
    for (SmartDigraph::OutArcIt e(g, n); e != INVALID; ++e) {
alpar@389
   150
      sum += flow[e];
alpar@389
   151
    }
alpar@389
   152
    for (SmartDigraph::InArcIt e(g, n); e != INVALID; ++e) {
alpar@389
   153
      sum -= flow[e];
alpar@389
   154
    }
alpar@389
   155
    if (sum != 0) return false;
alpar@389
   156
  }
alpar@389
   157
  return true;
alpar@389
   158
}
alpar@389
   159
alpar@923
   160
void initFlowTest()
alpar@923
   161
{
alpar@923
   162
  DIGRAPH_TYPEDEFS(SmartDigraph);
alpar@923
   163
  
alpar@923
   164
  SmartDigraph g;
alpar@923
   165
  SmartDigraph::ArcMap<int> cap(g),iflow(g);
alpar@923
   166
  Node s=g.addNode(); Node t=g.addNode();
alpar@923
   167
  Node n1=g.addNode(); Node n2=g.addNode();
alpar@923
   168
  Arc a;
alpar@923
   169
  a=g.addArc(s,n1); cap[a]=20; iflow[a]=20;
alpar@923
   170
  a=g.addArc(n1,n2); cap[a]=10; iflow[a]=0;
alpar@923
   171
  a=g.addArc(n2,t); cap[a]=20; iflow[a]=0;
alpar@923
   172
alpar@923
   173
  Preflow<SmartDigraph> pre(g,cap,s,t);
alpar@923
   174
  pre.init(iflow);
alpar@923
   175
  pre.startFirstPhase();
alpar@923
   176
  check(pre.flowValue() == 10, "The incorrect max flow value.");
alpar@923
   177
  check(pre.minCut(s), "Wrong min cut (Node s).");
alpar@923
   178
  check(pre.minCut(n1), "Wrong min cut (Node n1).");
alpar@923
   179
  check(!pre.minCut(n2), "Wrong min cut (Node n2).");
alpar@923
   180
  check(!pre.minCut(t), "Wrong min cut (Node t).");
alpar@923
   181
}
alpar@923
   182
alpar@923
   183
alpar@389
   184
int main() {
alpar@389
   185
alpar@389
   186
  typedef SmartDigraph Digraph;
alpar@389
   187
alpar@389
   188
  typedef Digraph::Node Node;
alpar@389
   189
  typedef Digraph::NodeIt NodeIt;
alpar@389
   190
  typedef Digraph::ArcIt ArcIt;
alpar@389
   191
  typedef Digraph::ArcMap<int> CapMap;
alpar@389
   192
  typedef Digraph::ArcMap<int> FlowMap;
alpar@389
   193
  typedef Digraph::NodeMap<bool> CutMap;
alpar@389
   194
alpar@389
   195
  typedef Preflow<Digraph, CapMap> PType;
alpar@389
   196
alpar@389
   197
  Digraph g;
alpar@389
   198
  Node s, t;
alpar@389
   199
  CapMap cap(g);
alpar@423
   200
  std::istringstream input(test_lgf);
alpar@423
   201
  DigraphReader<Digraph>(g,input).
alpar@389
   202
    arcMap("capacity", cap).
alpar@389
   203
    node("source",s).
alpar@389
   204
    node("target",t).
alpar@389
   205
    run();
alpar@389
   206
alpar@389
   207
  PType preflow_test(g, cap, s, t);
alpar@389
   208
  preflow_test.run();
alpar@389
   209
alpar@389
   210
  check(checkFlow(g, preflow_test.flowMap(), cap, s, t),
alpar@389
   211
        "The flow is not feasible.");
alpar@389
   212
alpar@389
   213
  CutMap min_cut(g);
alpar@389
   214
  preflow_test.minCutMap(min_cut);
alpar@389
   215
  int min_cut_value=cutValue(g,min_cut,cap);
alpar@389
   216
alpar@389
   217
  check(preflow_test.flowValue() == min_cut_value,
alpar@389
   218
        "The max flow value is not equal to the three min cut values.");
alpar@389
   219
alpar@389
   220
  FlowMap flow(g);
alpar@389
   221
  for(ArcIt e(g); e!=INVALID; ++e) flow[e] = preflow_test.flowMap()[e];
alpar@389
   222
alpar@389
   223
  int flow_value=preflow_test.flowValue();
alpar@389
   224
alpar@389
   225
  for(ArcIt e(g); e!=INVALID; ++e) cap[e]=2*cap[e];
kpeter@392
   226
  preflow_test.init(flow);
alpar@389
   227
  preflow_test.startFirstPhase();
alpar@389
   228
alpar@389
   229
  CutMap min_cut1(g);
alpar@389
   230
  preflow_test.minCutMap(min_cut1);
alpar@389
   231
  min_cut_value=cutValue(g,min_cut1,cap);
alpar@389
   232
alpar@389
   233
  check(preflow_test.flowValue() == min_cut_value &&
alpar@389
   234
        min_cut_value == 2*flow_value,
alpar@389
   235
        "The max flow value or the min cut value is wrong.");
alpar@389
   236
alpar@389
   237
  preflow_test.startSecondPhase();
alpar@389
   238
alpar@389
   239
  check(checkFlow(g, preflow_test.flowMap(), cap, s, t),
alpar@389
   240
        "The flow is not feasible.");
alpar@389
   241
alpar@389
   242
  CutMap min_cut2(g);
alpar@389
   243
  preflow_test.minCutMap(min_cut2);
alpar@389
   244
  min_cut_value=cutValue(g,min_cut2,cap);
alpar@389
   245
alpar@389
   246
  check(preflow_test.flowValue() == min_cut_value &&
alpar@389
   247
        min_cut_value == 2*flow_value,
alpar@389
   248
        "The max flow value or the three min cut values were not doubled");
alpar@389
   249
alpar@389
   250
alpar@389
   251
  preflow_test.flowMap(flow);
alpar@389
   252
alpar@389
   253
  NodeIt tmp1(g,s);
alpar@389
   254
  ++tmp1;
alpar@389
   255
  if ( tmp1 != INVALID ) s=tmp1;
alpar@389
   256
alpar@389
   257
  NodeIt tmp2(g,t);
alpar@389
   258
  ++tmp2;
alpar@389
   259
  if ( tmp2 != INVALID ) t=tmp2;
alpar@389
   260
alpar@389
   261
  preflow_test.source(s);
alpar@389
   262
  preflow_test.target(t);
alpar@389
   263
alpar@389
   264
  preflow_test.run();
alpar@389
   265
alpar@389
   266
  CutMap min_cut3(g);
alpar@389
   267
  preflow_test.minCutMap(min_cut3);
alpar@389
   268
  min_cut_value=cutValue(g,min_cut3,cap);
alpar@389
   269
alpar@389
   270
alpar@389
   271
  check(preflow_test.flowValue() == min_cut_value,
alpar@389
   272
        "The max flow value or the three min cut values are incorrect.");
alpar@389
   273
alpar@923
   274
  initFlowTest();
alpar@923
   275
  
alpar@389
   276
  return 0;
alpar@389
   277
}