The minimum area computation wasn't correct.
authorGreg Burri <greg.burri@gmail.com>
Tue, 19 Jan 2016 13:08:13 +0000 (14:08 +0100)
committerGreg Burri <greg.burri@gmail.com>
Tue, 19 Jan 2016 13:08:13 +0000 (14:08 +0100)
Parasitemia/ParasitemiaCore/Config.fs
Parasitemia/ParasitemiaCore/MatchingEllipses.fs

index 5fdcd0d..93fa2ce 100644 (file)
@@ -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.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
 
     member this.InfectionArea = parameters.infectionArea * this.Area
     member this.StainArea = parameters.stainArea * this.Area
index ec10d93..65ae3e9 100644 (file)
@@ -29,7 +29,7 @@ type MatchingEllipses (radius: float32) =
     let ellipses = List<EllipseScoreFlaggedKd>()
 
     // All ellipses with a score below this are removed.
     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))
 
     member this.Add (e: Ellipse) =
         ellipses.Add(EllipseScoreFlaggedKd(0.f, e))