Changeset 13583 for branches/PerformanceComparison/HeuristicLab.Analysis.FitnessLandscape/3.3/Analysis/InformationAnalyzer.cs

Timestamp:

02/02/16 14:10:53 (8 years ago)

Author:

abeham

Message:

#2457:

• Added stripped-down version of FLA branch
• Added appropriate calculators
• Fixed detecting maximization in RLD view

Location:

branches/PerformanceComparison/HeuristicLab.Analysis.FitnessLandscape

Files:

• . (copied) (copied from branches/FitnessLandscapeAnalysis/HeuristicLab.Analysis.FitnessLandscape)
• 3.3 (added)
• 3.3/Analysis (copied) (copied from branches/FitnessLandscapeAnalysis/HeuristicLab.Analysis.FitnessLandscape/Analysis)
• 3.3/Analysis/InformationAnalyzer.cs (modified) (5 diffs)

branches/PerformanceComparison/HeuristicLab.Analysis.FitnessLandscape/3.3/Analysis/InformationAnalyzer.cs

@@ -20 +20 @@
 #endregion
 
-using System;
-using System.Linq;
-using HeuristicLab.Analysis.FitnessLandscape.DataTables;
 using HeuristicLab.Common;
 using HeuristicLab.Core;
 using HeuristicLab.Data;
 using HeuristicLab.Operators;
-using HeuristicLab.Optimization.Operators;
+using HeuristicLab.Optimization;
 using HeuristicLab.Parameters;
 using HeuristicLab.Persistence.Default.CompositeSerializers.Storable;
+using System.Linq;
 
