git-svn-id: svn://scm.gforge.inria.fr/svnroot/paradiseo@34 331e1502-861f-0410-8da2-ba01fb791d7f

trunk/paradiseo-mo/examples/tsp/tabu_search.cpp

@@ -0,0 +1,85 @@
+// -*- mode: c++; c-indent-level: 4; c++-member-init-indent: 8; comment-column: 35; -*-
+
+// "tabu_search.cpp"
+
+// (c) OPAC Team, LIFL, 2003
+
+/* 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 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., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
+   
+   Contact: cahon@lifl.fr
+*/
+
+#include <moTS.h>
+#include <moNoAspirCrit.h>
+#include <moImprBestFitAspirCrit.h>
+#include <moGenSolContinue.h>
+#include <moFirstImprSelect.h>
+#include <moBestImprSelect.h>
+#include <moRandImprSelect.h>
+
+#include "share/graph.h"
+#include "share/route.h"
+#include "share/route_eval.h"
+#include "share/route_init.h"
+
+#include "share/two_opt.h"
+#include "share/two_opt_init.h"
+#include "share/two_opt_next.h"
+#include "share/two_opt_incr_eval.h"
+#include "share/two_opt_tabu_list.h"
+
+int main (int __argc, char * __argv []) {
+
+  if (__argc != 2) {
+    
+    std :: cerr << "Usage : ./tabu_search [instance]" << std :: endl ;
+    return 1 ;
+  }
+
+  Graph :: load (__argv [1]) ; // Instance
+
+  Route route ; // Solution
+  
+  RouteInit init ; // Sol. Random Init.
+  init (route) ;
+
+  RouteEval full_eval ; // Full. Eval.
+  full_eval (route) ;
+  
+  std :: cout << "[From] " << route << std :: endl ;
+
+  /* Tools for an efficient (? :-))
+     local search ! */
+  
+  TwoOptInit two_opt_init ; // Init.
+   
+  TwoOptNext two_opt_next ; // Explorer.
+  
+  TwoOptIncrEval two_opt_incr_eval ; // Eff. eval.
+
+  TwoOptTabuList tabu_list ; // Tabu List
+
+  moNoAspirCrit <TwoOpt> aspir_crit ; // Aspiration Criterion
+
+  moGenSolContinue <Route> cont (50000) ; // Continuator
+
+  moTS <TwoOpt> tabu_search (two_opt_init, two_opt_next, two_opt_incr_eval, tabu_list, aspir_crit, cont, full_eval) ;
+  tabu_search (route) ;
+
+  std :: cout << "[To] " << route << std :: endl ;
+
+  return 0 ;
+}
+