Board logo

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

  1. inputs:
  2.         Len( numericsimple ),
  3.         MaxConsolIndex( numericsimple ),
  4.         BarsPast( numericsimple ),
  5.         oTLHiStartPr( numericref ),
  6.         oTLHiEndPr( numericref ),
  7.         oTLLoStartPr( numericref ),
  8.         oTLLoEndPr( numericref ) ;

  10. variables:
  11.         var0( Len - 1 ),
  12.         var1( 0 ),
  13.         var2( 0 ),
  14.         var3( 0 ),
  15.         var4( 0 ),
  16.         var5( 0 ),
  17.         var6( 0 ),
  18.         var7( 0 ),
  19.         var8( 0 ),
  20.         var9( 0 ),
  21.         var10( 0 ),
  22.         var11( 0 ),
  23.         var12( 0 ),
  24.         var13( 0 ),
  25.         var14( 0 ),
  26.         var15( 0 ),
  27.         var16( 0 ),
  28.         var17( 0 ),
  29.         var18( 0 ),
  30.         var19( 0 ),
  31.         var20( 1000000 ),
  32.         var21( false ) ;

  34. var1 = -1 ;
  35. var2 = AvgTrueRange( Len ) ;
  36. if var2 > 0 then
  37.         var3 = ( HighestFC( TrueHigh, Len ) - LowestFC( TrueLow, Len ) ) /
  38.          AvgTrueRange( Len )
  39. else
  40.         var3 = MaxConsolIndex + 1 ;
  41. if var3 <= MaxConsolIndex then                 
  42.         begin
  43.         Value1 = LinearReg( High, Len, 0, var4, var5, var6,
  44.          var7 ) ;
  45.         Value1 = LinearReg( Low, Len, 0, var8, var9, var10,
  46.          var11 ) ;
  47.         var18 = var8 - var4 ;
  48.         if var18 >= 0 then                  
  49.                 begin
  50.                 var13 = 0 ;
  51.                 var15 = 0 ;
  52.                 for Value1 = 0 to var0
  53.                         begin
  54.                         var12 = High[Value1] - ( var6 + var4 * ( var0 -
  55.                          Value1 ) ) ;
  56.                         var14 = -( Low[Value1] - ( var10 + var8 * ( var0 -
  57.                          Value1 ) ) ) ;
  58.                         if var12 > var13 then
  59.                                 var13 = var12 ;
  60.                         if var14 > var15 then
  61.                                 var15 = var14 ;
  62.                         end ;
  63.                 oTLHiStartPr = var6 + var13 ;
  64.                 oTLHiEndPr = var7 + var13 ;
  65.                 oTLLoStartPr = var10 - var15 ;
  66.                 oTLLoEndPr = var11 - var15 ;
  67.                 var16 = var4 ;
  68.                 var17 = var8 ;
  69.                 if var18 > 0 then
  70.                         var19 = MinList( BarsPast, ( oTLHiEndPr - oTLLoEndPr ) / var18 )
  71.                 else
  72.                         var19 = BarsPast ;
  73.                 var1 = 1 ;
  74.                 end ;
  75.         end ;

  77. if var1 = 1 then
  78.         begin
  79.         var20 = 0 ;
  80.         var21 = false ;
  81.         end
  82. else
  83.         begin
  84.         var20 = var20 + 1 ;
  85.         if var20 <= var19 then
  86.                 begin
  87.                 oTLHiEndPr = oTLHiStartPr + var16 * ( var0 + var20 ) ;
  88.                 oTLLoEndPr = oTLLoStartPr + var17 * ( var0 + var20 ) ;
  89.                 if var21 = false then
  90.                         begin
  91.                         condition1 = High > oTLHiEndPr and Low > oTLLoEndPr ;
  92.                         if condition1 then
  93.                                 begin
  94.                                 var21 = true ;              
  95.                                 var1 = 2 ;
  96.                                 end
  97.                         else
  98.                         begin
  99.                         condition1 = Low < oTLLoEndPr and High < oTLHiEndPr ;
  100.                         if condition1 then
  101.                                 begin
  102.                                 var21 = true ;              
  103.                                 var1 = 3 ;
  104.                                 end ;
  105.                         end ;
  106.                         end;
  107.                 end
  108.         else
  109.                 begin
  110.                 oTLHiEndPr = 0 ;
  111.                 oTLLoEndPr = 0 ;
  112.                 end ;       
  113.         end ;

  115.                                                                                     
  116.                            
  117. Value1 = Pennant[1] ;

  119. Pennant = var1 ;
复制代码




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