【Sort2DArray】

1. inputs:
   
2.         PriceValueArray[ MaxSize1, MaxSize2 ]( numericarrayref ),
   
3.         Size1( numericsimple ),                          
   
4.         Size2( numericsimple ),                          
   
5.         HiLo( numericsimple ) ;                                                     
   
6. 
   
7. variables:
   
8.         var0( 0 ) ;
   
9. 
   
10. for Value1 = 1 to Size2 - 1
    
11.         begin
    
12.         for Value2 = Value1 + 1 to Size2
    
13.                 begin
    
14.                 condition1 = ( HiLo = 1 and PriceValueArray[ 1, Value1 ] < PriceValueArray[ 1, Value2 ] )
    
15.                  or ( HiLo = -1 and PriceValueArray[ 1, Value1 ] > PriceValueArray[ 1, Value2 ] ) ;
    
16.                  
    
17.                 if condition1 then
    
18.                         begin
    
19.                         for Value3 = 1 to Size1
    
20.                                 begin
    
21.                                 var0 = PriceValueArray[ Value3, Value1 ] ;
    
22.                                 PriceValueArray[ Value3, Value1 ] = PriceValueArray[ Value3, Value2 ] ;
    
23.                                 PriceValueArray[ Value3, Value2 ] = var0 ;
    
24.                                 end ;
    
25.                         end ;
    
26.                 end ;
    
27.         end ;
    
28. Sort2DArray = 1 ;

复制代码