【ZigZag %】

1. inputs:
   
2.         Price( Close ),
   
3.         RetracePct( 5 ),
   
4.         LineColor( Yellow ),
   
5.         LineWidth( 1 ) ;
   
6. 
   
7. variables:
   
8.         var0( 0 ),
   
9.         var1( Price ),                                         
   
10.         var2( Date ),                                         
    
11.         var3( Time ),                                         
    
12.         var4( 0 ),                                                         
    
13.         var5( 1 + RetracePct * .01 ),
    
14.         var6( 1 - RetracePct * .01 ),
    
15.         var7( false ),
    
16.         var8( false ),
    
17.         var9( false ),
    
18.         var10( 0 ) ;
    
19. 
    
20.                                                                               
    
21. 
    
22. var0 = SwingHigh( 1, Price, 1, 2 ) ;
    
23. if var0  <> -1 then
    
24.         begin
    
25.                 condition1 = var4 <= 0 and var0 >= var1 * var5 ;
    
26.                 if condition1 then                                                    
    
27.                 begin
    
28.                         var7 = true ;
    
29.                         var8 = true ;
    
30.                         var4 = 1 ;
    
31.                         end
    
32.                 else
    
33.                 begin
    
34.                         condition1 = var4 = 1 and var0 >= var1 ;
    
35.                         if condition1 then
    
36.                                                                 
    
37.                         begin
    
38.                                 var7 = true ;
    
39.                                 var9 = true ;
    
40.                         end ;
    
41.                 end;
    
42.         end
    
43. else
    
44.         begin
    
45.         var0 = SwingLow( 1, Price, 1, 2 ) ;
    
46.         if var0 <> -1 then
    
47.                 begin
    
48.                         condition1 = var4 >= 0 and var0 <= var1 * var6 ;
    
49.                         if condition1 then
    
50.                                                             
    
51.                                 begin
    
52.                                 var7 = true ;
    
53.                                 var8 = true ;
    
54.                                 var4 = -1 ;
    
55.                                 end
    
56.                         else
    
57.                         begin
    
58.                                 condition1 = var4 = -1 and var0 <= var1 ;
    
59.                                 if condition1 then                                                                 
    
60.                                 begin
    
61.                                 var7 = true;
    
62.                                 var9 = true ;
    
63.                                 end ;
    
64.                         end;
    
65.                 end ;
    
66.         end ;
    
67. 
    
68. if var7 then
    
69.                                               
    
70.         begin
    
71.         var1 = var0 ;
    
72.         var2 = Date[1] ;
    
73.         var3 = Time[1] ;
    
74.         var7 = false ;
    
75.         end ;
    
76. 
    
77. if var8 then
    
78.                                      
    
79.         begin
    
80.         var10 = TL_New( var2, var3, var1, var2[1], var3[1],
    
81.          var1[1] ) ;
    
82.         TL_SetExtLeft( var10, false ) ;
    
83.         TL_SetExtRight( var10, false ) ;
    
84.         TL_SetSize( var10, LineWidth ) ;
    
85.         TL_SetColor( var10, LineColor ) ;
    
86.         var8 = false ;
    
87.         end
    
88. else if var9 then
    
89.                                              
    
90.         begin
    
91.         TL_SetEnd( var10, var2, var3, var1 ) ;
    
92.         var9 = false ;
    
93.         end ;

复制代码