【CovarArray】

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. 
    
11. condition1 = Size > 0 and Size <= MaxSize1 and Size <= MaxSize2 ;
    
12. if condition1 then
    
13.                                                                               
    
14.                     
    
15.         begin
    
16.         var0 = AverageArray( IndepArray, Size ) ;
    
17.         var1 = AverageArray( DepArray, Size ) ;
    
18.         var2 = 0 ;
    
19.         for Value1 = 1 to Size
    
20.                 begin
    
21.                 var2 = var2 + ( IndepArray[Value1] - var0 ) * ( DepArray[Value1] -
    
22.                  var1 ) ;
    
23.                 end ;
    
24.         CovarArray = var2 / Size ;
    
25.         end
    
26. else
    
27.         RaiseRunTimeError( "Check Size input to CovarArray func-see CovarArray code" ) ;

复制代码