Board logo

标题: 【C_BullHar_BearHar】 [打印本页]
作者: 龙听    时间: 2022-11-1 11:48     标题: 【C_BullHar_BearHar】

  1. inputs:
  2.         Len( numericsimple ),
  3.         oBullishHarami( numericref ),
  4.         oBearishHarami( numericref ) ;

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

  11. var0 = MaxList( Close, Open ) - MinList( Close, Open ) ;
  12. var1 = XAverage( Close, Len ) ;
  13. var2 = XAverage( var0, Len ) ;

  15. oBullishHarami = 0 ;
  16. oBearishHarami = 0 ;

  18. if CurrentBar > 1 then
  19.         begin
  20.         condition1 = Close < var1
  21.                                                  
  22.                 and Close > Open
  23.                                                          
  24.                 and var0 < var2
  25.                                                 
  26.                 and C[1] < O[1]
  27.                                                           
  28.                 and var0[1] > var2[1]
  29.                                               
  30.                 and Close <= Open[1]
  31.                                                  
  32.                 and Open >= Close[1]
  33.                                                  
  34.                 and var0[1] / var0 >= 1.3;
  35.         if condition1
  36.                                                  
  37.         then
  38.                 oBullishHarami = 1
  39.         else
  40.         begin
  41.         condition1 = Close > var1
  42.                                               
  43.                 and Close < Open
  44.                                                          
  45.                 and var0 < var2
  46.                                                 
  47.                 and Close[1] > Open[1]
  48.                                                           
  49.                 and var0[1] > var2[1]
  50.                                               
  51.                 and Close >= Open[1]
  52.                                                  
  53.                 and Open <= Close[1]
  54.                                                  
  55.                 and var0[1] / var0 >= 1.3;

  57.         if condition1
  58.                                                  
  59.         then
  60.                 oBearishHarami = 1 ;
  61.         end;
  62.         end ;

  64. C_BullHar_BearHar = 1 ;
复制代码




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