【标准误差带(Standard error bands)】

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

复制代码