public static double[] CalculateBiases <L>(this Sphere <L> sphere, Vector vector, RHCLib.DistanceDelegate measure, IList <L> labels)
{
SortedDictionary <L, double?> dictClasses = new SortedDictionary <L, double?>();
foreach (L label in labels)
{
dictClasses.Add(label, null);
}
double fProportion = 1.0;
int nCount = dictClasses.Count;
bool bFirstSphere = true;
SphereEx <L> sphLDA;
RHCLib.Sphere <L> sphereIteration = sphere.Recognize(vector, measure, ParallelStrategy.SingleThreaded);
while (sphereIteration != null && fProportion > 0.0 && nCount > 0)
{
if (bFirstSphere)
{
if (dictClasses.ContainsKey(sphereIteration.Label))
{
if ((sphLDA = sphereIteration as SphereEx <L>) != null && sphLDA.DiscriminantEx != null)
{
#region LDA (Uses LDAEx)
// You have four cases you need to watch for...
// /|\ /|\ 1.0
// / | \ / | \
// / | \ / | \
// / | \ / | \
// / | \ / | \
// / | \ / | \
// / | \ / | \
// / | \ / | \
// / | \/ | \
// |---------M---------D--------M---------| 0.5
// Equation: 1 - (h)(x_i) <-- 1 = fProportion because haven't gotten out yet
Func <double, double, double> slope = (x1, x2) =>
{
return(0.5 / Math.Abs(x2 - x1));
};
//double[][] data = LDA.MatrixFromVector(vector.Features);
//double[][] wTx = LDA.MatrixProduct(sphLDA.Discriminant.Transposed, data); // Project the data
double proj = Accord.Math.Matrix.Dot(sphLDA.DiscriminantEx.ProjectionVector, vector.Features);
if (proj <= sphLDA.DiscriminantEx.ProjectedLeftMean)
{
dictClasses[sphLDA.Label] = fProportion - (slope(sphLDA.DiscriminantEx.ProjectedLeftMean, sphLDA.DiscriminantEx.ProjectedSetMean - sphLDA.Radius) * (sphLDA.DiscriminantEx.ProjectedLeftMean - proj));
}
else if (proj > sphLDA.DiscriminantEx.ProjectedLeftMean && proj <= sphLDA.DiscriminantEx.ProjectedSetMean)
{
dictClasses[sphLDA.Label] = fProportion - (slope(sphLDA.DiscriminantEx.ProjectedSetMean, sphLDA.DiscriminantEx.ProjectedLeftMean) * (proj - sphLDA.DiscriminantEx.ProjectedLeftMean));
}
else if (proj > sphLDA.DiscriminantEx.ProjectedSetMean && proj <= sphLDA.DiscriminantEx.ProjectedRightMean)
{
dictClasses[sphLDA.Label] = fProportion - (slope(sphLDA.DiscriminantEx.ProjectedRightMean, sphLDA.DiscriminantEx.ProjectedSetMean) * (sphLDA.DiscriminantEx.ProjectedRightMean - proj));
}
else
{
dictClasses[sphLDA.Label] = fProportion - (slope(sphLDA.DiscriminantEx.ProjectedSetMean + sphLDA.Radius, sphLDA.DiscriminantEx.ProjectedRightMean) * (proj - sphLDA.DiscriminantEx.ProjectedRightMean));
}
#endregion
}
else if (sphLDA != null && sphLDA.Discriminant != null)
{
#region Old LDA
// You have four cases you need to watch for...
// /|\ /|\ 1.0
// / | \ / | \
// / | \ / | \
// / | \ / | \
// / | \ / | \
// / | \ / | \
// / | \ / | \
// / | \ / | \
// / | \/ | \
// |---------M---------D--------M---------| 0.5
// Equation: 1 - h(x_i)
Func <double, double, double> slope = (x1, x2) =>
{
return(0.5 / Math.Abs(x2 - x1));
};
double[][] data = LDA.MatrixFromVector(vector.Features);
double[][] wTx = LDA.MatrixProduct(sphLDA.Discriminant.Transposed, data); // Project the data
if (wTx[0][0] <= sphLDA.Discriminant.ProjectedMeanLeft)
{
dictClasses[sphLDA.Label] = fProportion - (slope(sphLDA.Discriminant.ProjectedMeanLeft, 0.0) * (sphLDA.Discriminant.ProjectedMeanLeft - wTx[0][0]));
}
else if (wTx[0][0] > sphLDA.Discriminant.ProjectedMeanLeft && wTx[0][0] <= sphLDA.Discriminant.DecisionPoint)
{
dictClasses[sphLDA.Label] = fProportion - (slope(sphLDA.Discriminant.DecisionPoint, sphLDA.Discriminant.ProjectedMeanLeft) * (wTx[0][0] - sphLDA.Discriminant.ProjectedMeanLeft));
}
else if (wTx[0][0] > sphLDA.Discriminant.DecisionPoint && wTx[0][0] <= sphLDA.Discriminant.ProjectMeanRight)
{
dictClasses[sphLDA.Label] = fProportion - (slope(sphLDA.Discriminant.ProjectMeanRight, sphLDA.Discriminant.DecisionPoint) * (sphLDA.Discriminant.ProjectMeanRight - wTx[0][0]));
}
else
{
dictClasses[sphLDA.Label] = fProportion - (slope(2 * sphLDA.Radius, sphLDA.Discriminant.ProjectMeanRight) * (wTx[0][0] - sphLDA.Discriminant.ProjectMeanRight));
}
#endregion
}
else
{
#region Linear
dictClasses[sphereIteration.Label] = fProportion - (measure(sphereIteration, vector) * (0.5 / sphereIteration.Radius));
#endregion
}
fProportion -= dictClasses[sphereIteration.Label].Value;
bFirstSphere = false;
nCount--;
}
}
else
{
if (dictClasses.ContainsKey(sphereIteration.Label) && !dictClasses[sphereIteration.Label].HasValue)
{
dictClasses[sphereIteration.Label] = fProportion;
nCount--;
}
#region Linear
// Impossible to have LDA in node that's not a leaf.
fProportion -= fProportion * ((sphereIteration.Radius - measure(sphereIteration, vector)) / sphereIteration.Radius);
#endregion
}
sphereIteration = sphereIteration.Parent;
}
double fSum = dictClasses.Values.Sum(v => v.HasValue ? v.Value : 0.0);
return(dictClasses.Values.Select(v => v.HasValue ? v.Value / fSum : 0.0).ToArray());
}
public static double[] CalculateBiases_Old <L>(this Sphere <L> sphere, Vector vector, RHCLib.DistanceDelegate measure, IList <L> labels)
{
SortedDictionary <L, double?> dictClasses = new SortedDictionary <L, double?>();
foreach (L label in labels)
{
dictClasses.Add(label, null);
}
double fProportion = 1.0;
int nCount = dictClasses.Count;
bool bFirstSphere = true;
RHCLib.Sphere <L> sphereIteration = sphere.Recognize(vector, measure, ParallelStrategy.SingleThreaded);
while (sphereIteration != null && fProportion > 0.0 && nCount > 0)
{
if (bFirstSphere)
{
if (dictClasses.ContainsKey(sphereIteration.Label))
{
#region Linear
dictClasses[sphereIteration.Label] = fProportion - (measure(sphereIteration, vector) * (0.5 / sphereIteration.Radius));
#endregion
fProportion -= dictClasses[sphereIteration.Label].Value;
bFirstSphere = false;
nCount--;
}
}
else
{
if (dictClasses.ContainsKey(sphereIteration.Label) && !dictClasses[sphereIteration.Label].HasValue)
{
dictClasses[sphereIteration.Label] = fProportion;
nCount--;
}
#region Linear
fProportion -= fProportion * ((sphereIteration.Radius - measure(sphereIteration, vector)) / sphereIteration.Radius);
#endregion
}
sphereIteration = sphereIteration.Parent;
}
double fSum = dictClasses.Values.Sum(v => v.HasValue ? v.Value : 0.0);
return(dictClasses.Values.Select(v => v.HasValue ? v.Value / fSum : 0.0).ToArray());
}
static void Main(string[] args)
{
ParallelStrategy strategy = ParallelStrategy.SingleThreaded;
bool bIsLDA = true;
RHCLib.DistanceDelegate measure = RHCLib.Vector.EuclideanDistance;
int nQueuePartitions; // = 2;
int nSlotsPerQueuePartition; // = 40;
// If using the example, the total queue is 80
string strFile;
bool bIsSTRHC1; // STRHC1 = Small dataset (40 gestures), !STRHC1 = Large dataset (300 gestures)
#region Parameters
if (args.Length != 5)
{
System.Console.WriteLine("Syntax: STRHC.EXE <Queue Partitions> <Slots Per Partition> <T|F IsLDA> <T|F IsSingledThreaded> <1 = STRHC1 (40 gestures) | 2 = STRHC2 (300 gestures)>");
return;
}
else
{
bool singleThreaded;
int dataset;
if (!int.TryParse(args[0], out nQueuePartitions) || !int.TryParse(args[1], out nSlotsPerQueuePartition) || !bool.TryParse(args[2], out bIsLDA) || !bool.TryParse(args[3], out singleThreaded) || !int.TryParse(args[4], out dataset) || !(new int[] { 1, 2 }.Contains(dataset)))
{
System.Console.WriteLine("Syntax: STRHC.EXE <Queue Partitions> <Slots Per Partition> <T|F IsLDA> <T|F IsSingledThreaded> <1 = STRHC1 (40 gestures) | 2 = STRHC2 (300 gestures)>");
return;
}
switch (dataset)
{
case 1:
bIsSTRHC1 = true;
strFile = @".\Data1.dat";
break;
case 2:
bIsSTRHC1 = false;
strFile = @".\Data.dat";
break;
default:
throw new NotImplementedException();
}
strategy = singleThreaded ? ParallelStrategy.SingleThreaded : ParallelStrategy.Multithreaded;
}
#endregion
System.Diagnostics.Process.GetCurrentProcess().PriorityClass = System.Diagnostics.ProcessPriorityClass.High;
using (System.IO.StreamWriter sw = new System.IO.StreamWriter(string.Format(@".\{0:yyyy-MM-ddTHHmmss} {1} {2}x{3} {4} {5}", DateTime.Now, bIsSTRHC1 ? "STRHC1" : "STRHC2", nQueuePartitions, nSlotsPerQueuePartition, bIsLDA ? "LDA" : "NoLDA", measure == Vector.SquaredEuclideanDistance ? "SqEuc" : "Euc"), false, Encoding.UTF8))
{
Dictionary <int, Tuple <Dictionary <string, List <List <double[]> > >, Dictionary <string, List <List <double[]> > > > > dict;
using (System.IO.FileStream fs = new System.IO.FileStream(strFile, System.IO.FileMode.Open, System.IO.FileAccess.Read))
{
BinaryFormatter bf = new BinaryFormatter();
dict = bf.Deserialize(fs) as Dictionary <int, Tuple <Dictionary <string, List <List <double[]> > >, Dictionary <string, List <List <double[]> > > > >;
}
#region Convert the dictGestures into RHCLib.LabeledVectors
Dictionary <int, Tuple <List <RHCLib.LabeledVector <string>[]>, List <RHCLib.LabeledVector <string>[]> > > dictGestures = new Dictionary <int, Tuple <List <LabeledVector <string>[]>, List <LabeledVector <string>[]> > >();
foreach (KeyValuePair <int, Tuple <Dictionary <string, List <List <double[]> > >, Dictionary <string, List <List <double[]> > > > > kvp in dict)
{
List <LabeledVector <string>[]> lstTrain = new List <LabeledVector <string>[]>();
foreach (KeyValuePair <string, List <List <double[]> > > kvpTrain in kvp.Value.Item1)
{
foreach (List <double[]> gesture in kvpTrain.Value)
{
List <LabeledVector <string> > lst = new List <LabeledVector <string> >();
foreach (double[] frame in gesture)
{
lst.Add(new LabeledVector <string>(kvpTrain.Key, frame));
}
lstTrain.Add(lst.ToArray());
}
}
List <LabeledVector <string>[]> lstTest = new List <LabeledVector <string>[]>();
foreach (KeyValuePair <string, List <List <double[]> > > kvpTest in kvp.Value.Item2)
{
foreach (List <double[]> gesture in kvpTest.Value)
{
List <LabeledVector <string> > lst = new List <LabeledVector <string> >();
foreach (double[] frame in gesture)
{
lst.Add(new LabeledVector <string>(kvpTest.Key, frame));
}
lstTest.Add(lst.ToArray());
}
}
dictGestures.Add(kvp.Key, new Tuple <List <LabeledVector <string>[]>, List <LabeledVector <string>[]> >(lstTrain, lstTest));
}
#endregion
IList <string> classes = dict.Values.First().Item1.Keys.ToList();
int nClassCount = classes.Count();
int nFeatureSpaceDimensionality = dictGestures.Values.First().Item1.First().First().Rank + (nQueuePartitions * nClassCount);
foreach (KeyValuePair <int, Tuple <List <RHCLib.LabeledVector <string>[]>, List <RHCLib.LabeledVector <string>[]> > > kvp in dictGestures)
{
SphereEx <string> sphere = new SphereEx <string>(Sphere <string> .CreateUnitSphere(measure, nFeatureSpaceDimensionality, string.Empty));
int nEpoch = 1;
int nSpawnCount;
RHCLib.LabeledVector <string> lvectorAug;
Program.WriteStream(sw, string.Format("Fold: {0}", kvp.Key));
System.Diagnostics.Stopwatch watch = new System.Diagnostics.Stopwatch();
watch.Start();
#region Train
do
{
nSpawnCount = 0;
foreach (RHCLib.LabeledVector <string>[] gesture in kvp.Value.Item1)
{
double[][] queue = Program.CreateEmptyQueue(nQueuePartitions, nSlotsPerQueuePartition, nClassCount);
foreach (RHCLib.LabeledVector <string> frame in gesture)
{
lvectorAug = Program.CreateAugmentedVector(frame, queue, nQueuePartitions, nSlotsPerQueuePartition);
double[] biases = sphere.CalculateBiases(lvectorAug, measure, classes);
nSpawnCount += sphere.Spawn(lvectorAug, measure, strategy, bIsLDA);
Program.AdvanceQueue(queue, biases);
}
}
Program.WriteStream(sw, string.Format(" Epoch:\t{0}\t{1}", nEpoch++, nSpawnCount));
} while (nSpawnCount > 0);
watch.Stop();
Program.WriteStream(sw, string.Format("TOTAL TIME [ms] for Fold {0}: {1}", kvp.Key, watch.ElapsedMilliseconds.ToString()));
Program.WriteStream(sw, string.Format("Sphere Count: {0}", sphere.SphereCount));
Program.WriteStream(sw, string.Format("Tree Height: {0}", sphere.Height));
Program.WriteStream(sw, string.Format("Epoch Count: {0}", nEpoch - 1));
#endregion
#region Test
Sphere <string> sphereWinner = null;
int nSphereCorrect = 0;
int nSphereIncorrect = 0;
int nQueueCorrect = 0;
int nQueueIncorrect = 0;
foreach (RHCLib.LabeledVector <string>[] gesture in kvp.Value.Item2)
{
#region Create Empty Queue
double[][] queue = new double[nQueuePartitions * nSlotsPerQueuePartition][];
for (int i = 0; i < queue.Length; i++)
{
queue[i] = new double[nClassCount];
}
#endregion
watch.Reset();
watch.Start();
foreach (RHCLib.LabeledVector <string> frame in gesture)
{
lvectorAug = Program.CreateAugmentedVector(frame, queue, nQueuePartitions, nSlotsPerQueuePartition);
sphereWinner = sphere.Recognize(lvectorAug, measure, strategy);
double[] rgBiases = sphere.CalculateBiases(lvectorAug, measure, classes);
Program.AdvanceQueue(queue, rgBiases);
}
watch.Stop();
Program.WriteStream(sw, string.Format("[{0} fold] Time to recognize [in ms]: {1}", kvp.Key, watch.ElapsedMilliseconds));
#region Sphere Winner
Program.WriteStream(sw, string.Format("Actual: {0}\t\tSphere Recognized: {1}", gesture.First().Label, sphereWinner.Label));
if (sphereWinner.Label == gesture.First().Label)
{
nSphereCorrect++;
}
else
{
nSphereIncorrect++;
}
#endregion
#region Queue Winner
Dictionary <string, double> dictWinner = new Dictionary <string, double>();
foreach (string strClass in classes)
{
dictWinner.Add(strClass, 0.0);
}
// Quick and dirty
Dictionary <string, double> dictQueueBreakout = new Dictionary <string, double>();
foreach (string strClass in classes)
{
dictQueueBreakout.Add(strClass, 0.0);
}
for (int i = 0; i < queue.Length; i++)
{
for (int j = 0; j < queue[i].Length; j++)
{
dictQueueBreakout[classes.ElementAt(j)] += queue[i][j];
}
}
string strQueueWinner = dictQueueBreakout.Aggregate((l, r) => l.Value > r.Value ? l : r).Key;
Program.WriteStream(sw, string.Format("Actual: {0}\t\tQueue Recognized: {1}", gesture.First().Label, strQueueWinner));
if (strQueueWinner == gesture.First().Label)
{
nQueueCorrect++;
}
else
{
nQueueIncorrect++;
}
#endregion
}
Program.WriteStream(sw, string.Format("Sphere Correct: {0}\t\tSphere Incorrect: {1}\t\tSphere Percentage: {2:P}", nSphereCorrect, nSphereIncorrect, (double)nSphereCorrect / (nSphereCorrect + nSphereIncorrect)));
Program.WriteStream(sw, string.Format("Queue Correct: {0}\t\tQueue Incorrect: {1}\t\tQueue Percentage: {2:P}", nQueueCorrect, nQueueIncorrect, (double)nQueueCorrect / (nQueueCorrect + nQueueIncorrect)));
Program.WriteStream(sw, System.Environment.NewLine);
Program.WriteStream(sw, System.Environment.NewLine);
#endregion
System.Console.Beep();
System.Console.Beep();
#region GC Cleanup
sphere.Cleanup();
GC.Collect(GC.MaxGeneration);
GC.WaitForPendingFinalizers();
// This is where you check the CLR profiler
#endregion
char key;
do
{
System.Console.WriteLine("Hit 'y' to continue...");
key = System.Console.ReadKey().KeyChar;
} while (key.ToString().ToUpper() != "Y");
do
{
System.Console.WriteLine("Hit 'y' AGAIN to continue...");
key = System.Console.ReadKey().KeyChar;
} while (key.ToString().ToUpper() != "Y");
#region Serialize Sphere
if (false)
{
using (System.IO.FileStream fs = new System.IO.FileStream(string.Format(@".\{0}-{1}-{2}-{3}.serialized", bIsSTRHC1 ? "STRHC1" : "STRHC2", nQueuePartitions, nSlotsPerQueuePartition, kvp.Key), System.IO.FileMode.Create))
{
BinaryFormatter bf = new BinaryFormatter();
bf.Serialize(fs, sphere);
}
}
#endregion
}
}
}