Board logo

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

  1. inputs:
  2.         MinRStren( numericsimple ),
  3.         MaxRStren( numericsimple ),
  4.         LRFactor( numericsimple ),
  5.         HiLo( numericsimple ),                                                        
  6.                                  
  7.         DrawLines( truefalsesimple ),
  8.         LinesColor( numericsimple ),
  9.         oPivotPriceValue( numericref ),
  10.         oPivotRStren( numericref ),
  11.         oPivotLStren( numericref ) ;

  13. variables:
  14.         var0( 0 ),
  15.         var1( 0 ),
  16.         var2( 0 ),
  17.         var3( 0 ),
  18.         var4( 0 ),
  19.         var5( 0 ),
  20.         var6( 0 ),
  21.         var7( 0 ),
  22.         var8( 0 ),
  23.         var9( 0 ),
  24.         var10( 0 ) ;

  26. arrays:
  27.         arr0[ 1001, 4 ]( 0 ) ;
  28.                            
  29.                             
  30.                       
  31.                         

  33. if HiLo = 1 then
  34.         var0 = High
  35. else if HiLo = -1 then
  36.         var0 = Low ;

  38. var1 = CurrentBar ;
  39. var2 = 0 ;
  40. PivotReversalGen = 0 ;

  42. if var1 = 1 then
  43.         begin
  44.         arr0[ 1001, 1 ] = HiLo * 10000000 ;
  45.         arr0[ 1000, 1 ] = var0 ;
  46.         arr0[ 1000, 2 ] = 1 ;
  47.         arr0[ 1000, 3 ] = Date ;
  48.         arr0[ 1000, 4 ] = Time ;
  49.         var3 = 1000 ;
  50.         var4 = 1001 ;
  51.         end
  52. else for var5 = var3 to var4
  53.         begin
  54.         var6 = var5 + 1 ;
  55.         var7 = var5 - 1 ;
  56.         condition1 = Hilo * var0 > HiLo * arr0[ var5, 1 ] ;
  57.         if condition1 then
  58.                                                     
  59.                 begin
  60.                 var8 = var1 - arr0[ var5, 2 ] - 1 ;
  61.                 var9 = arr0[ var5, 2 ] - arr0[ var6, 2 ] - 1 ;
  62.                 condition1 = var8 >= MinRStren and var8 <= MaxRStren and IffLogic( LRFactor > 0,
  63.                  var9 > var8 * LRFactor, var9 >= MinRStren ) ;
  64.                 if condition1 then
  65.                         begin
  66.                         var2 = var2 + 1 ;
  67.                         if var2 = 1 then
  68.                                 begin
  69.                                 oPivotPriceValue = arr0[ var5, 1 ] ;
  70.                                 oPivotRStren = var8 ;
  71.                                 oPivotLStren = var9 ;
  72.                                 PivotReversalGen = 1 ;
  73.                                 end ;
  74.                         if DrawLines then
  75.                                 begin
  76.                                 var10 = TL_New( arr0[ var5, 3 ], arr0[ var5, 4 ], arr0[ var5,
  77.                                  1 ], Date, Time, arr0[ var5, 1 ] ) ;
  78.                                 TL_SetColor( var10, LinesColor ) ;
  79.                                 TL_SetExtLeft( var10, false ) ;
  80.                                 TL_SetExtRight( var10, false ) ;
  81.                                 end ;
  82.                         end ;
  83.                 end
  84.         else
  85.                 begin
  86.                 arr0[ var7, 1 ] = var0 ;
  87.                 arr0[ var7, 2 ] = var1 ;
  88.                 arr0[ var7, 3 ] = Date ;
  89.                 arr0[ var7, 4 ] = Time ;
  90.                 var3 = var7 ;
  91.                 var5 = var4 ;                                 
  92.                 end ;
  93.         end ;

  95.                                                                                     
  96.                               
  97. if false then
  98.         Value1 = PivotReversalGen[1] ;
复制代码




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