【AB_NextLabel】

1. inputs:
   
2.         MinuteInterval( numericsimple ) ;
   
3. 
   
4. variables:
   
5.         var0( 0 ),
   
6.         var1( 0 ),
   
7.         var2( 0 ),
   
8.         var3( 0 ),
   
9.         var4( "ABCDEFGHIJKLMNOPQRSTUVWXYZ123456789" ) ;
   
10. 
    
11. condition1 = BarType = 1                                 
    
12. and MinuteInterval >= BarInterval                     
    
13. and ( MinuteInterval <= BarInterval of Data1 or BarType of Data1 = 2 ) ;
    
14. if condition1 then
    
15.         begin
    
16. 
    
17.         var1 = MinutesIntoWeek( DayOfWeek( Date ), Time ) ;
    
18.         var0 = BarStatus( 1 ) ;
    
19.         condition1 = ( CurrentBar of Data1 = 1 and var0 = 2 ) or var0[1] = 2 ;
    
20.         if condition1 then                  
    
21.                 begin
    
22.                 var3 = 1 ;
    
23.                 var2 = var1 - BarInterval ;
    
24.                 end ;
    
25. 
    
26.         condition1 = var1 > var2 + MinuteInterval ;
    
27.         if condition1 then
    
28.                 begin
    
29.                 var3 = var3 + 1 ;
    
30.                 if var3 > 35 then
    
31.                         var3 = 1 ;
    
32.                 var2 = var1 - BarInterval ;
    
33.                 end ;
    
34. 
    
35.         AB_NextLabel = MidStr( var4, var3, 1 ) ;
    
36. 
    
37.         end
    
38. else
    
39.         AB_NextLabel = "" ;

复制代码