Changeset 11823 for branches/OptimizationNetworks/HeuristicLab.Networks/3.3/KSPTSPConcurrentControlNetworkCode.cs

Timestamp:

01/26/15 15:52:03 (9 years ago)

Author:

abeham

Message:

#2205:

• Added cosolving KSPTSP network
• Fixed output path in projects for release target
• Fixed penalty in seqsolving KSPTSP network (would produce infeasible solutions)
• Added some additional references

File:

• branches/OptimizationNetworks/HeuristicLab.Networks/3.3/KSPTSPConcurrentControlNetworkCode.cs (copied) (copied from branches/OptimizationNetworks/HeuristicLab.Networks/3.3/KSPTSPNetworkCode.cs) (7 diffs)

branches/OptimizationNetworks/HeuristicLab.Networks/3.3/KSPTSPConcurrentControlNetworkCode.cs

@@ -20 +20 @@
 #endregion
 
+using System.Drawing;
+using System.Linq;
 using HeuristicLab.Algorithms.GeneticAlgorithm;
 using HeuristicLab.Common;
@@ -26 +28 @@
 using HeuristicLab.Data;
 using HeuristicLab.Encodings.BinaryVectorEncoding;
+using HeuristicLab.Encodings.PermutationEncoding;
 using HeuristicLab.Networks.Programmable;
 using HeuristicLab.Operators;
@@ -32 +35 @@
 using HeuristicLab.Problems.Knapsack;
 using HeuristicLab.Problems.TravelingSalesman;
