source: lemon-0.x/src/work/marci/bipartite_matching_leda.cc @ 413:9cb93f692e92

// -*- c++ -*-
#include <iostream>
#include <fstream>
#include <vector>
#include <cstdlib>

#include <LEDA/graph.h>
#include <LEDA/mcb_matching.h>
#include <LEDA/list.h>

#include <leda_graph_wrapper.h>
#include <list_graph.h>
//#include <smart_graph.h>
//#include <dimacs.h>
#include <time_measure.h>
#include <for_each_macros.h>
//#include <bfs_iterator.h>
#include <graph_wrapper.h>
#include <maps.h>
#include <edmonds_karp.h>
#include <preflow.h>

/**
 * Inicializalja a veletlenszamgeneratort.
 * Figyelem, ez nem jo igazi random szamokhoz,
 * erre ne bizzad a titkaidat!
 */
void random_init()
{
        unsigned int seed = getpid();
        seed |= seed << 15;
        seed ^= time(0);

        srand(seed);
}

/**
 * Egy veletlen int-et ad vissza 0 es m-1 kozott.
 */
int random(int m)
{
  return int( double(m) * rand() / (RAND_MAX + 1.0) );
}

using namespace hugo;

int main() {
  //for leda graph
  leda::graph lg;
  //lg.make_undirected();
  typedef LedaGraphWrapper<leda::graph> Graph;
  Graph g(lg);

  //for UndirListGraph
  //typedef UndirListGraph Graph; 
  //Graph g;

  typedef Graph::Node Node;
  typedef Graph::NodeIt NodeIt;
  typedef Graph::Edge Edge;
  typedef Graph::EdgeIt EdgeIt;
  typedef Graph::OutEdgeIt OutEdgeIt;

  std::vector<Graph::Node> s_nodes;
  std::vector<Graph::Node> t_nodes;

  int a;
  std::cout << "number of nodes in the first color class=";
  std::cin >> a; 
  int b;
  std::cout << "number of nodes in the second color class=";
  std::cin >> b; 
  int m;
  std::cout << "number of edges=";
  std::cin >> m; 
  

  for (int i=0; i<a; ++i) s_nodes.push_back(g.addNode());
  for (int i=0; i<b; ++i) t_nodes.push_back(g.addNode());

  random_init();
  for(int i=0; i<m; ++i) {
    g.addEdge(s_nodes[random(a)], t_nodes[random(b)]);
  }

  Graph::NodeMap<int> ref_map(g, -1);

  IterableBoolMap< Graph::NodeMap<int> > bipartite_map(ref_map);
  for (int i=0; i<a; ++i) bipartite_map.insert(s_nodes[i], false);
  for (int i=0; i<b; ++i) bipartite_map.insert(t_nodes[i], true);

//   Graph::Node u;
//   std::cout << "These nodes will be in S:\n";
//   //FIXME azert kellene ++, es invalid vizsgalat u-bol, hogy ezt le lehessen 
//   //irni 1etlen FOR_EACH-csel.
//   for (bipartite_map.first(u, false); g.valid(u); bipartite_map.next(u)) 
//     std::cout << u << " ";
//   std::cout << "\n";
//   std::cout << "These nodes will be in T:\n";
//   for (bipartite_map.first(u, true); g.valid(u); bipartite_map.next(u)) 
//     std::cout << u << " ";
//   std::cout << "\n";

  typedef BipartiteGraphWrapper<Graph> BGW;
  BGW bgw(g, bipartite_map);

//   std::cout << "Nodes by NodeIt:\n";
//   FOR_EACH_LOC(BGW::NodeIt, n, bgw) {
//     std::cout << n << " ";
//   }
//   std::cout << "\n";
//   std::cout << "Nodes in S by ClassNodeIt:\n";
//   FOR_EACH_INC_LOC(BGW::ClassNodeIt, n, bgw, bgw.S_CLASS) {
//     std::cout << n << " ";
//   }
//   std::cout << "\n";
//   std::cout << "Nodes in T by ClassNodeIt:\n";
//   FOR_EACH_INC_LOC(BGW::ClassNodeIt, n, bgw, bgw.T_CLASS) {
//     std::cout << n << " ";
//   }
//   std::cout << "\n";
//   std::cout << "Edges of the bipartite graph:\n";
//   FOR_EACH_LOC(BGW::EdgeIt, e, bgw) {
//     std::cout << bgw.tail(e) << "->" << bgw.head(e) << std::endl;
//   }

  BGW::NodeMap<int> dbyj(bgw);
  BGW::EdgeMap<int> dbyxcj(bgw);

  typedef stGraphWrapper<BGW> stGW;
  stGW stgw(bgw);
  ConstMap<stGW::Edge, int> const1map(1);
//  stGW::NodeMap<int> ize(stgw);

//   BfsIterator< BGW, BGW::NodeMap<bool> > bfs(bgw);
//   Graph::NodeIt si;
//   Graph::Node s; 
//   s=g.first(si);
//   bfs.pushAndSetReached(BGW::Node(s));
//   while (!bfs.finished()) { ++bfs; }

//   FOR_EACH_LOC(stGW::NodeIt, n, stgw) { 
//     std::cout << "out-edges of " << n << ":\n"; 
//     FOR_EACH_INC_LOC(stGW::OutEdgeIt, e, stgw, n) { 
//       std::cout << " " << e << "\n";
//       std::cout << " aNode: " << stgw.aNode(e) << "\n";
//       std::cout << " bNode: " << stgw.bNode(e) << "\n";      
//     }
//     std::cout << "in-edges of " << n << ":\n"; 
//     FOR_EACH_INC_LOC(stGW::InEdgeIt, e, stgw, n) { 
//       std::cout << " " << e << "\n";
//       std::cout << " aNode: " << stgw.aNode(e) << "\n";
//       std::cout << " bNode: " << stgw.bNode(e) << "\n";     
//     }
//   }
//   std::cout << "Edges of the stGraphWrapper:\n"; 
//   FOR_EACH_LOC(stGW::EdgeIt, n, stgw) { 
//     std::cout << " " << n << "\n";
//   }

//   stGW::NodeMap<bool> b(stgw);
//   FOR_EACH_LOC(stGW::NodeIt, n, stgw) { 
//     std::cout << n << ": " << b[n] <<"\n";
//   }

//   std::cout << "Bfs from s: \n";
//   BfsIterator< stGW, stGW::NodeMap<bool> > bfs_stgw(stgw);
//   bfs_stgw.pushAndSetReached(stgw.S_NODE);
//   while (!bfs_stgw.finished()) { 
//     std::cout << " " << stGW::OutEdgeIt(bfs_stgw) << "\n";
//     ++bfs_stgw; 
//   }


  Timer ts;
  ts.reset();
  stGW::EdgeMap<int> max_flow(stgw);
  MaxFlow<stGW, int, ConstMap<stGW::Edge, int>, stGW::EdgeMap<int> > 
    max_flow_test(stgw, stgw.S_NODE, stgw.T_NODE, const1map, max_flow);
//  while (max_flow_test.augmentOnShortestPath()) { }
  typedef ListGraph MutableGraph;
//  while (max_flow_test.augmentOnBlockingFlow1<MutableGraph>()) {
  while (max_flow_test.augmentOnBlockingFlow2()) {
   std::cout << max_flow_test.flowValue() << std::endl;
  }
  std::cout << "max flow value: " << max_flow_test.flowValue() << std::endl;
  std::cout << "elapsed time: " << ts << std::endl;
//   FOR_EACH_LOC(stGW::EdgeIt, e, stgw) { 
//     std::cout << e << ": " << max_flow[e] << "\n"; 
//   }
//   std::cout << "\n";

  ts.reset();
  stGW::EdgeMap<int> pre_flow(stgw);
  Preflow<stGW, int, ConstMap<stGW::Edge, int>, stGW::EdgeMap<int> > 
    pre_flow_test(stgw, stgw.S_NODE, stgw.T_NODE, const1map, pre_flow, true);
  pre_flow_test.run();
  std::cout << "pre flow value: " << max_flow_test.flowValue() << std::endl;
  std::cout << "elapsed time: " << ts << std::endl;
//   FOR_EACH_LOC(stGW::EdgeIt, e, stgw) { 
//     std::cout << e << ": " << pre_flow[e] << "\n"; 
//   }
//   std::cout << "\n";

  ts.reset();  
  leda_list<leda_edge> ml=MAX_CARD_BIPARTITE_MATCHING(lg);
  //  stGW::EdgeMap<int> pre_flow(stgw);
  //Preflow<stGW, int, ConstMap<stGW::Edge, int>, stGW::EdgeMap<int> > 
  //  pre_flow_test(stgw, stgw.S_NODE, stgw.T_NODE, const1map, pre_flow, true);
  //pre_flow_test.run();
  std::cout << "leda matching value: " << ml.size() << std::endl;
  std::cout << "elapsed time: " << ts << std::endl;
//   FOR_EACH_LOC(stGW::EdgeIt, e, stgw) { 
//     std::cout << e << ": " << pre_flow[e] << "\n"; 
//   }
//   std::cout << "\n";

  return 0;
}