【海利克精算指标(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.                  
    
19. 
    
20. variables:
    
21.         var0( 0 ),
    
22.         var1( 0 ),
    
23.         var2( 0 ) ;
    
24. 
    
25. if CurrentBar = 1 then
    
26.         var0 = GetAppInfo( aiApplicationType ) ;
    
27. 
    
28. var1 = HPI( OneCent, SmoothingFactor ) * 0.00001 ;
    
29. 
    
30. Plot1( var1, "HPI" ) ;
    
31. Plot2( 0, "ZeroLine" ) ;
    
32. 
    
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 ;
    
46. 
    
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;

复制代码