【CorrelationArray】
[code]inputs:IndepArray[MaxSize1]( numericarray ),
DepArray[MaxSize2]( numericarray ),
Size( numericsimple) ;
variables:
var0( 0 ) ;
condition1 = Size > 0 and Size < MaxSize1 and Size < MaxSize2 ;
if condition1 then
begin
var0 = 0 ;
for Value1 = 1 to Size
begin
condition1 = ( IndepArray[ Value1 ] >= IndepArray[ Value1 + 1 ]
and DepArray[ Value1 ] >= DepArray[ Value1 + 1 ] )
or ( IndepArray[ Value1 ] < IndepArray[ Value1 + 1 ]
and DepArray[ Value1 ] < DepArray[ Value1 + 1 ] ) ;
if condition1
then
var0 = var0 + 1 ;
end ;
CorrelationArray = 2 * var0 / Size - 1 ;
end
else
CorrelationArray = -2 ;
[/code]
页:
[1]