龙听期货论坛's Archiver

C
+
+
版
量
化		 微信： QQ：

龙听 发表于 2022-11-3 13:36

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

[code]
inputs:
        Length( 7 ),
        MaxConsolIndex( 1.5 ),
        BarsPast( 5 ),
        DrawLines( true ),
        DrawExtensions( true ),
        Color1( Red ),
        Color2( Magenta ) ;                                                            
                                     

variables:
        var0( Length - 1 ),
        var1( 0 ),
        var2( 0 ),
        var3( 0 ),
        var4( 0 ),
        var5( Color2 ),
        var6( 0 ),
        var7( 0 ) ;

Value1 = Pennant( Length, MaxConsolIndex, BarsPast, var1, var2,
var3, var4 ) ;

if Value1 = 1 then
        begin
                                     
        if var5 = Color2 then
                var5 = Color1
        else
                var5 = Color2 ;
        if DrawLines then
                begin
                var6 = TL_New( Date[var0], Time[var0], var1, Date,
                 Time, var2 ) ;
                TL_SetExtLeft( var6, false ) ;
                TL_SetExtRight( var6, false ) ;
                TL_SetColor( var6, var5 ) ;
                var7 = TL_New( Date[var0], Time[var0], var3, Date,
                 Time, var4 ) ;
                TL_SetExtLeft( var7, false ) ;
                TL_SetExtRight( var7, false ) ;
                TL_SetColor( var7, var5 ) ;
                end ;
        end
else
begin
condition1 = Value1 = 2 or Value1 = 3 ;
if condition1 then
        begin
        if DrawLines then
                begin
                TL_SetSize( var6, 2 ) ;
                TL_SetSize( var7, 2 ) ;
                end ;
        if Value1 = 2 then
                Plot1( High, "PenBrkoutUp" )
        else if Value1 = 3 then
                Plot2( Low, "PenBrkoutDn" ) ;
        end ;
end;
if DrawExtensions then
        begin
        if var2 > 0 then
                Plot3( var2, "HiExt", var5 ) ;
        if var4 > 0 then
                Plot4( var4, "LoExt", var5 ) ;
        end ;

[/code]

页: [1]