Changeset 17735

Timestamp:

08/27/20 17:54:39 (4 years ago)

Author:

dpiringe

Message:

#3076

• added a IResultParameter to show the rising penality
• added a IValueParameter to set the step size (enables plateaus with the same penality multiplier)

File:

• branches/3076_IA_evaluators_analyzers/HeuristicLab.Problems.DataAnalysis.Symbolic.Regression/3.4/SymbolicRegressionConstraintAnalyzer.cs (modified) (7 diffs)

branches/3076_IA_evaluators_analyzers/HeuristicLab.Problems.DataAnalysis.Symbolic.Regression/3.4/SymbolicRegressionConstraintAnalyzer.cs

@@ -21 +21 @@
     private const string ConstraintViolationParameterName = "ConstraintViolations";
     private const string PenalityMultiplierParameterName = "ConstraintsPenalityMultiplier";
+    private const string PenalityMultiplierResultParameterName = "PenalityMultiplierResultParameter";
+    private const string StepSizeParameterName = "Step Size";
 
     #region parameter properties
@@ -32 +34 @@
     public ILookupParameter<DoubleValue> PenalityMultiplierParameter =>
       (ILookupParameter<DoubleValue>)Parameters[PenalityMultiplierParameterName];
+    public IValueParameter<IntValue> StepSizeParameter =>
+      (IValueParameter<IntValue>)Parameters[StepSizeParameterName];
+
+    public IResultParameter<DataTable> PenalityMultiplierResultParameter =>
+      (IResultParameter<DataTable>)Parameters[PenalityMultiplierResultParameterName];
 
     #endregion
@@ -55 +62 @@
       Parameters.Add(new LookupParameter<DoubleValue>(PenalityMultiplierParameterName,
         "Lookup parameter for the penality multiplier.", "PenalityMultiplier"));
+      Parameters.Add(new ResultParameter<DataTable>(PenalityMultiplierResultParameterName,
+        "Shows the behavior of the penality multiplier."));
+      Parameters.Add(new ValueParameter<IntValue>(StepSizeParameterName,
+        "Defines the step size for the increasing penality multiplier.", new IntValue(1)));
 
       ConstraintViolationParameter.DefaultValue = new DataTable(ConstraintViolationParameterName) {
@@ -63 +74 @@
           }
       };
+
+      PenalityMultiplierResultParameter.DefaultValue = new DataTable(PenalityMultiplierResultParameterName)
+      {
+        VisualProperties =
+          {
+            XAxisTitle = "Generations",
+            YAxisTitle = "Penality Multiplier"
+          }
+      };
     }
 
@@ -83 +103 @@
         Parameters.Add(new LookupParameter<DoubleValue>(PenalityMultiplierParameterName,
         "Lookup parameter for the penality multiplier.", "PenalityMultiplier"));
+
+      if (!Parameters.ContainsKey(PenalityMultiplierResultParameterName))
+      {
+        Parameters.Add(new ResultParameter<DataTable>(PenalityMultiplierResultParameterName,
+        "Shows the behavior of the penality multiplier."));
+
+        PenalityMultiplierResultParameter.DefaultValue = new DataTable(PenalityMultiplierResultParameterName)
+        {
+          VisualProperties =
+          {
+            XAxisTitle = "Generations",
+            YAxisTitle = "Penality Multiplier"
+          }
+        };
+      }
+
+      if (!Parameters.ContainsKey(StepSizeParameterName))
+        Parameters.Add(new ValueParameter<IntValue>(StepSizeParameterName,
+        "Defines the step size for the increasing penality multiplier.", new IntValue(1)));
+
     }
 
@@ -88 +128 @@
     {
       Iterations++;
-
-      PenalityMultiplierParameter.ActualValue = new DoubleValue(QuadraticDiscreteDoubleValueModifier.Apply(0, 0.05, 1.0, Iterations, 0, 2000));
+      var rowName = "GeneralizedExponentialDiscreteDoubleValueModifier";
+      var stepSize = StepSizeParameter?.Value?.Value ?? 1;
+      var penalityMultiplier = new DoubleValue(LinearDiscreteDoubleValueModifier.Apply(0, 0.1, 1.0, (int)(Iterations / stepSize) * stepSize, 0, 1000));
+      PenalityMultiplierParameter.ActualValue = penalityMultiplier;
       //GeneralizedExponentialDiscreteDoubleValueModifier
+      //QuadraticDiscreteDoubleValueModifier
+      //LinearDiscreteDoubleValueModifier
 
       var problemData = RegressionProblemDataParameter.ActualValue;
@@ -110 +154 @@
         newDataTable.Rows[constraint.Expression].Values.Add(violations);
       }
+
+      var penalityDataTable = PenalityMultiplierResultParameter.ActualValue;
+      if (penalityDataTable.Rows.Count == 0)
+        penalityDataTable.Rows.Add(new DataRow(rowName));
+      penalityDataTable.Rows[rowName].Values.Add(penalityMultiplier.Value);
 
       return base.Apply();