【RS_ReversalPatterns】

1. inputs:
   
2.         RevDirection( numericsimple ),                                          
   
3.         RevCriteria( numericsimple ),                                   
   
4.         GapSizeFactor( numericsimple ),                                                  
   
5.                                                                    
   
6.         DataArray[ Twelve, MaxNumDays ]( numericarray ),
   
7.         Index( numericsimple ),
   
8.         SubArray[ Three ]( numericarray ),
   
9.         oSetup( numericref ),
   
10.         oTrigger( numericref ) ;
    
11. 
    
12. variables:
    
13.         var0( false ),
    
14.         var1( 0 ),
    
15.         var2( 0 ),
    
16.         var3( 0 ),
    
17. 
    
18.         var4( 0 ),
    
19.         var5( 0 ),
    
20.         var6( 0 ),
    
21.         var7( 0 ),
    
22.         var8( 0 ),
    
23.         var9( 0 ),
    
24. 
    
25.         var10( 0 ),
    
26.         var11( 0 ),
    
27.         var12( 0 ),
    
28.         var13( 0 ),
    
29.         var14( 0 ),
    
30. 
    
31.         var15( 0 ),
    
32.         var16( 0 ),
    
33.         var17( 0 ),
    
34. 
    
35.         var18( false ),
    
36.         var19( 0 ),
    
37.         var20( 0 ) ;
    
38. 
    
39. var0 = CurrentBar = 1 or Date <> Date[1] ;
    
40. 
    
41. if var0 then
    
42.         begin
    
43.         var1 = MaxNumDays + 1 ;
    
44.         var2 = Mod( Index + 1, var1 ) ;
    
45.         var3 = Mod( Index + 2, var1 ) ;
    
46.         var4 = DataArray[ 1, var2 ] ;
    
47.         var5 = DataArray[ 2, var2 ] ;
    
48.         var6 = DataArray[ 3, var2 ] ;
    
49.         var7 = DataArray[ 4, var2 ] ;
    
50.         var8 = DataArray[ 4, var3 ] ;
    
51.         var9 = DataArray[ 9, var2 ] ;
    
52. 
    
53.         var10 = var7 - var4 ;
    
54.         var11 = var8 - DataArray[ 1, var3 ] ;
    
55.         var12 = MaxList( var7, var4 ) ;
    
56.         var13 = MinList( var7, var4 ) ;
    
57.         var14 = ( var5 + var6 ) * .5 ;
    
58.         var15 = DataArray[ 1, Index ] ;
    
59.         end ;
    
60. 
    
61. var16 = DataArray[ 2, Index ] ;
    
62. var17 = DataArray[ 3, Index ] ;
    
63. 
    
64. if var19 > 0 then
    
65.         begin
    
66.         var18 = false ;
    
67.         var19 = 0 ;
    
68.         end ;
    
69. 
    
70.                                                                                        
    
71.                                                                   
    
72. 
    
73. if RevCriteria = 1 then
    
74.         begin
    
75.         if RevDirection = 1 then
    
76.                 begin
    
77.                 if var0 then
    
78.                         begin
    
79.                         var20 = var15 - var5 ;
    
80.                         var18 =  var10 > 0 and var20 > var9 *
    
81.                          GapSizeFactor  ;
    
82.                         end ;
    
83.                 condition1 = var18 and ( var16 - var15 >= var20 * .5 or IffLogic(
    
84.                  DataArray[ 12, Index ] = SubArray[3], SubArray[2] < var5, false ) ) ;
    
85.                  
    
86.                 if condition1 then
    
87.                         var18 = false ;
    
88.                 if var18 then
    
89.                         var19 =  Iff( Low < var5, var5, 0 ) ;
    
90.                 end
    
91.         else if RevDirection = 2 then
    
92.                 begin
    
93.                 if var0 then
    
94.                         begin
    
95.                         var20 = var6 - var15 ;
    
96.                         var18 =  var10 < 0 and var20 > var9 *
    
97.                          GapSizeFactor  ;
    
98.                         end ;
    
99.                 condition1 = var18 and ( var15 - var17 >= var20 * .5 or IffLogic(
    
100.                  DataArray[ 12, Index ] = SubArray[3], SubArray[1] > var6, false ) ) ;
     
101.                  
     
102.                 if condition1 then
     
103.                         var18 = false ;
     
104.                 if var18 then
     
105.                         var19 = Iff( High > var6, var6, 0 ) ;
     
106.                 end ;
     
107.         end
     
108. else if RevCriteria = 2 then
     
109.         begin
     
110.         if RevDirection = 1 then
     
111.                 begin
     
112.                 if var0 then
     
113.                         var18 = var11 > 0 and var12 <= var14
     
114.                          and var13 >= var8 ;
     
115.                 condition1 = var18 and IffLogic( DataArray[ 12, Index ] = SubArray[3], SubArray[2] <
     
116.                  var6, false ) ;
     
117.                 if condition1 then
     
118.                         var18 = false ;
     
119.                 if var18 then
     
120.                         var19 = Iff( Low < var6, var6, 0 ) ;
     
121.                 end
     
122.         else if RevDirection = 2 then
     
123.                 begin
     
124.                 if var0 then
     
125.                         var18 = var11 < 0 and var13 >= var14
     
126.                          and var12 <= var8 ;
     
127.                 condition1 = var18 and IffLogic( DataArray[ 12, Index ] = SubArray[3], SubArray[1] >
     
128.                  var5, false ) ;
     
129.                 if condition1 then
     
130.                         var18 = false ;
     
131.                 if var18 then
     
132.                         var19 = Iff( High > var5, var5, 0 ) ;
     
133.                 end ;
     
134.         end ;
     
135. 
     
136. oSetup = Iff( var18, 1, 0 ) ;
     
137. oTrigger = var19 ;
     
138. 
     
139. RS_ReversalPatterns = 1 ;

复制代码