【VarianceS_a】

1. Inputs: VarianceArray[size](NumericArrayRef), VArraySize(Numeric);
   
2. Variables: var0(0), var1(0), var2(0);
   
3.                                                                                                      
   
4.        
   
5. If VArraySize > 1 Then Begin
   
6.         var0 = 0;
   
7.         For value1 = 1 To VArraySize Begin
   
8.                 var0 = var0 + Square(VarianceArray[value1]);
   
9.         End;
   
10. 
    
11.         var1 = VArraySize * var0 - Square(Summation_a(VarianceArray, VArraySize));
    
12.         var2 = VArraySize * (VArraySize - 1);
    
13. 
    
14.         VarianceS_a = var1 / var2;
    
15. End
    
16. Else
    
17.         VarianceS_a = -1;

复制代码