【New Intraday HiLo】

1. inputs:
   
2.         NumDays( 3 ),
   
3.         RequireReversalGap( true ),
   
4.         BarsBetween( 10 ),
   
5.         StartBarTime( 1000 ),
   
6.         EndBarTime( 1430 ) ;
   
7. 
   
8. variables:
   
9.         var0( NumDays + 2 ),
   
10.         var1( 0 ),
    
11.         var2( 0 ),
    
12.         var3( 0 ),
    
13.         var4( 0 ),
    
14.         var5( false ),
    
15.         var6( false ),
    
16.         var7( BarsBetween - 1 ),
    
17.         var8( 0 ),
    
18.         var9( 0 ),
    
19.         var10( 0 ),
    
20.         var11( 0 ),
    
21.         var12( false ),
    
22.         var13( false ),
    
23.         var14( 0 ),
    
24.         var15( 0 ),
    
25.         var16( 0 ),
    
26.         var17( false ),
    
27.         var18( false ),
    
28.         var19( false ),
    
29.         var20( false ),
    
30.         var21( false ),
    
31.         var22( false ),
    
32.         var23( White ),
    
33.         var24( Yellow ),
    
34.         var25( Cyan ),
    
35.         var26( DarkGray ),
    
36.         var27( Blue ),
    
37.         var28( LightGray ) ;
    
38. 
    
39. arrays:
    
40.         arr0[ 12, 100 ]( 0 ),
    
41.         arr1[3]( 0 ) ;
    
42. 
    
43. Value1 = RS_DailyDataArray( var0, arr0, var1, arr1 ) ;
    
44. 
    
45. var2 = CurrentBar ;
    
46. var3 = var2 - arr0[ 10, var1 ]                 ;
    
47. var4 = var2 - arr0[ 11, var1 ]                 ;
    
48. var5 = var3 >= var7 ;
    
49. var6 = var4 >= var7 ;
    
50. 
    
51. if RequireReversalGap then
    
52.         begin
    
53.         condition1 = CurrentBar = 1 or Date <> Date[1] ;
    
54.         if condition1 then
    
55.                 begin
    
56.                 Value2 = RS_Extremes( NumDays, arr0, var1, var8,
    
57.                  var9, var10, var11 ) ;
    
58.                 var12 = arr0[ 1, var1 ] > var8 ;
    
59.                 var13 = arr0[ 1, var1 ] < var10 ;
    
60.                 var14 = RS_Average( 6, NumDays, 2, arr0, var1 ) ;
    
61.                 var15 = RS_Average( 6, NumDays, 1, arr0, var1 ) ;
    
62.                 var16 = RS_Average( 6, NumDays, 0, arr0, var1 ) ;
    
63.                 var17 = var16 > var15 and var15 > var14 ;
    
64.                 var18 = var16 < var15 and var15 < var14 ;
    
65.                 var19 = var18 and var12 ;
    
66.                 var20 = var17 and var13 ;
    
67.                 end ;
    
68.         end
    
69. else
    
70.         begin
    
71.         var19 = true ;
    
72.         var20 = true ;
    
73.         end ;
    
74. 
    
75. if Date = Date[1] then
    
76.         begin
    
77.         var21 = var3 = 0 and var5[1] and var19 ;
    
78.         var22 = var4 = 0 and var6[1] and var20 ;
    
79.         if var21 and var22 then
    
80.                 Plot1( Close, "NewHiLo", var23 )
    
81.         else if var21 then
    
82.                 Plot1( High, "NewHiLo", var24 )
    
83.         else if var22 then
    
84.                 Plot1( Low, "NewHiLo", var25 ) ;
    
85.         end ;
    
86. condition1 = Time < StartBarTime or Time > EndBarTime ;
    
87. if condition1 then
    
88.         SetPlotColor( 1, var26 ) ;
    
89. 
    
90. if RequireReversalGap then
    
91.         if var19 then
    
92.                 Plot2( Close, "RevGap", var27 )
    
93.         else if var20 then
    
94.                 Plot2( Close, "RevGap", var28 ) ;
    
95. 
    
96. Plot3( arr0[ 2, var1 ], "HiLine" ) ;
    
97. Plot4( arr0[ 3, var1 ], "LoLine" ) ;
    
98. if var5 then
    
99.         SetPlotWidth( 3, 2 ) ;
    
100. if var6 then
     
101.         SetPlotWidth( 4, 2 ) ;

复制代码