【Pivot】

1. inputs:
   
2.         PriceValue( numericseries ),
   
3.         Len( numericsimple ),
   
4.         LeftStrength( numericsimple ),
   
5.         RightStrength( numericsimple ),
   
6.         Instance( numericsimple ),
   
7.         HiLo( numericsimple ),                                                      
   
8.         oPivotPriceValue( numericref ),
   
9.         oPivotBar( numericref ) ;
   
10. 
    
11. variables:
    
12.         var0( 0 ),
    
13.         var1( 0 ),
    
14.         var2( 0 ),
    
15.         var3( 0 ),
    
16.         var4( false ),
    
17.         var5( false ) ;
    
18. 
    
19. var3 = 0 ;
    
20. var5 = false ;
    
21. var1 = RightStrength ;
    
22. while var1 < Len and var5 = false
    
23.         begin
    
24.                                                                       
    
25.                                
    
26.         var0 = PriceValue[var1] ;
    
27.         var4 = true ;
    
28.                                                                 
    
29.         var2 = var1 + 1 ;
    
30.         while var4 = true and var2 - var1 <= LeftStrength
    
31.                 begin
    
32.                 condition1 = ( HiLo = 1 and var0 < PriceValue[var2] )
    
33.                  or ( HiLo = -1 and var0 > PriceValue[var2] ) ;
    
34.                  
    
35.                 if condition1 then
    
36.                         var4 = false
    
37.                 else
    
38.                         var2 = var2 + 1 ;
    
39.                 end ;
    
40.                                                                    
    
41.                                         
    
42.         var2 = var1 - 1 ;
    
43.         while var4 = true and var1 - var2 <= RightStrength
    
44.                 begin
    
45.                 condition1 = ( HiLo = 1 and var0 <= PriceValue[var2] )
    
46.                  or ( HiLo = -1 and var0 >= PriceValue[var2] ) ;
    
47.                  
    
48.                 if condition1 then
    
49.                         var4 = false
    
50.                 else
    
51.                         var2 = var2 - 1 ;
    
52.                 end ;
    
53.                                                                                
    
54.         if var4 = true then
    
55.                 var3 = var3 + 1 ;
    
56.                                                                                      
    
57.                                                                                      
    
58.         if var3 = Instance then
    
59.                 var5 = true
    
60.         else
    
61.                 var1 = var1 + 1 ;
    
62.         end ;
    
63. if var5 = true then
    
64.         begin
    
65.         oPivotPriceValue = var0 ;
    
66.         oPivotBar = var1 + ExecOffset ;
    
67.         Pivot = 1 ;                                    
    
68.         end
    
69. else
    
70.         begin
    
71.         oPivotPriceValue = -1 ;
    
72.         oPivotBar = -1 ;
    
73.         Pivot = -1 ;                                          
    
74.         end ;

复制代码