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

diff --git a/Parasitemia/Parasitemia/KMeans.fs b/Parasitemia/Parasitemia/KMeans.fs
index 15651ae..afb6daf 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
 
@@ -36,8 +37,9 @@ let kmeans (img: Image<Gray, float32>) : Result =
     let fgData = fg.Data
 
     for i in 1 .. nbIteration do
-        if d_bg <> null
-        then
+        match d_bg with
+        | null -> ()
+        | _ ->
             d_bg.Dispose()
             d_fg.Dispose()