Board logo

标题: 【PercentRankArray】 [打印本页]
作者: 龙听    时间: 2022-11-2 11:41     标题: 【PercentRankArray】

  1. inputs:
  2.         PriceValueToRank( numericsimple ),
  3.         PriceValueArray[MaxSize]( numericarrayref ),                           
  4.         Size( numericsimple ) ;                        

  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 ) ;

  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 ;
复制代码




欢迎光临 龙听期货论坛 (http://www.qhlt.cn/) Powered by Discuz! 7.2