【ModeArray】
[code]inputs:PriceValueArray[ MaxSize ]( numericarrayref ),
Size( numericsimple ),
Type( numericsimple ) ;
variables:
var0( 0 ),
var1( 0 ),
var2( -1 ) ;
if Size > 1 then
begin
Value1 = SortArray( PriceValueArray, Size, -1 ) ;
var0 = 1 ;
var1 = 1 ;
var2 = -1 ;
for Value2 = 1 to Size - 1
begin
condition1 = PriceValueArray[Value2] = PriceValueArray[ Value2 + 1 ] ;
if condition1 then
var0 = var0 + 1
else
var0 = 1 ;
condition1 = var0 > 1 and var0 >= var1 ;
if condition1 Then
begin
if var0 > var1 then
begin
var2 = PriceValueArray[Value2] ;
var1 = var0 ;
end
else
begin
condition1 = var0 = var1 and Type >= 0 ;
if condition1 then
var2 = PriceValueArray[Value2] ;
end;
end ;
end ;
end ;
ModeArray = var2 ;
[/code]
页:
[1]