【ZigZag Pnts】

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

复制代码