Board logo

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

  1. inputs:
  2.         PriceValueToRank( numericsimple ),
  3.         PriceValue( numericseries ),
  4.         Len( numericsimple ) ;

  6. variables:
  7.         var0( 0 ),
  8.         var1( 0 ),
  9.         var2( 0 ),
  10.         var3( 0 ) ;

  12. arrays:
  13.         arr0[1000]( 0 ) ;

  15. condition1 = Len > 1
  16.         and PriceValueToRank >= Lowest( PriceValue, Len )
  17.         and PriceValueToRank <= Highest( PriceValue, Len ) ;

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




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