【N日的新高/低(New N-Day Hilo)】

1. inputs:
   
2.         NumDays( 7 ),
   
3.         NewQualDays( 0 ),
   
4.         OldQualDays( 0 ) ;
   
5. 
   
6. variables:
   
7.         var0( 0 ),
   
8.         var1( 0 ),
   
9.         var2( 0 ),
   
10.         var3( 0 ),
    
11.         var4( 0 ),
    
12.         var5( 0 ),
    
13.         var6( false ),
    
14.         var7( false ),
    
15.         var8( 0 ),
    
16.         var9( 0 ) ;
    
17. 
    
18. arrays:
    
19.         arr0[ 12, 100 ]( 0 ),
    
20.         arr1[3]( 0 ) ;
    
21. 
    
22. Value1 = RS_DailyDataArray( NumDays, arr0, var0, arr1 ) ;
    
23. 
    
24. condition1 = CurrentBar = 1 or Date <> Date[1] ;
    
25. if condition1 then
    
26.         begin
    
27.         Value2 = RS_Extremes( NumDays, arr0, var0, var1, var2,
    
28.          var3, var4 ) ;
    
29.         var5 = NumDays - OldQualDays ;
    
30.         var6 = var2 <= var5 and var2 > NewQualDays ;
    
31.         var7 = var4 <= var5 and var4 > NewQualDays ;
    
32.         end ;
    
33. 
    
34.                                                                               
    
35.                                                                                     
    
36. condition1 = var6 and High > var1
    
37.         and IffLogic( arr0[ 12, var0 ] = arr1[3], arr1[1] <= var1, true );                           
    
38. if condition1 then
    
39.         begin
    
40.         if Date <> var8 then
    
41.                 Plot1( High, "NewNDayHi" ) ;
    
42.         var8 = Date ;
    
43.         end
    
44. else
    
45. begin
    
46. condition1 = var7 and Low < var3 and IffLogic( arr0[ 12, var0 ] =
    
47.          arr1[3], arr1[2] >= var3, true ) ;
    
48. if condition1 then
    
49.         begin
    
50.         if Date <> var9 then
    
51.                 Plot2( Low, "NewNDayLo" ) ;
    
52.         var9 = Date ;
    
53.         end ;
    
54. end;
    
55. Plot3( var1, "HiLine" ) ;
    
56. Plot4( var3, "LoLine" ) ;
    
57. if var6 then
    
58.         SetPlotWidth( 3, 2 ) ;
    
59. if var7 then
    
60.         SetPlotWidth( 4, 2 ) ;

复制代码