【Skew_a】

1. Inputs: SkewArray[size](NumericArrayRef), VArraySize(Numeric);
   
2. Variables: var0(0), var1(0), var2(0), var3(0);
   
3.                                                                                                      
   
4. 
   
5. If VArraySize <= size Then Begin
   
6.         var1 = Average_a(SkewArray, VArraySize);
   
7.         var2 = StdDevS_a(SkewArray, VArraySize);
   
8.         var0 = 0;
   
9.         var3 = VArraySize / ((VArraySize - 1) * (VArraySize - 2));
   
10. 
    
11.         For value1 = 1 TO VArraySize Begin
    
12.                 var0 = var0 + Power((SkewArray[value1] - var1) / var2, 3);
    
13.         End;
    
14.         Skew_a = var3 * var0;
    
15. End
    
16. Else
    
17.         Skew_a = -1;

复制代码