【PercentRankArray】

1. inputs:
   
2.         PriceValueToRank( numericsimple ),
   
3.         PriceValueArray[MaxSize]( numericarrayref ),                           
   
4.         Size( numericsimple ) ;                        
   
5. 
   
6. variables:
   
7.         var0( 0 ),
   
8.         var1( 0 ),
   
9.         var2( 0 ),
   
10.         var3( 0 ) ;
    
11. condition1 = Size > 1
    
12.         and PriceValueToRank >= LowestArray( PriceValueArray, Size )
    
13.         and PriceValueToRank <= HighestArray( PriceValueArray, Size ) ;
    
14. 
    
15. if condition1
    
16. then
    
17.         begin
    
18.         Value1 = SortArray( PriceValueArray, Size, -1 ) ;
    
19.                                                                         
    
20.         var0 = 1 / ( Size - 1 ) ;
    
21.                                                                                   
    
22.                                                                                           
    
23.                             
    
24.         var1 = 0 ;
    
25.         for Value2 = 1 to Size
    
26.                 begin
    
27.                 if PriceValueArray[Value2] = PriceValueToRank then
    
28.                         begin
    
29.                         PercentRankArray = var0 * ( Value2 - 1 ) ;
    
30.                         var1 = 1 ;
    
31.                         Value2 = Size ;                                 
    
32.                         end ;
    
33.                 end ;
    
34.                                                 
    
35.         if var1 = 0 then
    
36.                 begin
    
37.                 for Value3 = 1 to Size - 1
    
38.                         begin
    
39.                         var2 = PriceValueArray[Value3] ;
    
40.                         var3 = PriceValueArray[ Value3 + 1 ] ;
    
41.                         condition1 = PriceValueToRank > var2 and PriceValueToRank < var3 ;
    
42.                         if condition1 then
    
43.                                 begin
    
44.                                 PercentRankArray = var0        * ( ( Value3 - 1 ) + ( PriceValueToRank -
    
45.                                  var2 ) / ( var3 - var2 ) ) ;
    
46.                                 Value3 = Size - 1 ;                                 
    
47.                                 end ;
    
48.                         end ;
    
49.                 end ;
    
50.         end
    
51. else
    
52.         PercentRankArray = -1 ;

复制代码