【LinRegSlope_a】

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

复制代码