f#计算方差函数

Question

我正在处理一个计算方差的F#函数。我试图通过每一次迭代来获得正确的答案，但我认为我偏离了轨道，因为我一直得到错误的答案。有人能带我完成这个函数的一次迭代，让我回到的轨道上吗

let variance values
    let average = Seq.average values
    let length = Seq.length values
    values
    |> Seq.map (fun x -> 1.0 / float length * (x - average) ** 2.0)
    |> Seq.sum

呼叫为variance [1.0..6.0]

对我来说，传递的第一个值是1.0，因此它将是(1.0 / 6 * (1.0-3.5) ** 2.0)，因此是.166 * -2.5 ** 2.0

我也不确定**在我假设的乘法公式中是什么意思
正确答案应为2.9166666667

Answer 1

为了更容易理解，您可以按如下方式重写代码：

let variance values = 
    let average = Seq.average values
    let length = Seq.length values
    let sum = values
               |> Seq.map (fun x -> (x - average) ** 2.0)
               |> Seq.sum in sum / float length
variance [1.0..6.0] |> printfn "%A"

打印：2.916666667

链接：https://dotnetfiddle.net/09PHXn

按迭代：

let variancetest values = 
    let average = Seq.average values
    let length = Seq.length values
    values 
    |> Seq.iteri(fun i x ->
                 printfn "%i [%f]: %f ^ 2 = %A" i  x (x - average) ((x - average) ** 2.0))
    let sum = values
               |> Seq.map (fun x -> (x - average) ** 2.0)
               |> Seq.sum
    let flength = float length
    printfn "Sum = %f" sum
    printfn "1/length = %f" (1.0 / flength)
    printfn "Result / length = %f" (sum / flength)
variancetest [1.0..6.0]

打印：

0 [1.000000]: -2.500000 ^ 2 = 6.25
1 [2.000000]: -1.500000 ^ 2 = 2.25
2 [3.000000]: -0.500000 ^ 2 = 0.25
3 [4.000000]: 0.500000 ^ 2 = 0.25
4 [5.000000]: 1.500000 ^ 2 = 2.25
5 [6.000000]: 2.500000 ^ 2 = 6.25
Sum = 17.500000
1/length = 0.166667
Result / length = 2.916667

https://dotnetfiddle.net/02r3qG