【凯尔特纳通道(Keltner Channel)】

1. inputs:  Price( Close ), Length( 20 ), NumATRs( 1.5 ), Displace( 0 ) ;
   
2. variables:  var0( 0 ), var1( 0 ), var2( 0 ), var3( 0 ) ;
   
3. 
   
4. var0 = AverageFC( Price, Length ) ;
   
5. var1 = NumATRs * AvgTrueRange( Length ) ;
   
6. var3 = var0 + var1 ;
   
7. var2 = var0 - var1 ;
   
8. 
   
9. condition1 = Displace >= 0 or CurrentBar > AbsValue( Displace ) ;
   
10. if condition1 then
    
11.         begin
    
12.         Plot1[Displace]( var3, "UpperBand" ) ;
    
13.         Plot2[Displace]( var2, "LowerBand" ) ;
    
14.         Plot3[Displace]( var0, "MidLine" ) ;
    
15. 
    
16.                          
    
17.         if Displace <= 0 then
    
18.                 begin
    
19.                 condition1 = Price crosses over var3 ;
    
20.                 if condition1 then
    
21.                         Alert( "Price crossing over upper band" )
    
22.                 else
    
23.                 begin
    
24.                 condition1 = Price crosses under var2 ;
    
25.                 if condition1 then
    
26.                         Alert( "Price crossing under lower band" ) ;
    
27.                 end ;
    
28.                 end;
    
29.         end ;

复制代码