【DevSqrd_a】

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

复制代码