【三角收敛/突破(Pennant Brkout)】

1. inputs:
   
2.         Length( 7 ),
   
3.         MaxConsolIndex( 1.5 ),
   
4.         BarsPast( 5 ),
   
5.         DrawLines( true ),
   
6.         DrawExtensions( true ),
   
7.         Color1( Red ),
   
8.         Color2( Magenta ) ;                                                            
   
9.                                      
   
10. 
    
11. variables:
    
12.         var0( Length - 1 ),
    
13.         var1( 0 ),
    
14.         var2( 0 ),
    
15.         var3( 0 ),
    
16.         var4( 0 ),
    
17.         var5( Color2 ),
    
18.         var6( 0 ),
    
19.         var7( 0 ) ;
    
20. 
    
21. Value1 = Pennant( Length, MaxConsolIndex, BarsPast, var1, var2,
    
22. var3, var4 ) ;
    
23. 
    
24. if Value1 = 1 then
    
25.         begin
    
26.                                      
    
27.         if var5 = Color2 then
    
28.                 var5 = Color1
    
29.         else
    
30.                 var5 = Color2 ;
    
31.         if DrawLines then
    
32.                 begin
    
33.                 var6 = TL_New( Date[var0], Time[var0], var1, Date,
    
34.                  Time, var2 ) ;
    
35.                 TL_SetExtLeft( var6, false ) ;
    
36.                 TL_SetExtRight( var6, false ) ;
    
37.                 TL_SetColor( var6, var5 ) ;
    
38.                 var7 = TL_New( Date[var0], Time[var0], var3, Date,
    
39.                  Time, var4 ) ;
    
40.                 TL_SetExtLeft( var7, false ) ;
    
41.                 TL_SetExtRight( var7, false ) ;
    
42.                 TL_SetColor( var7, var5 ) ;
    
43.                 end ;
    
44.         end
    
45. else
    
46. begin
    
47. condition1 = Value1 = 2 or Value1 = 3 ;
    
48. if condition1 then
    
49.         begin
    
50.         if DrawLines then
    
51.                 begin
    
52.                 TL_SetSize( var6, 2 ) ;
    
53.                 TL_SetSize( var7, 2 ) ;
    
54.                 end ;
    
55.         if Value1 = 2 then
    
56.                 Plot1( High, "PenBrkoutUp" )
    
57.         else if Value1 = 3 then
    
58.                 Plot2( Low, "PenBrkoutDn" ) ;
    
59.         end ;
    
60. end;
    
61. if DrawExtensions then
    
62.         begin
    
63.         if var2 > 0 then
    
64.                 Plot3( var2, "HiExt", var5 ) ;
    
65.         if var4 > 0 then
    
66.                 Plot4( var4, "LoExt", var5 ) ;
    
67.         end ;

复制代码