【Chaikin Osc】

1. inputs:
   
2.         FastLength( 3 ),
   
3.         SlowLength( 10 ),
   
4.         AlertLength( 14 ),
   
5.         ColorNormLength( 14 ),                                                      
   
6.                                                                                      
   
7.         UpColor( Yellow ),                                                            
   
8.                                      
   
9.         DnColor( Red ),                                                            
   
10.                                      
    
11.         GridForegroundColor( Black ) ;                                                
    
12.                                                                                      
    
13.                                      
    
14.                 
    
15.                                                                                     
    
16.                                                                                     
    
17.                                                                                   
    
18.                  
    
19. 
    
20. variables:
    
21.         var0( 0 ),
    
22.         var1( 0 ),
    
23.         var2( 0 ),
    
24.         var3( 0 ) ;
    
25. 
    
26. if CurrentBar = 1 then
    
27.         var0 = GetAppInfo( aiApplicationType ) ;
    
28.        
    
29. if BarType >= 2 and BarType < 5 then                              
    
30.         var2 = Volume
    
31. else                                                                              
    
32.                                                                                  
    
33.         var2 = Ticks ;
    
34. 
    
35. var1 = ChaikinOsc( var2, FastLength, SlowLength ) ;
    
36. 
    
37. Plot1( var1, "ChaikinOsc" ) ;
    
38. Plot2( 0 , "ZeroLine" ) ;
    
39. 
    
40. condition1 = UpColor >= 0 and DnColor >= 0 ;                                          
    
41. if condition1 then
    
42.         begin
    
43.         var3 = NormGradientColor( var1, true, ColorNormLength, UpColor,
    
44.                  DnColor ) ;
    
45.         if var0 = 1 then                                
    
46.                 SetPlotColor( 1, var3 )
    
47.         else if var0 > 1 then                                 
    
48.                 begin
    
49.                 SetPlotColor( 1, GridForegroundColor ) ;
    
50.                 SetPlotBGColor( 1, var3 ) ;
    
51.                 end ;
    
52.         end ;
    
53.                
    
54.                   
    
55. condition1 = LowestBar( C, AlertLength ) = 0 and LowestBar( var1, AlertLength ) > 0;
    
56. if condition1
    
57. then
    
58.         Alert( "Bullish divergence - new low not confirmed" )
    
59. else
    
60. begin
    
61. condition1 = HighestBar( C, AlertLength ) = 0 and HighestBar( var1, AlertLength ) > 0 ;
    
62. if condition1 then
    
63.         Alert( "Bearish divergence - new high not confirmed" ) ;
    
64. end;

复制代码