Board logo

标题: 【海利克精算指标(HPI)】 [打印本页]
作者: 龙听    时间: 2022-11-3 13:55     标题: 【海利克精算指标(HPI)】

  1. inputs:
  2.         OneCent( 100 ),
  3.         SmoothingFactor( .133 ),                                                   
  4.         AlertLength( 14 ),
  5.         ColorNormLength( 14 ),                                                      
  6.                                                                                      
  7.         UpColor( Yellow ),                                                            
  8.                                      
  9.         DnColor( Cyan ),                                                            
  10.                                      
  11.         GridForegroundColor( Black ) ;                                                
  12.                                                                                      
  13.                                      
  14.                 
  15.                                                                                     
  16.                                                                                     
  17.                                                                                   
  18.                  

  20. variables:
  21.         var0( 0 ),
  22.         var1( 0 ),
  23.         var2( 0 ) ;

  25. if CurrentBar = 1 then
  26.         var0 = GetAppInfo( aiApplicationType ) ;

  28. var1 = HPI( OneCent, SmoothingFactor ) * 0.00001 ;

  30. Plot1( var1, "HPI" ) ;
  31. Plot2( 0, "ZeroLine" ) ;

  33. condition1 = UpColor >= 0 and DnColor >= 0;         
  34. if condition1 then
  35.         begin
  36.         var2 = NormGradientColor( var1, true, ColorNormLength, UpColor,
  37.          DnColor ) ;
  38.         if var0 = 1 then                                
  39.                 SetPlotColor( 1, var2 )
  40.         else if var0 > 1 then                                 
  41.                 begin
  42.                 SetPlotColor( 1, GridForegroundColor ) ;
  43.                 SetPlotBGColor( 1, var2 ) ;
  44.                 end ;
  45.         end ;

  47.                   
  48. condition1 = LowestBar( C, AlertLength ) = 0 and LowestBar( var1, AlertLength ) > 0 ;
  49. if condition1 then
  50.         Alert( "Bullish divergence - new low not confirmed" )
  51. else
  52. begin
  53. condition1 = HighestBar( C, AlertLength ) = 0 and HighestBar( var1, AlertLength ) > 0;
  54. if condition1
  55. then
  56.         Alert( "Bearish divergence - new high not confirmed" ) ;
  57. end;
复制代码




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