【Price Reversal】

龙听

1. inputs:
   
2.         NumDays( 3 ),                                                                     
   
3.                                                                    
   
4.         MinConsolIndex( 2.25 ),                                                      
   
5.                                                          
   
6.         FinalRangeFactor( 1 ),                                                
   
7.         RevCriteria( 1 ),                                               
   
8.                                     
   
9.         GapSizeFactor( .2 ),                                                            
   
10.                                                           
    
11.         HiLineColor( Magenta ),
    
12.         LoLineColor( LightGray ) ;
    
13. 
    
14. variables:
    
15.         var0( 0 ),
    
16.         var1( 0 ),
    
17.         var2( 0 ),
    
18.         var3( 0 ),
    
19.         var4( 0 ),
    
20.         var5( 0 ) ;
    
21. 
    
22. arrays:
    
23.         arr0[ 12, 100 ]( 0 ),
    
24.         arr1[3]( 0 ) ;
    
25. 
    
26. Value1 = RS_DailyDataArray( NumDays, arr0, var0, arr1 ) ;
    
27. 
    
28. condition1 = CurrentBar = 1 or Date <> Date[1] ;
    
29. if condition1 then
    
30.         begin
    
31.         Value2 = RS_TrueExtremes( NumDays, arr0, var0, var1, var2,
    
32.          var3 ) ;
    
33.         Value3 = RS_PriceExtension( NumDays, MinConsolIndex, FinalRangeFactor,
    
34.          var1, var2, var3, arr0, var0 ) ;
    
35.         end ;
    
36. 
    
37. Value4 = RS_ReversalPatterns( Value3, RevCriteria, GapSizeFactor, arr0, var0,
    
38. arr1, var4, var5 ) ;
    
39. 
    
40. if Value3 = 1 then
    
41.         begin
    
42.         Plot1( High, "Ext" ) ;
    
43.         if var4 = 1 then
    
44.                 begin
    
45.                 Plot2( Close, "Setup" ) ;
    
46.                 if var5 > 0 then
    
47.                         Plot3( Low, "Trigger" ) ;
    
48.                 end ;
    
49.         end
    
50. else if Value3 = 2 then
    
51.         begin
    
52.         Plot1( Low, "Ext" ) ;
    
53.         if var4 = 1 then
    
54.                 begin
    
55.                 Plot2( Close, "Setup" ) ;
    
56.                 if var5 > 0 then
    
57.                         Plot3( High, "Trigger" ) ;
    
58.                 end ;
    
59.         end ;
    
60. 
    
61. condition1 = Mod( CurrentBar, 2 ) = 0 ;
    
62. if condition1 then
    
63.         Plot4( var1, "HiLoLines", HiLineColor )
    
64. else
    
65.         Plot4( var2, "HiLoLines", LoLineColor )
    
66. 
    
67. 
    
68.                                                                                     
    
69.                                                                                     
    
70.                            

复制代码