【CoefficientRArray】

1. inputs:
   
2.         IndepArray[MaxSize1]( numericarray ),                           
   
3.         DepArray[MaxSize2]( numericarray ),                           
   
4.         Size( numericsimple) ;                                             
   
5. 
   
6. variables:
   
7.         var0( 0 ),
   
8.         var1( 0 ),
   
9.         var2( 0 ),
   
10.         var3( 0 ),
    
11.         var4( 0 ),
    
12.         var5( 0 ),
    
13.         var6( 0 ),
    
14.         var7( 0 ) ;
    
15. 
    
16. CoefficientRArray = -2 ;
    
17. 
    
18. if Size > 0 then
    
19.         begin
    
20. 
    
21.         var0 = 0 ;
    
22.         var1 = 0 ;
    
23.         for Value1 = 1 to Size
    
24.                 begin
    
25.                 var0 = var0 + IndepArray[Value1] ;
    
26.                 var1 = var1 + DepArray[Value1] ;
    
27.                 end ;
    
28.         var0 = var0 / Size ;
    
29.         var1 = var1 / Size ;
    
30. 
    
31.         var4 = 0 ;
    
32.         var2 = 0 ;
    
33.         var3 = 0 ;
    
34.         for Value1 = 1 to Size
    
35.                 begin
    
36.                 var6 = IndepArray[Value1] - var0 ;
    
37.                 var5 = DepArray[Value1] - var1 ;
    
38.                 var4 = var4 + Square( var6 ) ;
    
39.                 var2 = var2 + Square( var5 ) ;
    
40.                 var3 = var3 + var6 * var5 ;
    
41.                 end ;
    
42. 
    
43.         Value2 = var4 * var2 ;
    
44.         if Value2 > 0 then
    
45.                 begin
    
46.                 var7 = var3 / SquareRoot( Value2 ) ;
    
47.                 condition1 = var7 >= -1 and var7 <= 1 ;
    
48.                 if condition1 then
    
49.                         CoefficientRArray =  var7 ;
    
50.                 end ;
    
51.         end ;

复制代码