【Volume Osc】

1. inputs:
   
2.         FastLength( 14 ),
   
3.         SlowLength( 28 ),
   
4.         ColorNormLength( 14 ),                                                      
   
5.                                                                                      
   
6.         UpColor( Yellow ),                                                            
   
7.                                      
   
8.         DnColor( Magenta ),                                                            
   
9.                                      
   
10.         GridForegroundColor( Black ) ;                                                
    
11. variables:
    
12.         var0( 0 ),
    
13.         var1( 0 ),
    
14.         var2( 0 ) ;
    
15. 
    
16. if CurrentBar = 1 then
    
17.         var0 = GetAppInfo( aiApplicationType ) ;
    
18. 
    
19. var1 = VolumeOsc( FastLength, SlowLength ) ;
    
20. 
    
21. Plot1( var1, "VolOsc" ) ;  
    
22. Plot2( 0, "ZeroLine" ) ;
    
23. 
    
24. condition1 = UpColor >= 0 and DnColor >= 0 ;
    
25. if condition1 then
    
26.         begin
    
27.         var2 = NormGradientColor( var1, true, ColorNormLength, UpColor,
    
28.          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 = var1 crosses over 0 ;                  
    
39. if condition1 then
    
40.         Alert( "Indicator turning positive" )
    
41. else
    
42. begin
    
43. condition1 = var1 crosses under 0 ;
    
44. if condition1 then
    
45.         Alert( "Indicator turning negative" ) ;
    
46. end;

复制代码