【coeffR_a】

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

复制代码