The minimum area computation wasn't correct.

diff --git a/Parasitemia/ParasitemiaCore/Config.fs b/Parasitemia/ParasitemiaCore/Config.fs
index 5fdcd0d..93fa2ce 100644 (file)
--- a/Parasitemia/ParasitemiaCore/Config.fs
+++ b/Parasitemia/ParasitemiaCore/Config.fs
@@ -77,7 +77,7 @@ type RBCRadius (radius: float32, parameters: Parameters) =
     member this.Max = radius + parameters.maxRbcRadius * radius
 
     member this.Area = PI * radius ** 2.f
-    member this.MinArea = parameters.minimumCellAreaFactor * radius
+    member this.MinArea = parameters.minimumCellAreaFactor * this.Area
 
     member this.InfectionArea = parameters.infectionArea * this.Area
     member this.StainArea = parameters.stainArea * this.Area

diff --git a/Parasitemia/ParasitemiaCore/MatchingEllipses.fs b/Parasitemia/ParasitemiaCore/MatchingEllipses.fs
index ec10d93..65ae3e9 100644 (file)
--- a/Parasitemia/ParasitemiaCore/MatchingEllipses.fs
+++ b/Parasitemia/ParasitemiaCore/MatchingEllipses.fs
@@ -29,7 +29,7 @@ type MatchingEllipses (radius: float32) =
     let ellipses = List<EllipseScoreFlaggedKd>()
 
     // All ellipses with a score below this are removed.
-    let matchingScoreThreshold = 0.4f // 0.5f
+    let matchingScoreThreshold = 0.4f
 
     member this.Add (e: Ellipse) =
         ellipses.Add(EllipseScoreFlaggedKd(0.f, e))