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

diff --git a/Parasitemia/Parasitemia/KMeans.fs b/Parasitemia/Parasitemia/KMeans.fs
index 15651ae..98352fe 100644
--- a/Parasitemia/Parasitemia/KMeans.fs
+++ b/Parasitemia/Parasitemia/KMeans.fs
@@ -13,7 +13,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 +36,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()