【Mov Avg Envelopes】

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

复制代码