【StdDevP_a】

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

复制代码