【OHLCPeriodsAgoGen】

1. inputs:
   
2.         PeriodType( numericsimple ),                                                
   
3.                                  
   
4.         PeriodsAgo( numericsimple ),
   
5.         oPeriodOpen( numericref ),
   
6.         oPeriodHigh( numericref ),
   
7.         oPeriodLow( numericref ),
   
8.         oPeriodClose( numericref ),
   
9.         stream( numericsimple ) ;
   
10. 
    
11. variables:
    
12.         var0( 0 ), sess_last_bar(false) ;
    
13. 
    
14. arrays:
    
15.         arr0[ 4, 50 ]( -1 ) ;
    
16. 
    
17. sess_last_bar = sessionlastbar;
    
18. condition1 = PeriodsAgo > 50 or BarType > IFF(PeriodType<>0, PeriodType + 1, PeriodType + 2) or BarType > 4 ;
    
19. if condition1 then
    
20.         begin
    
21.         oPeriodOpen = -1 ;
    
22.         oPeriodHigh = -1 ;
    
23.         oPeriodLow = -1 ;
    
24.         oPeriodClose = -1 ;
    
25.         OHLCPeriodsAgoGen = -1 ;
    
26.         end
    
27. else
    
28.         begin
    
29.                                                                 
    
30.         if PeriodType = 0 then
    
31.                 Condition1 = sess_last_bar[1]
    
32.         else if PeriodType = 1 then
    
33.                 Condition1 = Date <> Date[1]
    
34.         else if PeriodType = 2 then
    
35.                 Condition1 = DayOfWeek( Date ) < DayOfWeek( Date[1] )
    
36.         else if PeriodType = 3 then
    
37.                 Condition1 = Month( Date ) <> Month( Date[1] )
    
38.         else if PeriodType = 4 then
    
39.                 Condition1 = Year( Date ) <> Year( Date[1] ) ;
    
40. 
    
41.         condition1 = CurrentBar = 1 or Condition1 ;
    
42.         if condition1 then                                         
    
43.                 begin
    
44.                 var0 = var0 - 1 ;                                                      
    
45.                 if var0 = -1
    
46.                         then var0 = 50 ;                                    
    
47.                                                                                        
    
48.                 arr0[ 1, var0 ] = O of data(stream) ;
    
49.                 arr0[ 2, var0 ] = H of data(stream) ;
    
50.                 arr0[ 3, var0 ] = L of data(stream) ;
    
51.                 arr0[ 4, var0 ] = C of data(stream) ;
    
52.                 end
    
53.         else
    
54.                                                                                     
    
55.                                                        
    
56.                 begin
    
57.                 condition1 = H of data(stream) > arr0[ 2, var0 ] ;
    
58.                 if condition1 then arr0[ 2, var0 ] = H  of data(stream);
    
59.                 condition1 = L of data(stream) < arr0[ 3, var0 ] ;
    
60.                 if condition1 then arr0[ 3, var0 ] = L  of data(stream);
    
61.                 arr0[ 4, var0 ] = C of data(stream);
    
62.                 end ;
    
63. 
    
64.                                                                                         
    
65.                          
    
66.         oPeriodOpen = arr0[ 1, Mod( var0 + PeriodsAgo, 51 ) ] ;
    
67.         oPeriodHigh = arr0[ 2, Mod( var0 + PeriodsAgo, 51 ) ] ;
    
68.         oPeriodLow = arr0[ 3, Mod( var0 + PeriodsAgo, 51 ) ] ;
    
69.         oPeriodClose = arr0[ 4, Mod( var0 + PeriodsAgo, 51 ) ] ;
    
70. 
    
71.         OHLCPeriodsAgoGen = 1 ;
    
72.         end ;
    
73. 
    
74.                                                                                  
    
75.                                                             
    
76. if false then
    
77.         Value1 = OHLCPeriodsAgoGen[1] ;

复制代码