【变动率指标(Rate of Chg)】

1. inputs:
   
2.         Price( Close ),
   
3.         ROCLength( 14 ),
   
4.         AlertLength( 14 ),
   
5.         ColorNormLength( 14 ),                                                      
   
6.                                                                                      
   
7.         UpColor( Cyan ),                                                            
   
8.                                      
   
9.         DnColor( Magenta ),                                                            
   
10.                                      
    
11.         GridForegroundColor( Black ) ;      
    
12. variables:
    
13.         var0( 0 ),
    
14.         var1( 0 ),
    
15.         var2( 0 ) ;
    
16. 
    
17. if CurrentBar = 1 then
    
18.         var0 = GetAppInfo( aiApplicationType ) ;
    
19. 
    
20. var1 = RateofChange( Price, ROCLength ) ;
    
21.        
    
22. Plot1( var1, "ROC" ) ;
    
23. Plot2( 0, "ZeroLine" ) ;
    
24. 
    
25. condition1 = UpColor >= 0 and DnColor >= 0 ;
    
26. if condition1 then
    
27.         begin
    
28.         var2 = NormGradientColor( var1, true, ColorNormLength, UpColor, DnColor ) ;
    
29.         if var0 = 1 then                                
    
30.                 SetPlotColor( 1, var2 )
    
31.         else if var0 > 1 then                                 
    
32.                 begin
    
33.                 SetPlotColor( 1, GridForegroundColor ) ;
    
34.                 SetPlotBGColor( 1, var2 ) ;
    
35.                 end ;
    
36.         end ;
    
37. 
    
38. condition1 = HighestBar( var1, AlertLength ) = 0 ;                  
    
39. if condition1 then
    
40.         Alert( "Indicator at high" )
    
41. else
    
42. begin
    
43. condition1 = LowestBar( var1, AlertLength ) = 0 ;
    
44. if condition1 then
    
45.         Alert( "Indicator at low" ) ;
    
46. end;

复制代码