-using System.Drawing;
-using System.Linq;
+using HeuristicLab.Selection;
 
 namespace HeuristicLab.Networks {
-  [Item("KSPTSPNetwork", "An optimization network which connects a KSP and a TSP.")]
-  public class CompiledKSPTSPNetwork : ProgrammableNetwork.CompiledProgrammableNetwork {
+  [Item("KSPTSP Concurrent-Control Network", "An optimization network which connects a KSP and a TSP.")]
+  public class CompiledKSPTSPConcurrentControlNetwork : ProgrammableNetwork.CompiledProgrammableNetwork {
     public static new Image StaticItemImage {
       get { return HeuristicLab.Common.Resources.VSImageLibrary.Module; }
     }
 
-    protected CompiledKSPTSPNetwork(CompiledKSPTSPNetwork original, Cloner cloner) : base(original, cloner) { }
-    public CompiledKSPTSPNetwork(ProgrammableNetwork context)
+    protected CompiledKSPTSPConcurrentControlNetwork(CompiledKSPTSPConcurrentControlNetwork original, Cloner cloner) : base(original, cloner) { }
+    public CompiledKSPTSPConcurrentControlNetwork(ProgrammableNetwork context)
       : base(context) {
       if (Nodes.Count == 0)
@@ -50 +52 @@
 
     public override IDeepCloneable Clone(Cloner cloner) {
-      return new CompiledKSPTSPNetwork(this, cloner);
-    }
-
-    public override void Initialize() {
-      base.Initialize();
-
+      return new CompiledKSPTSPConcurrentControlNetwork(this, cloner);
+    }
+
+    public void Initialize() {
       #region ParametersNode
       var paramsNode = new UserDefinedNode("ParametersNode");
@@ -63 +63 @@
       paramsNode.Ports.Add(paramsPort);
 
-      paramsPort.Parameters.Add(new PortParameter<DoubleMatrix>("Cities") {
+      paramsPort.Parameters.Add(new PortParameter<DoubleMatrix>("Coordinates") {
         Type = PortParameterType.Output,
         DefaultValue = new DoubleMatrix(new double[,] {
@@ -91 +91 @@
       #endregion
 
+      #region ControlNode
+      var controlNode = new KSPTSPControl("KSPTSP Control");
+      Nodes.Add(controlNode);
+      #endregion
+
       #region KSPNode
       var kspNode = new AlgorithmNode("KSPNode");
       Nodes.Add(kspNode);
 
-      var configPort = new ConfigurationPort("ConfigureKSP");
-      kspNode.Ports.Add(configPort);
-
-      configPort.Parameters.Add(new PortParameter<IntValue>("KnapsackCapacity") {
-        Type = PortParameterType.Input
-      });
-      configPort.Parameters.Add(new PortParameter<IntArray>("Values") {
-        Type = PortParameterType.Input
-      });
-      configPort.Parameters.Add(new PortParameter<IntArray>("Weights") {
-        Type = PortParameterType.Input
-      });
-
-      var evaluatePort = new MessagePort("EvaluateRoute");
-      kspNode.Ports.Add(evaluatePort);
-
-      evaluatePort.Parameters.Add(new PortParameter<BinaryVector>("KnapsackSolution") {
-        Type = PortParameterType.Output
-      });
-      evaluatePort.Parameters.Add(new PortParameter<DoubleValue>("Quality") {
-        Type = PortParameterType.Output | PortParameterType.Input
-      });
-      evaluatePort.Parameters.Add(new PortParameter<DoubleValue>("TransportCosts") {
-        Type = PortParameterType.Input
-      });
-      evaluatePort.Parameters.Add(new PortParameter<PathTSPTour>("Route") {
-        Type = PortParameterType.Input
-      });
-
-      var kspGA = new GeneticAlgorithm();
-      kspGA.Problem = new KnapsackProblem();
-      kspGA.MaximumGenerations.Value = 50;
-      kspGA.PopulationSize.Value = 10;
-      kspGA.Mutator = kspGA.MutatorParameter.ValidValues.Where(x => x.Name == "SinglePositionBitflipManipulator").First();
-      kspNode.Algorithm = kspGA;
-
-      var hook = new HookOperator();
-      hook.Parameters.Add(new LookupParameter<BinaryVector>("KnapsackSolution") { Hidden = false });
-      hook.Parameters.Add(new LookupParameter<DoubleValue>("Quality") { Hidden = false });
-      hook.Parameters.Add(new LookupParameter<DoubleValue>("TransportCosts") { Hidden = false });
-      hook.Parameters.Add(new LookupParameter<PathTSPTour>("Route") { Hidden = false });
-      ((FixedValueParameter<OperatorList>)kspGA.Problem.Evaluator.Parameters["AfterExecutionOperators"]).Value.Add(hook);
+      var kspConfigPort = new ConfigurationPort("ConfigureKSP");
+      kspNode.Ports.Add(kspConfigPort);
+
+      kspConfigPort.Parameters.Add(new PortParameter<IntValue>("KnapsackCapacity") {
+        Type = PortParameterType.Input
+      });
+      kspConfigPort.Parameters.Add(new PortParameter<IntArray>("Values") {
+        Type = PortParameterType.Input
+      });
+      kspConfigPort.Parameters.Add(new PortParameter<IntArray>("Weights") {
+        Type = PortParameterType.Input
+      });
+
+      var kspControlPort = new MessagePort("ControlPort");
+      kspNode.Ports.Add(kspControlPort);
+
+      kspControlPort.Parameters.Add(new PortParameter<BinaryVector>("KnapsackSolution") {
+        Type = PortParameterType.Output
+      });
+      kspControlPort.Parameters.Add(new PortParameter<DoubleValue>("Quality") {
+        Type = PortParameterType.Input
+      });
+
+      var kspReportPort = new MessagePort("ReportPort");
+      kspNode.Ports.Add(kspReportPort);
+
+      kspReportPort.Parameters.Add(new PortParameter<KnapsackSolution>("BestSolution") {
+        Type = PortParameterType.Output
+      });
+
+      var kspGa = new GeneticAlgorithm {
+        Problem = new KnapsackProblem(),
+        MaximumGenerations = { Value = 500 },
+        PopulationSize = { Value = 200 }
+      };
+      kspGa.Mutator = kspGa.MutatorParameter.ValidValues.First(x => x.Name == "SinglePositionBitflipManipulator");
+      kspGa.Crossover = kspGa.CrossoverParameter.ValidValues.First(x => x.Name == "SinglePointCrossover");
+      kspGa.Selector = kspGa.SelectorParameter.ValidValues.First(x => x.Name == "TournamentSelector");
+      kspNode.Algorithm = kspGa;
+
+      var kspEvalHook = new HookOperator() { Name = "KSP Eval Hook" };
+      kspEvalHook.Parameters.Add(new LookupParameter<BinaryVector>("KnapsackSolution") { Hidden = false });
+      kspEvalHook.Parameters.Add(new LookupParameter<DoubleValue>("Quality") { Hidden = false });
+      ((InstrumentedOperator)kspGa.Problem.Evaluator).AfterExecutionOperators.Add(kspEvalHook);
+
+      var kspIterHook = new HookOperator() { Name = "KSP Iter Hook" };
+      kspIterHook.Parameters.Add(new LookupParameter<KnapsackSolution>("BestSolution") { Hidden = false });
+      kspGa.Analyzer.AfterExecutionOperators.Add(kspIterHook);
       #endregion
 
@@ -143 +154 @@
       Nodes.Add(tspNode);
 
-      var executePort = new ExecutionPort("Execute");
-      tspNode.Ports.Add(executePort);
-
-      executePort.Parameters.Add(new PortParameter<DoubleMatrix>("Coordinates") {
-        Type = PortParameterType.Input
-      });
-      executePort.Parameters.Add(new PortParameter<DoubleValue>("BestQuality") {
-        Type = PortParameterType.Output
-      });
-      executePort.Parameters.Add(new PortParameter<PathTSPTour>("Best TSP Solution") {
-        Type = PortParameterType.Output
-      });
-
-      var tspGA = new GeneticAlgorithm();
-      tspGA.Problem = new TravelingSalesmanProblem();
-      tspGA.MaximumGenerations.Value = 100;
-      tspGA.PopulationSize.Value = 50;
-      tspGA.Mutator = tspGA.MutatorParameter.ValidValues.Where(x => x.Name == "InversionManipulator").First();
-      tspNode.Algorithm = tspGA;
-      #endregion
-
-      #region KSPTSPConnector
-      var ksptspConnector = (INode)new KSPTSPConnector();
-      Nodes.Add(ksptspConnector);
-      #endregion
+      var tspConfigPort = new ConfigurationPort("ConfigureTSP");
+      tspNode.Ports.Add(tspConfigPort);
+
+      tspConfigPort.Parameters.Add(new PortParameter<DoubleMatrix>("Coordinates") {
+        Type = PortParameterType.Input
+      });
+
+      var tspControlPort = new MessagePort("ControlPort");
+      tspNode.Ports.Add(tspControlPort);
+
+      tspControlPort.Parameters.Add(new PortParameter<Permutation>("TSPTour") {
+        Type = PortParameterType.Output
+      });
+      tspControlPort.Parameters.Add(new PortParameter<DoubleValue>("TSPTourLength") {
+        Type = PortParameterType.Input
+      });
+
+      var tspReportPort = new MessagePort("ReportPort");
+      tspNode.Ports.Add(tspReportPort);
+
+      tspReportPort.Parameters.Add(new PortParameter<PathTSPTour>("BestSolution") {
+        Type = PortParameterType.Output
+      });
+
+      var tspGa = new GeneticAlgorithm {
+        Problem = new TravelingSalesmanProblem(),
+        MaximumGenerations = { Value = 500 },
+        PopulationSize = { Value = 200 }
+      };
+      ((IValueParameter<BoolValue>)tspGa.Problem.MaximizationParameter).Value.Value = true;
+      tspGa.Crossover = tspGa.CrossoverParameter.ValidValues.First(x => x.Name == "EdgeRecombinationCrossover");
+      tspGa.Mutator = tspGa.MutatorParameter.ValidValues.First(x => x.Name == "InversionManipulator");
+      tspGa.Selector = tspGa.SelectorParameter.ValidValues.First(x => x.Name == "TournamentSelector");
+      ((TournamentSelector)tspGa.Selector).GroupSizeParameter.Value.Value = 3;
+      tspNode.Algorithm = tspGa;
+
+      var tspEvalHook = new HookOperator() { Name = "TSP Eval Hook" };
+      tspEvalHook.Parameters.Add(new LookupParameter<Permutation>("TSPTour") { Hidden = false });
+      tspEvalHook.Parameters.Add(new LookupParameter<DoubleValue>("TSPTourLength") { Hidden = false });
+      ((InstrumentedOperator)tspGa.Problem.Evaluator).AfterExecutionOperators.Add(tspEvalHook);
+
+      var tspIterHook = new HookOperator() { Name = "TSP Iter Hook" };
+      tspIterHook.Parameters.Add(new LookupParameter<PathTSPTour>("BestSolution") { Hidden = false });
+      tspGa.Analyzer.AfterExecutionOperators.Add(tspIterHook);
+      #endregion
+
 
       #region Wire Ports
-      hook.Port = evaluatePort;
-      configPort.ConnectedPort = paramsPort;
-      evaluatePort.ConnectedPort = (IMessagePort)ksptspConnector.Ports["KSP Connector"];
-      ((IMessagePort)ksptspConnector.Ports["Parameters"]).ConnectedPort = paramsPort;
-      ((IMessagePort)ksptspConnector.Ports["TSP Connector"]).ConnectedPort = executePort;
+      ((ConfigurationPort)((INode)controlNode).Ports["Configure"]).ConnectedPort = paramsPort;
+      kspConfigPort.ConnectedPort = paramsPort;
+      tspConfigPort.ConnectedPort = paramsPort;
+
+      kspEvalHook.Port = kspControlPort;
+      kspControlPort.ConnectedPort = (IMessagePort)((INode)controlNode).Ports["Evaluate KSP"];
+      tspEvalHook.Port = tspControlPort;
+      tspControlPort.ConnectedPort = (IMessagePort)((INode)controlNode).Ports["Evaluate TSP"];
+
+      kspIterHook.Port = kspReportPort;
+      kspReportPort.ConnectedPort = (IMessagePort)((INode)controlNode).Ports["Add KSP Solution"];
+      tspIterHook.Port = tspReportPort;
+      tspReportPort.ConnectedPort = (IMessagePort)((INode)controlNode).Ports["Add TSP Solution"];
+      #endregion
 
       paramsPort.SendMessage(paramsPort.PrepareMessage());
-      #endregion
     }
   }