eg_min_cut.ex.c

/* EGlib "Efficient General Library" provides some basic structures and
 * algorithms commons in many optimization algorithms.
 *
 * Copyright (C) 2005 Daniel Espinoza and Marcos Goycoolea.
 * 
 * This library is free software; you can redistribute it and/or modify it
 * under the terms of the GNU Lesser General Public License as published by the
 * Free Software Foundation; either version 2.1 of the License, or (at your
 * option) any later version.
 *
 * This library is distributed in the hope that it will be useful, but 
 * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY 
 * or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public 
 * License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public License
 * along with this library; if not, write to the Free Software Foundation,
 * Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA 
 * */
/** @file
 * @ingroup EGalgMinCut */
/** @addtogroup EGalgMinCut */
/** @{ */
#include "eg_min_cut.h"
#include "eg_timer.h"
#include <getopt.h>
#include <stdio.h>
static char *file_name = 0;
static unsigned int lvl = 5;
/* ========================================================================= */
/** @brief display usage of this program */
static inline void mc_usage (char **argv)
{
  fprintf (stderr, "Usage: %s [options]\n", argv[0]);
  fprintf (stdout, "Options:\n");
  fprintf (stdout, "     -l n   level of padberg-rinaldi shrinking (0-5).\n");
  fprintf (stdout, "     -f n   file name.\n");
}

/* ========================================================================= */
/** @brief structure to store a set of cuts */
typedef struct mc_all_cuts_t
{
  unsigned int sz;
  unsigned int max_sz;
  EGlpNum_t *cut_val;
  unsigned int *cut_sz;
  unsigned int **cut;
}
mc_all_cuts_t;

/* ========================================================================= */
/** @brief call-back function to store all cuts fund during the execution of
 * the min-cut algorithm. */
int mc_store_cuts (EGlpNum_t value,
                   const unsigned int c_sz,
                   const unsigned int *const cut,
                   void *data)
{
  mc_all_cuts_t *cuts = (mc_all_cuts_t *) data;
  /* of the cut pool is too small, enlarge it */
  if (cuts->sz == cuts->max_sz)
  {
    unsigned int *l_cut_sz,
    **l_cut;
    EGlpNum_t *l_cut_val;
    cuts->max_sz += 100;
    l_cut_sz = EGsMalloc (unsigned int,
                          cuts->max_sz);
    l_cut = EGsMalloc (unsigned int *,
                       cuts->max_sz);
    l_cut_val = EGsMalloc (EGlpNum_t, cuts->max_sz);
    if (cuts->sz)
    {

      memcpy (l_cut_sz, cuts->cut_sz, sizeof (unsigned int) * cuts->sz);
      memcpy (l_cut, cuts->cut, sizeof (unsigned int *) * cuts->sz);
      memcpy (l_cut_val, cuts->cut_val, sizeof (EGlpNum_t) * cuts->sz);
      EGfree (cuts->cut);
      EGfree (cuts->cut_sz);
      EGfree (cuts->cut_val);
    }
    cuts->cut_sz = l_cut_sz;
    cuts->cut = l_cut;
    cuts->cut_val = l_cut_val;
  }
  /* now we copy the new cut */
  EGlpNumInitVar (cuts->cut_val[cuts->sz]);
  EGlpNumCopy (cuts->cut_val[cuts->sz], value);
  cuts->cut_sz[cuts->sz] = c_sz;
  cuts->cut[cuts->sz] = EGsMalloc (unsigned int,
                                   c_sz);
  memcpy (cuts->cut[cuts->sz], cut, sizeof (unsigned int) * c_sz);
  cuts->sz++;
  return 0;
}

/* ========================================================================= */
/** @brief parse input */
static inline int mc_parseargs (int argc,
                                char **argv)
{
  int c;
  while ((c = getopt (argc, argv, "f:l:")) != EOF)
  {
    switch (c)
    {
    case 'f':
      file_name = optarg;
      break;
    case 'l':
      lvl = atoi (optarg);
      break;
    default:
      mc_usage (argv);
      return 1;
    }
  }
  /* test that we have an input file */
  if (!file_name)
  {
    mc_usage (argv);
    return 1;
  }
  /* report options */
  fprintf (stderr, "reading graph from %s\nusing shrinking level %u\n",
           file_name, lvl);
  return 0;
}

/* ========================================================================= */
/** @brief example of usage of the Min Cut algorithm as implemented in
 * (EGalgMinCut).
 * 
 * We read a file from the input whose two first numbers are the number of nodes
 * and edges (we assume that the graph is undirected ), and then a 3-tupla with
 * head tail capacity. we use the last field (capacity) as the capacity of the
 * algorithm, and compute the minimum global cut. */
