X-Git-Url: http://git.euphorik.ch/?p=master-thesis.git;a=blobdiff_plain;f=Parasitemia%2FParasitemia%2FKMeans.fs;h=55b899d7a48d7eb27ba35fee3aaf25d3da4c3386;hp=15651ae3cd2619d51b6729636b12c03a85d7b19a;hb=6b550c3faf4dea77738fa5c27cd9af277f45549c;hpb=044b0ae69df3ac565432545b2fa934589016f9bd

diff --git a/Parasitemia/Parasitemia/KMeans.fs b/Parasitemia/Parasitemia/KMeans.fs
index 15651ae..55b899d 100644
--- 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