Changeset 16899 for branches/2988_ModelsOfModels2/HeuristicLab.Algorithms.EMM/EMMAlgorithm.cs

Timestamp:

05/06/19 14:20:06 (5 years ago)

Author:

msemenki

Message:

#2988: New version of class structure.

File:

• branches/2988_ModelsOfModels2/HeuristicLab.Algorithms.EMM/EMMAlgorithm.cs (modified) (5 diffs)

branches/2988_ModelsOfModels2/HeuristicLab.Algorithms.EMM/EMMAlgorithm.cs

@@ -28 +28 @@
 using HeuristicLab.Random;
 using HeuristicLab.Selection;
-using System;
 using System.Collections.Generic;
 using System.IO;
@@ -40 +39 @@
   [StorableType("AD23B21F-089A-4C6C-AD2E-1B01E7939CF5")]
   public class EMMAlgorithm : EvolvmentModelsOfModelsAlgorithmBase {
-    public EMMMapTreeModel Map { get; private set; }
-
     public EMMAlgorithm() : base() { }
     protected EMMAlgorithm(EMMAlgorithm original, Cloner cloner) : base(original, cloner) {
-      if (original.Map != null) {
-        Map = cloner.Clone(original.Map);
-      }
+      //if (original.Map != null) {
+      //  Map = cloner.Clone(original.Map);
+      //}
     }
     public override IDeepCloneable Clone(Cloner cloner) {
@@ -58 +55 @@
       InfixExpressionParser parser = new InfixExpressionParser();
       var trees = File.ReadAllLines(InputFileParameter.Value.Value).Select(parser.Parse);
-      // this.Problem.SymbolicExpressionTreeGrammar;
-      /*   Problem.ProblemData.Dataset.ColumnNames.Take(2).ToList();
-         trees.First().Root.Grammar.ContainsSymbol((IVariable)a).
-           = this.Problem.SymbolicExpressionTreeGrammar;*/
-      int neghboorNumber = 10;
-      switch (MapCreationType.Value) { // Configure Map type and it's parameters: IslandMap, FullMap and Percent, Number
-        case "IslandMap": break;
-        case "FullMap":
-          ClusterNumbersParameter.Value.Value = trees.Count();
-          switch (NegbourType.Value) {
-            case "Percent": neghboorNumber = Convert.ToInt32((Convert.ToDouble(ClusterNumbersParameter.Value.Value)) * (Convert.ToDouble(NegbourNumber.Value)) / 100.0); break;
-            case "Number": neghboorNumber = NegbourNumber.Value; break;
-            default: neghboorNumber = NegbourNumber.Value; break;
-          }
-          break;
-        default: MapCreationType.Value = "IslandMap"; break;
-      }
-      switch (AlgorithmImplemetationType.Value) { //Configure type of algorithm application
-        case "OnlyMapCreation": // for case when we want only create map, and do  not want made somting also. OnlyMapCreation, CrateMapAndGo, ReadMapAndGo
-          Map = new EMMMapTreeModel(RandomParameter.Value, trees, ClusterNumbersParameter.Value.Value, neghboorNumber);
-          ClusterNumbersParameter.Value.Value = Map.K;
-          File.WriteAllLines("Map.txt", Map.MapToString());
-          File.WriteAllLines("MapToSee.txt", Map.MapToSee());
-          globalScope = new Scope("Global Scope");
-          executionContext = new ExecutionContext(null, this, globalScope);
-          break;
-        case "ReadMapAndGo": // for case when we want read existed map and work with it;
-          Map = new EMMMapTreeModel(RandomParameter.Value, trees);
-          ClusterNumbersParameter.Value.Value = Map.K;
-          if (previousExecutionState != ExecutionState.Paused) {
-            InitializeAlgorithm(cancellationToken);
-          }
+      if (AlgorithmImplemetationType.Value == "Read") {
+        Map.MapRead(RandomParameter.Value, trees, "Map.txt");
+      } else {
+        Map.MapCreationPrepare(RandomParameter.Value, trees, ClusterNumbersParameter.Value.Value);
+        Map.CreateMap(RandomParameter.Value, ClusterNumbersParameter.Value.Value);
+       // Map.WriteMapToTxtFile(RandomParameter.Value);
+      }
+
+      ClusterNumbersShowParameter.Value.Value = Map.K;
+
+      if (AlgorithmImplemetationType.Value == "OnlyMap") {
+        globalScope = new Scope("Global Scope");
+        executionContext = new ExecutionContext(null, this, globalScope);
+      } else {
+        if (previousExecutionState != ExecutionState.Paused) {
+          InitializeAlgorithm(cancellationToken);
+        }
+        if (!globalScope.Variables.ContainsKey("TreeModelMap"))
           globalScope.Variables.Add(new Variable("TreeModelMap", Map));
-          EMMAlgorithmRun(cancellationToken);
-          break;
-        case "CreateMapAndGo":
-          Map = new EMMMapTreeModel(RandomParameter.Value, trees, ClusterNumbersParameter.Value.Value, neghboorNumber);
-          ClusterNumbersParameter.Value.Value = Map.K;
-          if (previousExecutionState != ExecutionState.Paused) {
-            InitializeAlgorithm(cancellationToken);
-          }
-          globalScope.Variables.Add(new Variable("TreeModelMap", Map));
-          File.WriteAllLines("Map.txt", Map.MapToString());
-          File.WriteAllLines("MapToSee.txt", Map.MapToSee());
-          EMMAlgorithmRun(cancellationToken);
-          break;
-        default: //for case of usial from zero step starting
-          AlgorithmImplemetationType.Value = "CreateMapAndGo";
-          Map = new EMMMapTreeModel(RandomParameter.Value, trees, ClusterNumbersParameter.Value.Value, neghboorNumber);
-          ClusterNumbersParameter.Value.Value = Map.K;
-          File.WriteAllLines("Map.txt", Map.MapToString());
-          File.WriteAllLines("MapToSee.txt", Map.MapToSee());
-          if (previousExecutionState != ExecutionState.Paused) {
-            InitializeAlgorithm(cancellationToken);
-          }
-          globalScope.Variables.Add(new Variable("TreeModelMap", Map));
-          EMMAlgorithmRun(cancellationToken);
-          break;
-      }
-
+        EMMAlgorithmRun(cancellationToken);
+      }
     }
     private void EMMAlgorithmRun(CancellationToken cancellationToken) {
@@ -227 +185 @@
 
       // initialize data structures for map clustering
-      var models = new ItemList<ISymbolicExpressionTree>(Map.ModelSet);
-      var map = new ItemList<ItemList<IntValue>>();
-      foreach (var list in Map.Map) {
-        map.Add(new ItemList<IntValue>(list.Select(x => new IntValue(x))));
-      }
-      var clusterNumber = new ItemList<IntValue>(Map.ClusterNumber.Select(x => new IntValue(x)));
-      globalScope.Variables.Add(new Core.Variable("Models", models));
-      globalScope.Variables.Add(new Core.Variable("Map", map));
-      globalScope.Variables.Add(new Core.Variable("ClusterNumber", clusterNumber));
+      //var models = new ItemList<ISymbolicExpressionTree>(Map.ModelSet);
+      //var map = new ItemList<ItemList<IntValue>>();
+      //foreach (var list in Map.Map) {
+      //  map.Add(new ItemList<IntValue>(list.Select(x => new IntValue(x))));
+      //}
+      //var clusterNumber = new ItemList<IntValue>(Map.ClusterNumber.Select(x => new IntValue(x)));
+      //globalScope.Variables.Add(new Variable("Models", models));
+      //globalScope.Variables.Add(new Variable("Map", map));
+      //globalScope.Variables.Add(new Variable("ClusterNumber", clusterNumber));
 
       EvaluatedSolutions = populationSize;
@@ -274 +232 @@
       }
     }
