【PivotReversalGen】

1. inputs:
   
2.         MinRStren( numericsimple ),
   
3.         MaxRStren( numericsimple ),
   
4.         LRFactor( numericsimple ),
   
5.         HiLo( numericsimple ),                                                        
   
6.                                  
   
7.         DrawLines( truefalsesimple ),
   
8.         LinesColor( numericsimple ),
   
9.         oPivotPriceValue( numericref ),
   
10.         oPivotRStren( numericref ),
    
11.         oPivotLStren( numericref ) ;
    
12. 
    
13. variables:
    
14.         var0( 0 ),
    
15.         var1( 0 ),
    
16.         var2( 0 ),
    
17.         var3( 0 ),
    
18.         var4( 0 ),
    
19.         var5( 0 ),
    
20.         var6( 0 ),
    
21.         var7( 0 ),
    
22.         var8( 0 ),
    
23.         var9( 0 ),
    
24.         var10( 0 ) ;
    
25. 
    
26. arrays:
    
27.         arr0[ 1001, 4 ]( 0 ) ;
    
28.                            
    
29.                             
    
30.                       
    
31.                         
    
32. 
    
33. if HiLo = 1 then
    
34.         var0 = High
    
35. else if HiLo = -1 then
    
36.         var0 = Low ;
    
37. 
    
38. var1 = CurrentBar ;
    
39. var2 = 0 ;
    
40. PivotReversalGen = 0 ;
    
41. 
    
42. if var1 = 1 then
    
43.         begin
    
44.         arr0[ 1001, 1 ] = HiLo * 10000000 ;
    
45.         arr0[ 1000, 1 ] = var0 ;
    
46.         arr0[ 1000, 2 ] = 1 ;
    
47.         arr0[ 1000, 3 ] = Date ;
    
48.         arr0[ 1000, 4 ] = Time ;
    
49.         var3 = 1000 ;
    
50.         var4 = 1001 ;
    
51.         end
    
52. else for var5 = var3 to var4
    
53.         begin
    
54.         var6 = var5 + 1 ;
    
55.         var7 = var5 - 1 ;
    
56.         condition1 = Hilo * var0 > HiLo * arr0[ var5, 1 ] ;
    
57.         if condition1 then
    
58.                                                     
    
59.                 begin
    
60.                 var8 = var1 - arr0[ var5, 2 ] - 1 ;
    
61.                 var9 = arr0[ var5, 2 ] - arr0[ var6, 2 ] - 1 ;
    
62.                 condition1 = var8 >= MinRStren and var8 <= MaxRStren and IffLogic( LRFactor > 0,
    
63.                  var9 > var8 * LRFactor, var9 >= MinRStren ) ;
    
64.                 if condition1 then
    
65.                         begin
    
66.                         var2 = var2 + 1 ;
    
67.                         if var2 = 1 then
    
68.                                 begin
    
69.                                 oPivotPriceValue = arr0[ var5, 1 ] ;
    
70.                                 oPivotRStren = var8 ;
    
71.                                 oPivotLStren = var9 ;
    
72.                                 PivotReversalGen = 1 ;
    
73.                                 end ;
    
74.                         if DrawLines then
    
75.                                 begin
    
76.                                 var10 = TL_New( arr0[ var5, 3 ], arr0[ var5, 4 ], arr0[ var5,
    
77.                                  1 ], Date, Time, arr0[ var5, 1 ] ) ;
    
78.                                 TL_SetColor( var10, LinesColor ) ;
    
79.                                 TL_SetExtLeft( var10, false ) ;
    
80.                                 TL_SetExtRight( var10, false ) ;
    
81.                                 end ;
    
82.                         end ;
    
83.                 end
    
84.         else
    
85.                 begin
    
86.                 arr0[ var7, 1 ] = var0 ;
    
87.                 arr0[ var7, 2 ] = var1 ;
    
88.                 arr0[ var7, 3 ] = Date ;
    
89.                 arr0[ var7, 4 ] = Time ;
    
90.                 var3 = var7 ;
    
91.                 var5 = var4 ;                                 
    
92.                 end ;
    
93.         end ;
    
94. 
    
95.                                                                                     
    
96.                               
    
97. if false then
    
98.         Value1 = PivotReversalGen[1] ;

复制代码