/// <summary>
/// Actual test running
/// </summary>
private static ClusterEvaluationPointer RunTest(Core core, ClusterEvaluationPointer origPointer, ClusterEvaluationConfiguration test, ProgressReporter proggy, bool paranoid, int index, int of)
{
UiControls.Assert(core.FileNames.Session != null, "Didn't expect the session filename to be null for cluster evaluation.");
List <ClusterEvaluationParameterResult> results = new List <ClusterEvaluationParameterResult>();
// Iterate over parameters
for (int valueIndex = 0; valueIndex < test.ParameterValues.Length; valueIndex++)
{
object value = test.ParameterValues[valueIndex];
List <ResultClusterer> repetitions = new List <ResultClusterer>();
// Iterate over repetitions
for (int repetition = 0; repetition < test.NumberOfRepeats; repetition++)
{
proggy.Enter("Test " + index + "/" + of + ", parameter " + valueIndex + "/" + test.ParameterValues.Length + ", repetition " + repetition + "/" + test.NumberOfRepeats);
// Create config
string newName = AlgoParameterCollection.ParamToString(value) + " " + StringHelper.Circle(repetition + 1);
object[] copyOfParameters = test.ClustererConfiguration.Parameters.ToArray();
copyOfParameters[test.ParameterIndex] = value;
ArgsClusterer copyOfArgs = new ArgsClusterer(
test.ClustererConfiguration.Id,
test.ClustererConfiguration.SourceProvider,
test.ClustererConfiguration.PeakFilter,
test.ClustererConfiguration.Distance,
test.ClustererConfiguration.ObsFilter,
test.ClustererConfiguration.SplitGroups,
test.ClustererConfiguration.Statistics,
copyOfParameters,
test.ClustererConfiguration.OverrideShortName)
{
OverrideDisplayName = newName,
Comment = test.ClustererConfiguration.Comment
};
var copyOfConfig = new ConfigurationClusterer()
{
Args = copyOfArgs
};
// Try load previus result
ResultClusterer result = null;
if (paranoid)
{
result = TryLoadIntermediateResult(core, test.Guid, valueIndex, repetition, proggy);
}
if (result == null)
{
// DO CLUSTERING!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
proggy.Enter("Clustering");
result = copyOfConfig.Cluster(core, 0, proggy);
proggy.Leave();
if (paranoid)
{
SaveIntermediateResult(core, test.Guid, valueIndex, repetition, result, proggy);
}
}
// Add result
repetitions.Add(result);
string name = AlgoParameterCollection.ParamToString(value);
results.Add(new ClusterEvaluationParameterResult(name, test, valueIndex, repetitions));
proggy.Leave();
}
}
ClusterEvaluationResults final = new ClusterEvaluationResults(core, test, results);
string folder = UiControls.GetOrCreateFixedFolder(UiControls.EInitialFolder.Evaluations);
string sessionName = Path.GetFileNameWithoutExtension(core.FileNames.Session);
string fileName = core.Options.ClusteringEvaluationResultsFileName;
fileName = fileName.Replace("{SESSION}", sessionName);
fileName = fileName.Replace("{RESULTS}", folder + "\\");
fileName = UiControls.GetNewFile(fileName);
return(SaveResults(core, fileName, origPointer, final, proggy));
}
/// <summary>
/// I wrote this when the program crashed after an hour.
/// Intermediate results can now be saved to avoid losing data.
/// </summary>
private static void SaveIntermediateResult(Core core, Guid guid, int value, int repetition, ResultClusterer result, ProgressReporter proggy)
{
string fileName = UiControls.GetTemporaryFile("." + value + "." + repetition + ".intermediate.dat", guid);
LookupByGuidSerialiser guidS = core.GetLookups();
proggy.Enter("Saving intermediate results");
XmlSettings.Save <ResultClusterer>(new FileDescriptor(fileName, SerialisationFormat.MSerialiserFastBinary), result, guidS, proggy);
if (core.SetLookups(guidS))
{
// UIDs have changed
SaveSession(core, proggy);
}
proggy.Leave();
}
private void _lstParams_SelectedIndexChanged(object sender, EventArgs e)
{
this.BeginWait(this._tlpHeaderClusters);
ClusterEvaluationParameterResult sel = (ClusterEvaluationParameterResult)this._lvhConfigs.Selection;
if (sel != null)
{
this.label2.Text = "Clusters (" + sel.Owner.ParameterName + " = " + sel.DisplayName + ")";
if (this._lstSel.SelectedIndex <= 0)
{
List <Cluster> all = new List <Cluster>();
bool success = false;
int minCount = int.MaxValue;
int maxCount = int.MinValue;
foreach (var rep in sel.Repetitions)
{
if (rep.Clusters != null)
{
all.AddRange(rep.Clusters);
success = true;
minCount = Math.Min(rep.Clusters.Length, minCount);
maxCount = Math.Max(rep.Clusters.Length, maxCount);
}
}
this._lvhClusters.Visible = false;
this._lvhClusters.DivertList <Cluster>(all);
this._lvhClusters.Visible = true;
this.panel2.Visible = success;
if (success)
{
this._infoLabel.Text = "Between " + minCount + " and " + maxCount + " clusters were generated for each of the " + sel.Repetitions.Count + " tests when " + sel.Owner.ParameterName + " = " + sel.DisplayName;
}
else
{
this._infoLabel.Text = "Clustering results for this test have been removed by the user and are not available to display";
}
}
else
{
ResultClusterer rep = sel.Repetitions[this._lstSel.SelectedIndex - 1];
this._lstClusters.Visible = false;
this._lvhClusters.DivertList <Cluster>(rep.Clusters);
this._lstClusters.Visible = true;
this._infoLabel.Text = "There are " + rep.Clusters.Length + " clusters when " + sel.Owner.ParameterName + " = " + sel.DisplayName + " for " + this._lstSel.SelectedItem;
}
}
else
{
this.label2.Text = "Clusters";
this._infoLabel.Text = "No parameter selected";
}
this.EndWait(this._tlpHeaderClusters);
}
