【Sort2DArray】
[code]inputs:PriceValueArray[ MaxSize1, MaxSize2 ]( numericarrayref ),
Size1( numericsimple ),
Size2( numericsimple ),
HiLo( numericsimple ) ;
variables:
var0( 0 ) ;
for Value1 = 1 to Size2 - 1
begin
for Value2 = Value1 + 1 to Size2
begin
condition1 = ( HiLo = 1 and PriceValueArray[ 1, Value1 ] < PriceValueArray[ 1, Value2 ] )
or ( HiLo = -1 and PriceValueArray[ 1, Value1 ] > PriceValueArray[ 1, Value2 ] ) ;
if condition1 then
begin
for Value3 = 1 to Size1
begin
var0 = PriceValueArray[ Value3, Value1 ] ;
PriceValueArray[ Value3, Value1 ] = PriceValueArray[ Value3, Value2 ] ;
PriceValueArray[ Value3, Value2 ] = var0 ;
end ;
end ;
end ;
end ;
Sort2DArray = 1 ;
[/code]
页:
[1]