Replace "for [..] in [..]" by "for [..] to [..]" for consistency.

[master-thesis.git] / Parasitemia / ParasitemiaCore / ImgTools / Otsu.fs

diff --git a/Parasitemia/ParasitemiaCore/ImgTools/Otsu.fs b/Parasitemia/ParasitemiaCore/ImgTools/Otsu.fs
index 6b8ee53..82dfde4 100644 (file)
--- a/Parasitemia/ParasitemiaCore/ImgTools/Otsu.fs
+++ b/Parasitemia/ParasitemiaCore/ImgTools/Otsu.fs
@@ -9,7 +9,7 @@ let otsu (hist: Histogram) : float32 * float32 * float32 =
     let mutable level = 0
     let sum = hist.data |> Array.mapi (fun i v -> i * v |> float) |> Array.sum
 
-    for i in 0 .. hist.data.Length - 1 do
+    for i = 0 to hist.data.Length - 1 do
         wB <- wB + hist.data.[i]
         if wB <> 0
         then
@@ -28,7 +28,7 @@ let otsu (hist: Histogram) : float32 * float32 * float32 =
     let mean1 =
         let mutable sum = 0
         let mutable nb = 0
-        for i in 0 .. level - 1 do
+        for i = 0 to level - 1 do
             sum <- sum + i * hist.data.[i]
             nb <- nb + hist.data.[i]
         (sum + level * hist.data.[level] / 2) / (nb + hist.data.[level] / 2)
@@ -36,7 +36,7 @@ let otsu (hist: Histogram) : float32 * float32 * float32 =
     let mean2 =
         let mutable sum = 0
         let mutable nb = 0
-        for i in level + 1 .. hist.data.Length - 1 do
+        for i = level + 1 to hist.data.Length - 1 do
             sum <- sum + i * hist.data.[i]
             nb <- nb + hist.data.[i]
         (sum + level * hist.data.[level] / 2) / (nb + hist.data.[level] / 2)