【动量指标(Momentum)】

1. inputs:
   
2.         Price( Close ),
   
3.         Length( 12 ),
   
4.         ColorNormLength( 14 ),                                                      
   
5.                                                                                      
   
6.         UpColor( Yellow ),                                                            
   
7.                                      
   
8.         DnColor( Red ),                                                            
   
9.                                      
   
10.         GridForegroundColor( Black ) ;                                                
    
11.                                                                                      
    
12.                  
    
13. 
    
14. variables:
    
15.         var0( 0 ),
    
16.         var1( 0 ),
    
17.         var2( 0 ),
    
18.         var3( 0 ) ;
    
19. 
    
20. if CurrentBar = 1 then
    
21.         var0 = GetAppInfo( aiApplicationType ) ;
    
22. 
    
23. var1 = Momentum( Price, Length ) ;
    
24. var2 = Momentum( var1, 1 ) ;                       
    
25. 
    
26. Plot1( var1, "Momentum" ) ;
    
27. Plot2( 0, "ZeroLine" ) ;
    
28. 
    
29. condition1 = UpColor >= 0 and DnColor >= 0 ;        
    
30. if condition1 then
    
31.         begin
    
32.         var3 = NormGradientColor( var1, true, ColorNormLength, UpColor, DnColor ) ;
    
33.         if var0 = 1 then                                
    
34.                 SetPlotColor( 1, var3 )
    
35.         else if var0 > 1 then                                 
    
36.                 begin
    
37.                 SetPlotColor( 1, GridForegroundColor ) ;
    
38.                 SetPlotBGColor( 1, var3 ) ;
    
39.                 end ;
    
40.         end ;
    
41. 
    
42. condition1 = var1 > 0 and var2 > 0 ;                  
    
43. if condition1 then
    
44.         Alert( "Indicator positive and increasing" )
    
45. else
    
46. begin
    
47. condition1 = var1 < 0 and var2 < 0 ;
    
48. if condition1 then
    
49.         Alert( "Indicator negative and decreasing" ) ;
    
50. end;

复制代码