【区间震荡指标(Detrended Price Osc)】

1. inputs:
   
2.         Price( Close ),
   
3.         Length( 14 ),
   
4.         ColorNormLength( 14 ),                                                      
   
5.                                                                                      
   
6.         UpColor( Yellow ),                                                            
   
7.                                      
   
8.         DnColor( Magenta ),                                                            
   
9.                                      
   
10.         GridForegroundColor( Black ) ;                                                
    
11.                                                                                                        
    
12. variables:
    
13.         var0( 0 ),
    
14.         var1( 0 ),
    
15.         var2( 0 ) ;
    
16. 
    
17. if CurrentBar = 1 then
    
18.         var0 = GetAppInfo( aiApplicationType ) ;
    
19. 
    
20. var1 = Detrend( Price, Length ) ;
    
21. 
    
22. Plot1( var1, "DPO" ) ;
    
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 ;

复制代码