【CovarArray】
[code]inputs:IndepArray[MaxSize1]( numericarray ),
DepArray[MaxSize2]( numericarray ),
Size( numericsimple) ;
variables:
var0( 0 ),
var1( 0 ),
var2( 0 ) ;
condition1 = Size > 0 and Size <= MaxSize1 and Size <= MaxSize2 ;
if condition1 then
begin
var0 = AverageArray( IndepArray, Size ) ;
var1 = AverageArray( DepArray, Size ) ;
var2 = 0 ;
for Value1 = 1 to Size
begin
var2 = var2 + ( IndepArray[Value1] - var0 ) * ( DepArray[Value1] -
var1 ) ;
end ;
CovarArray = var2 / Size ;
end
else
RaiseRunTimeError( "Check Size input to CovarArray func-see CovarArray code" ) ;
[/code]
页:
[1]