龙听期货论坛's Archiver

龙听 发表于 2022-11-2 09:56

【HarmonicMean_a】

[code]Inputs: HarMeanArray[size](NumericArrayRef), ArraySize(Numeric);
Variables: var0(0), var1(0);
                                                                                                   
condition1 = Lowest_a(HarMeanArray, ArraySize) > 0 ;
If condition1 Then Begin
        var0 = 0;
        For value1 = 1 To Arraysize Begin
                var0 = var0 + (1 / HarMeanArray[value1]);
        End;
        var1 = var0 / Arraysize;
        If var1 <> 0 Then
                HarmonicMean_a = 1 / var1
        Else
                HarmonicMean_a = -1;
End
Else
        HarmonicMean_a = -1;
[/code]

页: [1]