【OHLCPeriodsAgo】

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

复制代码