【Covariance_a】

1. Inputs: IndArray[Xsize](NumericArrayRef), DepArray[Ysize](NumericArrayRef), ArraySize(Numeric);
   
2. Variables: var0(0), var1(0), var2(0);
   
3.                                                                                                    
   
4. condition1 = MinList(Xsize, Ysize, ArraySize) > 0 ;
   
5. If  condition1 Then Begin
   
6.         var0 = Average_a(IndArray, ArraySize);
   
7.         var1 = Average_a(DepArray, ArraySize);
   
8.         var2 = 0;
   
9.        
   
10.         For value1 = 1 To ArraySize Begin
    
11.                  var2 = var2 + (IndArray[value1] - var0) * (DepArray[value1] - var1);
    
12.         End;
    
13.         Covariance_a = var2 / ArraySize;
    
14. End
    
15. Else
    
16.         Covariance_a = -1;

复制代码