龙听期货论坛's Archiver

龙听 发表于 2022-11-2 14:12

【VarianceP_a】

[code]Inputs: VarianceArray[size](NumericArrayRef), VArraySize(Numeric);
Variables: var0(0), var1(0), var2(0);
                                                                                                     

If VArraySize > 1 Then Begin
        var0 = 0;

        For value1 = 1 To VArraySize Begin
                var0 = var0 + Square(VarianceArray[value1]);
        End;

        var1 = VArraySize * var0 - Square(Summation_a(VarianceArray, VArraySize));
        var2 = Square(VArraySize);

        VarianceP_a = var1 / var2;
End
Else
        VarianceP_a = -1;
[/code]

页: [1]