source: branches/HeuristicLab.MetaOptimization/HeuristicLab.Problems.MetaOptimization/3.3/Evaluators/AlgorithmSubScopesCreator.cs @ 5655

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using HeuristicLab.Operators;
using HeuristicLab.Persistence.Default.CompositeSerializers.Storable;
using HeuristicLab.Core;
using HeuristicLab.Common;
using HeuristicLab.Parameters;
using HeuristicLab.Optimization;
using HeuristicLab.Data;
using HeuristicLab.Algorithms.GeneticAlgorithm;

namespace HeuristicLab.Problems.MetaOptimization {
  [Item("ChildrenCreator", "An operator which is used to prepare crossover. The sub-scopes of the current scope the operator is applied on represent the parents. The operator creates new and empty scopes for each child, adds the scopes that represent the child's parents as sub-scopes to the child and adds the child as sub-scope to the current scope.")]
  [StorableClass]
  public class AlgorithmSubScopesCreator : SingleSuccessorOperator {
    #region Parameter properties
    public ILookupParameter<TypeValue> AlgorithmTypeParameter {
      get { return (ILookupParameter<TypeValue>)Parameters[MetaOptimizationProblem.AlgorithmTypeParameterName]; }
    }
    public ILookupParameter<IItemList<IProblem>> ProblemsParameter {
      get { return (ILookupParameter<IItemList<IProblem>>)Parameters[MetaOptimizationProblem.ProblemsParameterName]; }
    }
    public ILookupParameter<ParameterConfigurationTree> ParameterConfigurationParameter {
      get { return (ILookupParameter<ParameterConfigurationTree>)Parameters["ParameterConfigurationTree"]; }
    }
    public LookupParameter<IntValue> RepetitionsParameter {
      get { return (LookupParameter<IntValue>)Parameters[MetaOptimizationProblem.RepetitionsParameterName]; }
    }
    private ScopeParameter CurrentScopeParameter {
      get { return (ScopeParameter)Parameters["CurrentScope"]; }
    }
    public IScope CurrentScope {
      get { return CurrentScopeParameter.ActualValue; }
    }
    #endregion

    [StorableConstructor]
    protected AlgorithmSubScopesCreator(bool deserializing) : base(deserializing) { }
    public AlgorithmSubScopesCreator()
      : base() {
      Parameters.Add(new LookupParameter<TypeValue>(MetaOptimizationProblem.AlgorithmTypeParameterName, ""));
      Parameters.Add(new LookupParameter<IItemList<IProblem>>(MetaOptimizationProblem.ProblemsParameterName, ""));
      Parameters.Add(new LookupParameter<ParameterConfigurationTree>("ParameterConfigurationTree", ""));
      Parameters.Add(new LookupParameter<IntValue>(MetaOptimizationProblem.RepetitionsParameterName, "Number of evaluations on one problem."));
      Parameters.Add(new ScopeParameter("CurrentScope", "The current scope whose sub-scopes represent the parents."));
    }
    protected AlgorithmSubScopesCreator(AlgorithmSubScopesCreator original, Cloner cloner)
      : base(original, cloner) {
    }
    public override IDeepCloneable Clone(Cloner cloner) {
      return new AlgorithmSubScopesCreator(this, cloner);
    }

    public override IOperation Apply() {
      ParameterConfigurationTree parameterConfiguration = ParameterConfigurationParameter.ActualValue;
      IItemList<IProblem> problems = ProblemsParameter.ActualValue;
      int repetitions = RepetitionsParameter.ActualValue.Value;
      Type algorithmType = AlgorithmTypeParameter.ActualValue.Value;

      for (int i = 0; i < repetitions; i++) {
        for (int j = 0; j < problems.Count; j++) {
          IScope child = new Scope(string.Format("Problem {0}, Repetition {1}", j, i));
          var algorithm = (IAlgorithm)Activator.CreateInstance(algorithmType);
          algorithm.Problem = (IProblem)problems[j].Clone();
          ((EngineAlgorithm)algorithm).Engine = new SequentialEngine.SequentialEngine();

          //((GeneticAlgorithm)algorithm).PopulationSize.Value = 10;
          //((GeneticAlgorithm)algorithm).MaximumGenerations.Value = 10;

          parameterConfiguration.Parameterize(algorithm);
          child.Variables.Add(new Variable("Algorithm", algorithm));
          child.Variables.Add(new Variable("ProblemIndex", new IntValue(j)));
          child.Variables.Add(new Variable("RepetitionIndex", new IntValue(i)));
          CurrentScope.SubScopes.Add(child);
        }
      }
      return base.Apply();
    }
  }
}