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
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)
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)