-namespace HeuristicLab.Analysis.FitnessLandscape.Analysis {
+namespace HeuristicLab.Analysis.FitnessLandscape {
 
   [StorableClass]
-  public class InformationAnalyzer : AlgorithmOperator, IQualityTrailAnalyzer {
+  public class InformationAnalyzer : SingleSuccessorOperator, IQualityTrailAnalyzer {
     public bool EnabledByDefault {
       get { return false; }
@@ -43 +41 @@
       get { return (LookupParameter<DataTable>)Parameters["Quality Trail"]; }
     }
-    public LookupParameter<InformationStabilityTable> InformationStabilityParameter {
-      get { return (LookupParameter<InformationStabilityTable>)Parameters["Information Stability"]; }
-    }
-    public LookupParameter<InformationAnalysisTable> InformationParameter {
-      get { return (LookupParameter<InformationAnalysisTable>)Parameters["Information"]; }
-    }
-    public LookupParameter<VariableCollection> ResultsParameter {
-      get { return (LookupParameter<VariableCollection>)Parameters["Results"]; }
+    public LookupParameter<ResultCollection> ResultsParameter {
+      get { return (LookupParameter<ResultCollection>)Parameters["Results"]; }
     }
     public ValueLookupParameter<IntValue> NQuantilesParameter {
@@ -58 +50 @@
       get { return (ValueLookupParameter<IntValue>)Parameters["ShapeSize"]; }
     }
-    public LookupParameter<DoubleValue> InformationContentValueParameter {
-      get { return (LookupParameter<DoubleValue>)Parameters["InformationContentValue"]; }
+    public LookupParameter<DoubleValue> InformationContentParameter {
+      get { return (LookupParameter<DoubleValue>)Parameters["InformationContent"]; }
     }
-    public LookupParameter<DoubleValue> PartialInformationContentValueParameter {
-      get { return (LookupParameter<DoubleValue>)Parameters["PartialInformationContentValue"]; }
+    public LookupParameter<DoubleValue> PartialInformationContentParameter {
+      get { return (LookupParameter<DoubleValue>)Parameters["PartialInformationContent"]; }
     }
-    public LookupParameter<DoubleValue> DensityBasinInformationValueParameter {
-      get { return (LookupParameter<DoubleValue>)Parameters["DensityBasinInformationValue"]; }
+    public LookupParameter<DoubleValue> DensityBasinInformationParameter {
+      get { return (LookupParameter<DoubleValue>)Parameters["DensityBasinInformation"]; }
     }
-    public LookupParameter<DoubleValue> TotalEntropyValueParameter {
-      get { return (LookupParameter<DoubleValue>)Parameters["TotalEntropyValue"]; }
+    public LookupParameter<DoubleValue> TotalEntropyParameter {
+      get { return (LookupParameter<DoubleValue>)Parameters["TotalEntropy"]; }
     }
-    public LookupParameter<DoubleValue> InformationStabilityValueParameter {
-      get { return (LookupParameter<DoubleValue>)Parameters["InformationStabilityValue"]; }
+    public LookupParameter<DoubleValue> InformationStabilityParameter {
+      get { return (LookupParameter<DoubleValue>)Parameters["InformationStability"]; }
     }
-    public LookupParameter<IntValue> RegularityValueParameter {
-      get { return (LookupParameter<IntValue>)Parameters["RegularityValue"]; }
+    public LookupParameter<DoubleValue> RegularityParameter {
+      get { return (LookupParameter<DoubleValue>)Parameters["Regularity"]; }
     }
-    public LookupParameter<IntValue> DiversityValueParameter {
-      get { return (LookupParameter<IntValue>)Parameters["DiversityValue"]; }
+    public LookupParameter<DoubleValue> DiversityParameter {
+      get { return (LookupParameter<DoubleValue>)Parameters["Diversity"]; }
     }
-
-    #region Peaks
     public LookupParameter<DoubleValue> PeakInformationContentParameter {
-      get { return (LookupParameter<DoubleValue>) Parameters["PeakInformationContent"]; }
-    }
-    public LookupParameter<DoubleValue> PeakInformationContentQualityDeltaParameter {
-      get { return (LookupParameter<DoubleValue>) Parameters["PeakInformationContentQualityDelta"]; }
+      get { return (LookupParameter<DoubleValue>)Parameters["PeakInformationContent"]; }
     }
     public LookupParameter<DoubleValue> PeakDensityBasinInformationParameter {
-      get { return (LookupParameter<DoubleValue>) Parameters["PeakDensityBasinInformation"]; }
+      get { return (LookupParameter<DoubleValue>)Parameters["PeakDensityBasinInformation"]; }
     }
-    public LookupParameter<DoubleValue> PeakDensityBasinInformationQualityDeltaParameter {
-      get { return (LookupParameter<DoubleValue>) Parameters["PeakDensityBasinInformationQualityDelta"]; }
-    }
-
-
     #endregion
-
-    #endregion
-
-    private InformationStabilityTable InformationStability {
-      get { return InformationStabilityParameter.ActualValue; }
-    }
-    private double InformationContentValue {
-      set { InformationContentValueParameter.ActualValue = new DoubleValue(value); }
-    }
-    private double PartialInformationContentValue {
-      set { PartialInformationContentValueParameter.ActualValue = new DoubleValue(value); }
-    }
-    private double DensityBasinInformationValue {
-      set { DensityBasinInformationValueParameter.ActualValue = new DoubleValue(value); }
-    }
-    private double TotalEntropyValue {
-      set { TotalEntropyValueParameter.ActualValue = new DoubleValue(value); }
-    }
-    private double InformationStabilityValue {
-      set { InformationStabilityValueParameter.ActualValue = new DoubleValue(value); }
-    }
 
     [StorableConstructor]
@@ -124 +85 @@
     public InformationAnalyzer() {
       Parameters.Add(new LookupParameter<DataTable>("Quality Trail", "The qualities of the solutions"));
-      Parameters.Add(new LookupParameter<InformationStabilityTable>("Information Stability", "Information stability development over time"));
-      Parameters.Add(new LookupParameter<InformationAnalysisTable>("Information", "A data table that information theoretic fitness landscape characteristics"));
-      Parameters.Add(new LookupParameter<VariableCollection>("Results", "The collection of all results of this algorithm"));
+      Parameters.Add(new LookupParameter<ResultCollection>("Results", "The collection of all results of this algorithm"));
 
       Parameters.Add(new ValueLookupParameter<IntValue>("NQuantiles", "The number of delta quantiles to display", new IntValue(20)));
       Parameters.Add(new ValueLookupParameter<IntValue>("ShapeSize", "The number of slopes to consider as shapes.", new IntValue(2)));
 
-      Parameters.Add(new LookupParameter<DoubleValue>("InformationContentValue", "The information content H(0) at eps = 0"));
-      Parameters.Add(new LookupParameter<DoubleValue>("PartialInformationContentValue", "Partial information content M(0) at eps = 0"));
-      Parameters.Add(new LookupParameter<DoubleValue>("DensityBasinInformationValue", "Density Basin Information h(0) at eps = 0"));
-      Parameters.Add(new LookupParameter<DoubleValue>("TotalEntropyValue", "The overall disorder in the trajectory"));
-      Parameters.Add(new LookupParameter<DoubleValue>("InformationStabilityValue", "Information Stability Value"));
-      Parameters.Add(new LookupParameter<IntValue>("RegularityValue", "The number of different quality differences"));
-      Parameters.Add(new LookupParameter<IntValue>("DiversityValue", "The number of different quality values"));
+      Parameters.Add(new LookupParameter<DoubleValue>("InformationContent", "The information content H(0) at eps = 0"));
+      Parameters.Add(new LookupParameter<DoubleValue>("PartialInformationContent", "Partial information content M(0) at eps = 0"));
+      Parameters.Add(new LookupParameter<DoubleValue>("DensityBasinInformation", "Density Basin Information h(0) at eps = 0"));
+      Parameters.Add(new LookupParameter<DoubleValue>("TotalEntropy", "The overall disorder in the trajectory"));
+      Parameters.Add(new LookupParameter<DoubleValue>("InformationStability", "Information Stability Value"));
+      Parameters.Add(new LookupParameter<DoubleValue>("Regularity", "The number of different quality differences"));
+      Parameters.Add(new LookupParameter<DoubleValue>("Diversity", "The number of different quality values"));
       Parameters.Add(new LookupParameter<DoubleValue>("PeakInformationContent", "Maximum information content at any quality delta."));
-      Parameters.Add(new LookupParameter<DoubleValue>("PeakInformationContentQualityDelta", "Quality delta with maximum information content."));
       Parameters.Add(new LookupParameter<DoubleValue>("PeakDensityBasinInformation", "Maximum density basin information at any quality delta."));
-      Parameters.Add(new LookupParameter<DoubleValue>("PeakDensityBasinInformationQualityDelta", "Quality delta with maximum density basin information."));
-
-      var resultsCollector = new ResultsCollector();
-      resultsCollector.CollectedValues.Add(new LookupParameter<DataTable>(InformationParameter.Name));
-      resultsCollector.CollectedValues.Add(new LookupParameter<DataTable>(InformationStabilityParameter.Name));
-      resultsCollector.CollectedValues.Add(new LookupParameter<DoubleValue>(InformationContentValueParameter.Name));
-      resultsCollector.CollectedValues.Add(new LookupParameter<DoubleValue>(PartialInformationContentValueParameter.Name));
-      resultsCollector.CollectedValues.Add(new LookupParameter<DoubleValue>(DensityBasinInformationValueParameter.Name));
-      resultsCollector.CollectedValues.Add(new LookupParameter<DoubleValue>(TotalEntropyValueParameter.Name));
-      resultsCollector.CollectedValues.Add(new LookupParameter<DoubleValue>(InformationStabilityValueParameter.Name));
-      resultsCollector.CollectedValues.Add(new LookupParameter<IntValue>(RegularityValueParameter.Name));
-      resultsCollector.CollectedValues.Add(new LookupParameter<IntValue>(DiversityValueParameter.Name));
-      resultsCollector.CollectedValues.Add(new LookupParameter<DoubleValue>(PeakInformationContentParameter.Name));
-      resultsCollector.CollectedValues.Add(new LookupParameter<DoubleValue>(PeakInformationContentQualityDeltaParameter.Name));
-      resultsCollector.CollectedValues.Add(new LookupParameter<DoubleValue>(PeakDensityBasinInformationParameter.Name));
-      resultsCollector.CollectedValues.Add(new LookupParameter<DoubleValue>(PeakDensityBasinInformationQualityDeltaParameter.Name));
-
-      OperatorGraph.InitialOperator = resultsCollector;
-      resultsCollector.Successor = null;
     }
 
@@ -167 +106 @@
 
     public override IOperation Apply() {
-      DataTable qualityTrail = QualityTrailParameter.ActualValue;
-      if (qualityTrail != null && qualityTrail.Rows.Count > 0) {
-        EnsureExistsInformationStabilityTable();
-        EnsureExistsInformationTable();
-        AnalyseInformation();
-      }
+      var qualityTrail = QualityTrailParameter.ActualValue;
+      if (qualityTrail == null || qualityTrail.Rows.Count == 0) return base.Apply();
+
+      var qualities = QualityTrailParameter.ActualValue.Rows.First().Values.ToList();
+      if (qualities.Count <= 2) return base.Apply();
+
+      var nQuantiles = NQuantilesParameter.ActualValue.Value;
+      var shapeSize = ShapeSizeParameter.ActualValue.Value;
+      var results = ResultsParameter.ActualValue;
+
+      var analysis = new InformationAnalysis(qualities, nQuantiles, shapeSize);
+      var ic = new DoubleValue(analysis.InformationContent.FirstOrDefault());
+      InformationContentParameter.ActualValue = ic;
+      AddOrUpdateResult(results, InformationContentParameter.Name, ic);
+      var pic = new DoubleValue(analysis.PartialInformationContent.FirstOrDefault());
+      PartialInformationContentParameter.ActualValue = pic;
+      AddOrUpdateResult(results, PartialInformationContentParameter.Name, pic);
+      var dbi = new DoubleValue(analysis.DensityBasinInformation.FirstOrDefault());
+      DensityBasinInformationParameter.ActualValue = dbi;
+      AddOrUpdateResult(results, DensityBasinInformationParameter.Name, dbi);
+      var @is = new DoubleValue(analysis.InformationStability);
+      InformationStabilityParameter.ActualValue = @is;
+      AddOrUpdateResult(results, InformationStabilityParameter.Name, @is);
+      var regularity = new DoubleValue(1.0 * analysis.Regularity / qualities.Count);
+      RegularityParameter.ActualValue = regularity;
+      AddOrUpdateResult(results, RegularityParameter.Name, regularity);
+      var diversity = new DoubleValue(1.0 * analysis.Diversity / qualities.Count);
+      DiversityParameter.ActualValue = diversity;
+      AddOrUpdateResult(results, DiversityParameter.Name, diversity);
+      var totalEntropy = new DoubleValue(analysis.TotalEntropy.FirstOrDefault());
+      TotalEntropyParameter.ActualValue = totalEntropy;
+      AddOrUpdateResult(results, TotalEntropyParameter.Name, totalEntropy);
+      var peakIc = new DoubleValue(analysis.PeakInformationContent.Value);
+      PeakInformationContentParameter.ActualValue = peakIc;
+      AddOrUpdateResult(results, PeakInformationContentParameter.Name, peakIc);
+      var peakDbi = new DoubleValue(analysis.PeakDensityBasinInformation.Value);
+      PeakDensityBasinInformationParameter.ActualValue = peakDbi;
+      AddOrUpdateResult(results, PeakDensityBasinInformationParameter.Name, peakDbi);
+
       return base.Apply();
     }
 
-    private void AnalyseInformation() {
-      int nQuantiles = NQuantilesParameter.ActualValue.Value;
-      int shapeSize = ShapeSizeParameter.ActualValue.Value;
-      var qualities = QualityTrailParameter.ActualValue.Rows.First().Values.ToList();
-      if (qualities.Count > 2) {
-        InformationAnalysisTable informationTable = InformationParameter.ActualValue;
-        var informationContent = informationTable.Rows["Information Content"].Values;
-        var partialInformationContent = informationTable.Rows["Partial Information Content"].Values;
-        var densityBasinInformation = informationTable.Rows["Density Basin Information"].Values;
-        var totalEntropy = informationTable.Rows["Total Entropy"].Values;
-        var qualityDelta = informationTable.Rows["Quality Delta"].Values;
-        var analysis = new InformationAnalysis(qualities, nQuantiles, shapeSize);
-        InformationStability.Rows["Regularity"].Values.Add(analysis.Regularity);
-        InformationStability.Rows["Diversity"].Values.Add(analysis.Diversity);
-        InformationStability.Rows["Relative Regularity"].Values.Add(1.0*analysis.Regularity/qualities.Count);
-        InformationStability.Rows["Relative Diversity"].Values.Add(1.0*analysis.Diversity/qualities.Count);
-        InformationStability.Rows["Information Stability"].Values.Add(analysis.InformationStability);
-        informationContent.Clear();
-        informationContent.AddRange(analysis.InformationContent);
-        partialInformationContent.Clear();
-        partialInformationContent.AddRange(analysis.PartialInformationContent);
-        densityBasinInformation.Clear();
-        densityBasinInformation.AddRange(analysis.DensityBasinInformation);
-        totalEntropy.Clear();
-        totalEntropy.AddRange(analysis.TotalEntropy);
-        qualityDelta.Clear();
-        qualityDelta.AddRange(analysis.QualityDelta);
-        InformationContentValue = analysis.InformationContent.FirstOrDefault();
-        PartialInformationContentValue = analysis.PartialInformationContent.FirstOrDefault();
-        DensityBasinInformationValue = analysis.DensityBasinInformation.FirstOrDefault();
-        InformationStabilityValue = analysis.InformationStability;
-        RegularityValueParameter.ActualValue = new IntValue(analysis.Regularity);
-        DiversityValueParameter.ActualValue = new IntValue(analysis.Diversity);
-        if (analysis.PeakInformationContent != null) {
-          PeakInformationContentParameter.ActualValue = new DoubleValue(analysis.PeakInformationContent.Value);
-          PeakInformationContentQualityDeltaParameter.ActualValue = new DoubleValue(analysis.PeakInformationContent.QualityDelta);
-        }
-        if (analysis.PeakDensityBasinInformation != null) {
-          PeakDensityBasinInformationParameter.ActualValue = new DoubleValue(analysis.PeakDensityBasinInformation.Value);
-          PeakDensityBasinInformationQualityDeltaParameter.ActualValue = new DoubleValue(analysis.PeakDensityBasinInformation.QualityDelta);
-        }
-      }
-    }
-
-    private void EnsureExistsInformationTable() {
-      InformationAnalysisTable information = InformationParameter.ActualValue;
-      if (information == null) {
-        information = new InformationAnalysisTable("Information");
-        information.Rows.Add(new DataRow("Information Content"));
-        information.Rows.Add(new DataRow("Partial Information Content"));
-        information.Rows.Add(new DataRow("Density Basin Information"));
-        information.Rows.Add(new DataRow("Total Entropy"));
-        information.Rows.Add(new DataRow("Quality Delta") {VisualProperties = {SecondYAxis = true}});
-        InformationParameter.ActualValue = information;
-      }
-    }
-
-    private void EnsureExistsInformationStabilityTable() {
-      InformationStabilityTable informationStability = InformationStabilityParameter.ActualValue;
-      if (informationStability == null) {
-        informationStability = new InformationStabilityTable("Information Stability");
-        informationStability.Rows.Add(new DataRow("Information Stability"));
-        informationStability.Rows.Add(new DataRow("Relative Regularity"));
-        informationStability.Rows.Add(new DataRow("Relative Diversity"));
-        informationStability.Rows.Add(new DataRow("Regularity") {VisualProperties = {SecondYAxis = true}});
-        informationStability.Rows.Add(new DataRow("Diversity") {VisualProperties = {SecondYAxis = true}});
-        InformationStabilityParameter.ActualValue = informationStability;
-      }
+    private static void AddOrUpdateResult(ResultCollection results, string name, IItem item, bool clone = false) {
+      IResult r;
+      if (!results.TryGetValue(name, out r)) {
+        results.Add(new Result(name, clone ? (IItem)item.Clone() : item));
+      } else r.Value = clone ? (IItem)item.Clone() : item;
     }
   }