请教pivot函数代码

jeckforlete

最近在通过看用户函数学习TB，pivot函数的代码感觉很绕，看不明白是怎么算出来的。麻烦给加点注释好吗？完全没注释看得很晕啊。谢谢谢谢！！！

1. Params
   
2. NumericSeries Price(1);
   
3. Numeric Length(10);
   
4. Numeric LeftStrength(1);
   
5. Numeric RightStrength(1);
   
6. Numeric Instance(1);
   
7. Numeric HiLo(1);
   
8. NumericRef PivotPrice;
   
9. NumericRef PivotBar;
   
10. Vars
    
11. Numeric CandidatePrice( 0 );
    
12. Numeric LengthCntr( 0 );
    
13. Numeric StrengthCntr( 0 );
    
14. Numeric InstanceCntr( 0 );
    
15. Bool PivotTest( False);
    
16. Bool InstanceTest( False ) ;
    
17. Begin
    
18. InstanceCntr = 0 ;
    
19. InstanceTest = False ;
    
20. LengthCntr = RightStrength ;
    
21. While (LengthCntr < Length && (!InstanceTest ))
    
22. {
    
23.   CandidatePrice = Price[LengthCntr] ;
    
24.   PivotTest = True ;
    
25.   StrengthCntr = LengthCntr + 1 ;
    
26.   
    
27.   While (PivotTest && StrengthCntr - LengthCntr <= LeftStrength )
    
28.   {
    
29.    If (( HiLo == 1 And CandidatePrice < Price[StrengthCntr] ) or ( HiLo == -1 And CandidatePrice > Price[StrengthCntr] ))
    
30.     PivotTest = False;
    
31.    Else
    
32.     StrengthCntr = StrengthCntr + 1 ;
    
33.   }
    
34.   
    
35.   StrengthCntr = LengthCntr - 1 ;
    
36.   While (PivotTest && (LengthCntr - StrengthCntr) <= RightStrength )
    
37.   {
    
38.    If (( HiLo == 1 And CandidatePrice <= Price[StrengthCntr] ) or ( HiLo == -1 And CandidatePrice >= Price[StrengthCntr] ))
    
39.     PivotTest = False;
    
40.    Else
    
41.     StrengthCntr = StrengthCntr - 1 ;
    
42.   }
    
43.   
    
44.   If (PivotTest)  
    
45.    InstanceCntr = InstanceCntr + 1 ;
    
46.   If (InstanceCntr == Instance)
    
47.    InstanceTest = True;
    
48.   Else
    
49.    LengthCntr = LengthCntr + 1 ;
    
50. }
    
51. 
    
52. If (InstanceTest )
    
53. {
    
54.   PivotPrice = CandidatePrice ;
    
55.   PivotBar = LengthCntr ;
    
56.   Return True;
    
57. }Else
    
58. {
    
59.   PivotPrice = -1 ;
    
60.   PivotBar = -1 ;
    
61.   Return False;  
    
62. }
    
63. End

复制代码

caobing

你看明白了吗？我也是刚开始研究，看了好几天也没有看明白怎么回事。继续加油。