【HarmonicMean_a】

1. Inputs: HarMeanArray[size](NumericArrayRef), ArraySize(Numeric);
   
2. Variables: var0(0), var1(0);
   
3.                                                                                                    
   
4. condition1 = Lowest_a(HarMeanArray, ArraySize) > 0 ;
   
5. If condition1 Then Begin
   
6.         var0 = 0;
   
7.         For value1 = 1 To Arraysize Begin
   
8.                 var0 = var0 + (1 / HarMeanArray[value1]);
   
9.         End;
   
10.         var1 = var0 / Arraysize;
    
11.         If var1 <> 0 Then
    
12.                 HarmonicMean_a = 1 / var1
    
13.         Else
    
14.                 HarmonicMean_a = -1;
    
15. End
    
16. Else
    
17.         HarmonicMean_a = -1;

复制代码