projects
/
master-thesis.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
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
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
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)
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
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)
sum <- sum + i * hist.data.[i]
nb <- nb + hist.data.[i]
(sum + level * hist.data.[level] / 2) / (nb + hist.data.[level] / 2)