【NthExtremesArray】

1. inputs:
   
2.         PriceValueArray[MaxSize]( numericarray ),                       
   
3.         Size( numericsimple ),                        
   
4.         N ( numericsimple ),                  
   
5.         HiLo( numericsimple ),                                                         
   
6.         oExtremeVal( numericref ),
   
7.         oExtremePosRaw( numericref ) ;                                               
   
8.                                                                                      
   
9.                                                                         
   
10. 
    
11. arrays:
    
12.         arr0[ 2, 100 ]( 0 ) ;                                 
    
13. 
    
14. condition1 = N > Size or Size > MinList( MaxSize, 100 ) ;
    
15. if condition1 then
    
16.         begin
    
17.         oExtremeVal = 0 ;
    
18.         oExtremePosRaw = -1 ;
    
19.         NthExtremesArray = -1 ;
    
20.         end
    
21. else
    
22.         begin
    
23.                                                                                         
    
24.                                                                                      
    
25.                 
    
26.         for Value1 = 1 to Size
    
27.                 begin
    
28.                 arr0[ 1, Value1 ] = PriceValueArray[Value1] ;
    
29.                 arr0[ 2, Value1 ] = Value1 - 1 ;
    
30.                 end ;
    
31.                                                                                           
    
32.                                                                            
    
33.         Value1 = Sort2DArray( arr0, 2, Size, HiLo ) ;
    
34. 
    
35.         oExtremeVal = arr0[ 1, N ] ;
    
36.         oExtremePosRaw = arr0[ 2, N ] ;
    
37.         NthExtremesArray = 1 ;
    
38.         end ;

复制代码