* Try another approach to remove false ellipses without success (commented).

[master-thesis.git] / Parasitemia / Parasitemia / KMeans.fs

diff --git a/Parasitemia/Parasitemia/KMeans.fs b/Parasitemia/Parasitemia/KMeans.fs
index 15651ae..55b899d 100644 (file)
--- a/Parasitemia/Parasitemia/KMeans.fs
+++ b/Parasitemia/Parasitemia/KMeans.fs
@@ -6,6 +6,7 @@ open System.Drawing
 open Emgu.CV
 open Emgu.CV.Structure
 
+
 type Result = {
     fg: Image<Gray, byte>
     mean_bg: float32
@@ -13,7 +14,7 @@ type Result = {
     d_fg: Image<Gray, float32> } // Euclidean distances of the foreground to mean_fg.
 
 let kmeans (img: Image<Gray, float32>) : Result =
-    let nbIteration = 3
+    let nbIteration = 4
     let w = img.Width
     let h = img.Height