【StandardError_a】

1. Inputs: IndArray[Xsize](NumericArrayRef), DepArray[Ysize](NumericArrayRef), VArraySize(Numeric);
   
2. Variables: var0(0), var1(0), var2(0), var3(0), var4(0), var5(0), var6(0), var7(0), var8(0);
   
3.                                                                                                      
   
4. condition1 = MinList(Xsize, Ysize, VArraySize) > 0 ;
   
5. If condition1 Then Begin
   
6.         var0 = 0;
   
7.         var1 = 0;
   
8.         var2 = 0;
   
9.         For value1 = 1 To VArraySize Begin
   
10.                 var0 = var0 + (IndArray[value1] * DepArray[value1]);
    
11.                 var1 = var1 + Square(IndArray[value1]);
    
12.                 var2 = var2 + Square(DepArray[value1]);
    
13.         End;
    
14.         var3 = Summation_a(IndArray, VArraySize);
    
15.         var4 = Summation_a(DepArray, VArraySize);
    
16.         var5 = (VArraySize * var2) - Square(var4);
    
17.         var6 = Square((VArraySize * var0) - (var3 * var4));
    
18.         var7 = (VArraySize * var1) - Square(var3);
    
19.        
    
20.         If var7 <> 0 Then Begin
    
21.                 var8 = (1 / (VArraySize * (VArraySize - 2))) * (var5 - (var6 / var7));
    
22.                 StandardError_a = SquareRoot(var8);
    
23.         End
    
24.         Else
    
25.                 StandardError_a = -1;
    
26. End
    
27. Else
    
28.         StandardError_a = -1;

复制代码