【Kurtosis_a】

1. Inputs: KurtosisArray[size](NumericArrayRef), VArraySize(Numeric);
   
2. Variables: var0(0), var1(0), var2(0), var3(0), var4(0);
   
3.                                                                                                      
   
4. condition1 = MinList(VArraySize, VArraySize) > 3 ;
   
5. If condition1 Then Begin
   
6.         var0 = VArraySize * (VArraySize + 1) / ((VArraySize - 1) * (VArraySize - 2) * (VArraySize - 3));
   
7.         var2 = 3 * Square(VArraySize - 1) / ((VArraySize - 2) * (VArraySize - 3));
   
8.         var3 = Average_a(KurtosisArray, VArraySize);
   
9.         var4 = StdDevS_a(KurtosisArray, VArraySize);
   
10. 
    
11.         If var4 <> 0 Then Begin
    
12.                 var1 = 0;
    
13.                 For value1 = 1 To VArraySize Begin
    
14.                         var1 = var1 + Power((KurtosisArray[value1] - var3) / var4, 4);
    
15.                 End;
    
16.                 Kurtosis_a = var0 * var1 - var2;
    
17.         End
    
18.         Else
    
19.                 Kurtosis_a = 0;
    
20. End
    
21. Else
    
22.         Kurtosis_a = 0;

复制代码