【PercentRank】

1. inputs:
   
2.         PriceValueToRank( numericsimple ),
   
3.         PriceValue( numericseries ),
   
4.         Len( numericsimple ) ;
   
5. 
   
6. variables:
   
7.         var0( 0 ),
   
8.         var1( 0 ),
   
9.         var2( 0 ),
   
10.         var3( 0 ) ;
    
11. 
    
12. arrays:
    
13.         arr0[1000]( 0 ) ;
    
14. 
    
15. condition1 = Len > 1
    
16.         and PriceValueToRank >= Lowest( PriceValue, Len )
    
17.         and PriceValueToRank <= Highest( PriceValue, Len ) ;
    
18. 
    
19. if condition1
    
20. then
    
21.         begin
    
22.                                                                                     
    
23.         for Value1 = 1 to Len
    
24.                 begin
    
25.                 arr0[Value1] = PriceValue[ Value1 - 1 ] ;
    
26.                 end ;
    
27.         Value1 = SortArray( arr0, Len, -1 ) ;
    
28.                                                                         
    
29.         var0 = 1 / ( Len - 1 ) ;
    
30.                                                                                   
    
31.                                                                                           
    
32.                             
    
33.         var1 = 0 ;
    
34.         for Value2 = 1 to Len
    
35.                 begin
    
36.                 if arr0[Value2] = PriceValueToRank then
    
37.                         begin
    
38.                         PercentRank = var0 * ( Value2 - 1 ) ;
    
39.                         var1 = 1 ;
    
40.                         Value2 = Len ;                                 
    
41.                         end ;
    
42.                 end ;
    
43.                                                 
    
44.         if var1 = 0 then
    
45.                 begin
    
46.                 for Value3 = 1 to Len - 1
    
47.                         begin
    
48.                         var2 = arr0[Value3] ;
    
49.                         var3 = arr0[ Value3 + 1 ] ;
    
50.                         condition1 = PriceValueToRank > var2 and PriceValueToRank < var3 ;
    
51.                         if condition1 then
    
52.                                 begin
    
53.                                 PercentRank = var0 * ( ( Value3 - 1 ) + ( PriceValueToRank -
    
54.                                  var2 ) / ( var3 - var2 ) ) ;
    
55.                                 Value3 = Len - 1 ;                                 
    
56.                                 end ;
    
57.                         end ;
    
58.                 end ;
    
59.         end
    
60. else
    
61.         PercentRank = -1 ;

复制代码