【Bollinger Bands】

1. inputs:
   
2.         BollingerPrice( Close ),
   
3.         TestPriceUBand( Close ),
   
4.         TestPriceLBand( Close ),
   
5.         Length( 20 ),
   
6.         NumDevsUp( 2 ),
   
7.         NumDevsDn( -2 ),
   
8.         Displace( 0 ) ;
   
9. 
   
10. variables:
    
11.         var0( 0 ),
    
12.         var1( 0 ),
    
13.         var2( 0 ),
    
14.         var3( 0 ) ;
    
15. 
    
16. var0 = AverageFC( BollingerPrice, Length ) ;
    
17. var1 = StandardDev( BollingerPrice, Length, 1 ) ;
    
18. var3 = var0 + NumDevsUp * var1 ;
    
19. var2 = var0 + NumDevsDn * var1 ;
    
20. 
    
21. condition1 = Displace >= 0 or CurrentBar > AbsValue( Displace ) ;
    
22. if condition1 then
    
23.         begin
    
24.         Plot1[Displace]( var3, "UpperBand" ) ;
    
25.         Plot2[Displace]( var2, "LowerBand" ) ;
    
26.         Plot3[Displace]( var0, "MidLine" ) ;
    
27. 
    
28.                          
    
29.         if Displace <= 0 then
    
30.                 begin
    
31.                 condition1 = TestPriceLBand crosses over var2 ;
    
32.                 if condition1 then
    
33.                         Alert( "Price crossing over lower price band" )
    
34.                 else
    
35.                 begin
    
36.                 condition1 = TestPriceUBand crosses under var3 ;
    
37.                 if condition1 then
    
38.                         Alert( "Price crossing under upper price band" ) ;
    
39.                 end;
    
40.                 end ;
    
41.         end ;

复制代码