+    private void LocalDecent(ISymbolicDataAnalysisSingleObjectiveProblem problem, CancellationToken cancellationToken, IScope childScope) {
+      int maxStepNumber = 100;
+      var creator = Problem.SolutionCreator;
+      var name = ((ISymbolicExpressionTreeCreator)creator).SymbolicExpressionTreeParameter.ActualName;
+      var tree = (ISymbolicExpressionTree)childScope.Variables[name].Value;
+      var evaluator = problem.Evaluator;
+      var oldTree = tree.Clone();
+      ExecuteOperation(executionContext, cancellationToken, executionContext.CreateChildOperation(evaluator, childScope));
+      var rand = RandomParameter.Value;
+      if (SetSeedRandomly) Seed = RandomSeedGenerator.GetSeed();
+      rand.Reset(Seed);
+      while (maxStepNumber > 0) {
+        maxStepNumber = TreeIterator(tree.Root, rand, cancellationToken, childScope, maxStepNumber);
+      }
+    }
+    int TreeIterator(ISymbolicExpressionTreeNode a, IRandom rand, CancellationToken cancellationToken, IScope childScope, int maxStepNumber) {
+      if (a is TreeModelTreeNode modelNode) {
+        ModelChange(modelNode, rand, cancellationToken, childScope);
+        maxStepNumber--;
+      }
+      if (a.Subtrees != null) {
+        for (int i = 0; i < (a.Subtrees.Count()); i++) {
+          TreeIterator(a.Subtrees.ToList()[i], rand, cancellationToken, childScope, maxStepNumber);
+        }
+      }
+      return maxStepNumber;
+    }
+    void ModelChange(TreeModelTreeNode a, IRandom rand, CancellationToken cancellationToken, IScope childScope) {
+      int treeNumber = a.TreeNumber;
+      var oldSubTree = (ISymbolicExpressionTree)a.Tree.Clone();
+      double oldQuality = ((DoubleValue)childScope.Variables["Quality"].Value).Value;
+      int cluster = Map.ClusterNumber[treeNumber];
+      int newTreeNumber = rand.Next(Map.Map[cluster].Count);
+      a.Tree = (ISymbolicExpressionTree)Map.ModelSet[newTreeNumber].Clone();
+      a.Tree.Root.ShakeLocalParameters(rand, 1);
+      var evaluator = Problem.Evaluator;
+      ExecuteOperation(executionContext, cancellationToken, executionContext.CreateChildOperation(evaluator, childScope));
+      double currentQuality = ((DoubleValue)childScope.Variables["Quality"].Value).Value;
+      if (oldQuality > currentQuality) {
+        a.Tree = (ISymbolicExpressionTree)oldSubTree.Clone();
+        ((DoubleValue)childScope.Variables["Quality"].Value).Value = oldQuality;
+      }
+    }
   }
 
+
 }