int main (int argc,
          char **argv)
{
  int rval = 0,
    n_read;
  FILE *in_file = 0;
  unsigned int register i;
  unsigned int head,
    tail;
  EGlpNum_t cap;
  EGtimer_t cut_timer;
  EGalgMCgraph_t G;
  char l_str[1024];
  EGalgMCcbk_t cb;
  mc_all_cuts_t all_cuts;
  all_cuts.max_sz = all_cuts.sz = 0;
  EGtimerReset (&cut_timer);
  EGlpNumStart ();
  EGalgMCcbkInit (&cb);
  cb.do_fn = mc_store_cuts;
  EGlpNumSet (cb.cutoff, 2.0);
  cb.param = &all_cuts;
  EGalgMCgraphInit (&G);
  EGlpNumInitVar (cap);
  /* test we have an input file */
  rval = mc_parseargs (argc, argv);
  CHECKRVALG (rval, CLEANUP);
  in_file = fopen (file_name, "r");
  if (!in_file)
  {
    fprintf (stderr, "Can't open file %s\n", argv[1]);
    mc_usage (argv);
    rval = 1;
    goto CLEANUP;
  }
  /* now we start reading the file */
  n_read = fscanf (in_file, "%u %u", &G.G.n_onodes, &G.G.n_oedges);
  TESTG ((rval = (n_read != 2)), CLEANUP, "Can't read n_nodes and n_endges "
         "from file");
  if (!G.G.n_oedges || !G.G.n_onodes)
  {
    fprintf (stderr, "Problem is trivial with %u nodes and %u edges\n",
             G.G.n_onodes, G.G.n_oedges);
    G.G.n_onodes = G.G.n_oedges = 0;
    goto CLEANUP;
  }
  fprintf (stderr, "Reading graph on %u nodes and %u edges...", G.G.n_onodes,
           G.G.n_oedges);
  G.all_nodes = EGsMalloc (EGalgMCnode_t, G.G.n_onodes);
  G.all_edges = EGsMalloc (EGalgMCedge_t, G.G.n_oedges);
  for (i = G.G.n_onodes; i--;)
  {
    EGalgMCnodeInit (G.all_nodes + i);
    EGeListAddAfter (&(G.all_nodes[i].lvl_cn), G.lvl_list);
    G.all_nodes[i].id = i;
    EGsrkAddNode (&(G.G), &(G.all_nodes[i].node));
  }
  for (i = G.G.n_oedges; i--;)
  {
    EGalgMCedgeInit (G.all_edges + i);
    G.all_edges[i].id = i;
    n_read = fscanf (in_file, "%u %u %s", &head, &tail, l_str);
    TESTG ((rval = (n_read != 3)), CLEANUP, "Can't read head tail capacity");
    EGlpNumReadStr (cap, l_str);
    EGlpNumCopy (G.all_edges[i].edge.weight, cap);
    EGsrkAddEdge (&(G.G), &(G.all_nodes[head].node), &(G.all_nodes[tail].node),
                  &(G.all_edges[i].edge));
  }
  EGlpNumCopySum (G.cut_val, G.all_nodes[0].node.weight, oneLpNum);
  EGlpNumCopy (G.epsilon, epsLpNum);
  G.cut = EGsMalloc (unsigned int,
                     G.G.n_onodes);
  fclose (in_file);
  in_file = 0;

  /* now we call the min cut algorithm */
  fprintf (stderr, "...done\nComputing Min Cut...");
  EGtimerStart (&cut_timer);
  rval = EGalgMC (&G, &cb, lvl);
  EGtimerStop (&cut_timer);
  fprintf (stderr, "...done in %lf seconds\n\tValue: %lf\n", cut_timer.time,
           EGlpNumToLf (G.cut_val));

  /* now we display all cuts */
#if 0
  fprintf (stderr, "Number of cuts found: %u\n", all_cuts.sz);
  for (i = all_cuts.sz; i--;)
  {
    fprintf (stderr, "cut %u: val %lf, sz %u, elems ", i,
             EGlpNumToLf (all_cuts.cut_val[i]), all_cuts.cut_sz[i]);
    for (j = all_cuts.cut_sz[i]; j--;)
      fprintf (stderr, " %u", all_cuts.cut[i][j]);
    fprintf (stderr, "\n");
  }
#endif

  /* ending */
CLEANUP:
  if (in_file)
    fclose (in_file);
  EGlpNumClearVar (cap);
  if (all_cuts.sz)
  {
    for (i = all_cuts.sz; i--;)
    {
      EGlpNumClearVar (all_cuts.cut_val[i]);
      EGfree (all_cuts.cut[i]);
    }
    EGfree (all_cuts.cut);
    EGfree (all_cuts.cut_val);
    EGfree (all_cuts.cut_sz);
  }
  if (G.G.n_onodes)
  {
    for (i = G.G.n_onodes; i--;)
      EGalgMCnodeClear (G.all_nodes + i);
    EGfree (G.all_nodes);
  }
  if (G.G.n_oedges)
  {
    for (i = G.G.n_oedges; i--;)
      EGalgMCedgeClear (G.all_edges + i);
    EGfree (G.all_edges);
  }
  EGalgMCprofile;
  EGalgPRprofile;
  if (G.cut)
    EGfree (G.cut);
  EGalgMCgraphClear (&G);
  EGlpNumExit ();
  return rval;
}

/* ========================================================================= */
/** @} */

---