半自動的趨勢線交易要如何做？

lwhuang

人工定2點連成一條趨勢線，以多單來說，沒跌破就續抱，跌破就賣出，這要怎麼做到呢？

珮詩

珮詩

用兩條線 年賺八成
類似這種的嗎?!

lwhuang

不是2條線喔，是一條線

googleandy

程式碼只有一行, 填入兩點的時間和價格即可.

value1= TL_New(Date,0908,8329,Date,1142,8291);

lwhuang

Help找不到TL_New這個function耶

lwhuang

我google的結果, 是TS的函數，有amibroker的嗎？

lcc0809

用斜率去算，就能知道當日的趨勢線價格

手動畫點就知道A點價格 & B點價格，也能知道A <==> B 距離。

斜率 = (A - B)  / 距離

因為我不懂amibroker，所以只會笨方法...。

lwhuang

lcc0809 發表於 13-10-28 18:00
用斜率去算，就能知道當日的趨勢線價格

手動畫點就知道A點價格 & B點價格，也能知道A  B 距離。

這個不是笨方法，是好複雜的方法...要是真的沒有簡單法，可能只有這樣了

joshsmi

googleandy 發表於 13-10-25 16:34
程式碼只有一行, 填入兩點的時間和價格即可.

value1= TL_New(Date,0908,8329,Date,1142,8291);

What's that Power Language junk got to do with AmiBroker????

The same can be done in AmiBroker with simple functions either with AFL or in dll plugin.

Here is AFL equivalent to that TS trendline function

// Copyright joshsmi, Oct 2013

function dntn2dt( dn, tn )
{ // Datenum() + Timenum() to DateTime()
  return DateTimeConvert( 2, dn, tn );
}

function TL_New( dn1, tn1, startval, dn2, tn2, endval )
{ // trendline function
    dt      = DateTime();
    bi      = BarIndex();

    startdt = dt == dntn2dt( dn1, tn1 );
    enddt   = dt == dntn2dt( dn2, tn2 );

    x0      = LastValue( ValueWhen( startdt, bi ) );
    x1      = LastValue( ValueWhen( enddt, bi ) );
    y0      = LastValue( ValueWhen( startdt, startval ) );
    y1      = LastValue( ValueWhen( enddt, endval ) );

    Line    = LineArray( x0, y0, x1, y1, 1, True );

    return Line;
}

Plot( C, "C", colorWhite, styleCandle );
Plot( TL_New( 1131028, 090000, L, 1131028, 130500, L ), "Trend line", colorRed );

And this is how it looks

joshsmi

If you want to use buy, sell, short, cover signals on drawn trendlines
then you can also use Study() function. See in the manual.


su = Study( "SU", GetChartID() );// drawn support trendline, see manual on how to connect
Buy = LLV( C, 20 ) > su AND AlmostEqual( C, su, 10000 ); //10000 -> equal max. 0.1%

nsmvjmsojki

推一個................讚~~

joshsmi

Here is and advanced version using range markers and keystrokes.

So for Support trend line you press and hold key "L" and then choose two range markers via mouse double-click to draw red support trendline. Then you de-activate range markers on right side of chart and press and hold key "H" and then choose two new range markers to draw green resistance trend  line.

If you want to preserve drawn trend lines after restart of AmiBroker then use persistent variables instead of static variables.



// Copyright joshsmi, Oct 2013
// don't distribute this code without permission

Version( 5.55 );

function TL_New( dn1, tn1, startval, dn2, tn2, endval )
{ // trendline function
    dt      = DateTime();
    bi      = BarIndex();

    startdt = dt == DateTimeConvert( 2, dn1, tn1 );
    enddt   = dt == DateTimeConvert( 2, dn2, tn2 );

    x0      = LastValue( ValueWhen( startdt, bi ) );
    x1      = LastValue( ValueWhen( enddt, bi ) );
    y0      = LastValue( ValueWhen( startdt, startval ) );
    y1      = LastValue( ValueWhen( enddt, endval ) );

    Line    = LineArray( x0, y0, x1, y1, 1, True );

    return Line;
}

RequestTimedRefresh( 1 );

tn      = TimeNum();
dn      = DateNum();
Chartid = NumToStr( GetChartID(), 1.0, False );

if ( ParamTrigger( "Clear trend-line(s)", "CLICK HERE" ) )
    StaticVarRemove( Chartid + "TL_new*" ); // or use persitentvarremove, see link below

// using RANGE MARKERs via mouse double-click!
// read here http://www.amibroker.com/guide/h_charting.html?
startdn = ValueWhen( BeginValue( dn ) == dn, dn );
starttn = ValueWhen( BeginValue( tn ) == tn, tn );
enddn   = ValueWhen( EndValue( dn ) == dn, dn );
endtn   = ValueWhen( EndValue( tn ) == tn, tn );


// alternatively to static variables you can use persistent varaibles to preserve lines after restart of AB
// read here http://www.amibroker.org/userkb/2007/04/24/persistent-variables/
if ( LastValue( startdn ) != dn[0] && LastValue( starttn ) != tn[0] )
{
    if ( GetAsyncKeyState( 76 ) < 0 ) // press and hold key "L" and choose range markers
    {
        StaticVarSet( Chartid + "TL_new start dn Low", startdn );
        StaticVarSet( Chartid + "TL_new start tn Low", starttn );
        StaticVarSet( Chartid + "TL_new end dn Low", enddn );
        StaticVarSet( Chartid + "TL_new end tn Low", endtn );
    }

    if ( GetAsyncKeyState( 72 ) < 0 ) // press and hold key "H" and choose range markers
    {
        StaticVarSet( Chartid + "TL_new start dn High", startdn );
        StaticVarSet( Chartid + "TL_new start tn High", starttn );
        StaticVarSet( Chartid + "TL_new end dn High", enddn );
        StaticVarSet( Chartid + "TL_new end tn High", endtn );
    }
}

startdnL = Nz( StaticVarGet( Chartid + "TL_new start dn Low"  ) );
starttnL = Nz( StaticVarGet( Chartid + "TL_new start tn Low" ) );
enddnL   = Nz( StaticVarGet( Chartid + "TL_new end dn Low" ) );
endtnL   = Nz( StaticVarGet( Chartid + "TL_new end tn Low" ) );

startdnH = Nz( StaticVarGet( Chartid + "TL_new start dn High"  ) );
starttnH = Nz( StaticVarGet( Chartid + "TL_new start tn High" ) );
enddnH   = Nz( StaticVarGet( Chartid + "TL_new end dn High" ) );
endtnH   = Nz( StaticVarGet( Chartid + "TL_new end tn High" ) );

Plot( C, "", colorWhite, styleCandle );
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.2f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));

if ( LastValue( startdnL ) != 0 )
    Plot( TL_New( startdnL, starttnL, L, enddnL, endtnL, L ), "\nSU Trend line", colorRed );

if ( LastValue( startdnH ) != 0 )
    Plot( TL_New( startdnH, starttnH, H, enddnH, endtnH, H ), "\nRE Trend line", colorBrightGreen );

joshsmi

Here is another updated code to manually draw multiple AFL code trend lines





// Copyright joshsmi, Oct 2013

Version( 5.55 );

function TL_New( dn1, tn1, startval, dn2, tn2, endval )
{ // trendline function
    dt      = DateTime();
    bi      = BarIndex();

    startdt = dt == DateTimeConvert( 2, dn1, tn1 );
    enddt   = dt == DateTimeConvert( 2, dn2, tn2 );

    x0      = LastValue( ValueWhen( startdt, bi ) );
    x1      = LastValue( ValueWhen( enddt, bi ) );
    y0      = LastValue( ValueWhen( startdt, startval ) );
    y1      = LastValue( ValueWhen( enddt, endval ) );

    Line    = LineArray( x0, y0, x1, y1, 1, True );

    return Line;
}

RequestTimedRefresh( 1 );

tn      = TimeNum();
dn      = DateNum();
Chartid = NumToStr( GetChartID(), 1.0, False );

TLnumLow  = ParamStr( "Input Support TL number", "1" );
TLnumHigh = ParamStr( "Input Resistance TL number", "1" );

if ( ParamTrigger( "Clear trend-line(s)", "CLICK HERE" ) )
    StaticVarRemove( Chartid + "TL_new*" ); // or use persitentvarremove, see link below

// using RANGE MARKERs via mouse double-click!
// read here http://www.amibroker.com/guide/h_charting.html?
startdn = ValueWhen( BeginValue( dn ) == dn, dn );
starttn = ValueWhen( BeginValue( tn ) == tn, tn );
enddn   = ValueWhen( EndValue( dn ) == dn, dn );
endtn   = ValueWhen( EndValue( tn ) == tn, tn );


// alternatively to static variables you can use persistent varaibles to preserve lines after restart of AB
// read here http://www.amibroker.org/userkb/2007/04/24/persistent-variables/
if ( LastValue( startdn ) != dn[0] && LastValue( starttn ) != tn[0] )
{
    if ( GetAsyncKeyState( 76 ) < 0 ) // press key "L" and choose range markers
    {
        StaticVarSet( Chartid + "TL_new start dn Low" + TLnumLow, startdn );
        StaticVarSet( Chartid + "TL_new start tn Low" + TLnumLow, starttn );
        StaticVarSet( Chartid + "TL_new end dn Low" + TLnumLow, enddn );
        StaticVarSet( Chartid + "TL_new end tn Low" + TLnumLow, endtn );
    }

    if ( GetAsyncKeyState( 72 ) < 0 ) // press key "H" and choose range markers
    {
        StaticVarSet( Chartid + "TL_new start dn High" + TLnumHigh, startdn );
        StaticVarSet( Chartid + "TL_new start tn High" + TLnumHigh, starttn );
        StaticVarSet( Chartid + "TL_new end dn High" + TLnumHigh, enddn );
        StaticVarSet( Chartid + "TL_new end tn High" + TLnumHigh, endtn );
    }
}

Plot( C, "", colorWhite, styleCandle );
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.2f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));

for ( i = 1; i <= 10; i++ ) // 10 trend lines each
{
    startdnL = Nz( StaticVarGet( Chartid + "TL_new start dn Low" + i ) );
    starttnL = Nz( StaticVarGet( Chartid + "TL_new start tn Low" + i ) );
    enddnL   = Nz( StaticVarGet( Chartid + "TL_new end dn Low" + i ) );
    endtnL   = Nz( StaticVarGet( Chartid + "TL_new end tn Low" + i ) );

    startdnH = Nz( StaticVarGet( Chartid + "TL_new start dn High" + i ) );
    starttnH = Nz( StaticVarGet( Chartid + "TL_new start tn High" + i ) );
    enddnH   = Nz( StaticVarGet( Chartid + "TL_new end dn High" + i ) );
    endtnH   = Nz( StaticVarGet( Chartid + "TL_new end tn High" + i ) );

    if ( LastValue( startdnL ) != 0 )
    {
        TLlow = TL_New( startdnL, starttnL, L, enddnL, endtnL, L );
        Plot( TLlow, "\nSU Trend line " + i, colorRed, styleLine | styleNoRescale );
        PlotText( "No." + i, BarCount + 10, LastValue( TLlow ), colorRed );
    }

    if ( LastValue( startdnH ) != 0 )
    {
        TLhigh = TL_New( startdnH, starttnH, H, enddnH, endtnH, H );
        Plot( TLhigh, "\nRE Trend line " + i, colorBrightGreen, styleLine | styleNoRescale );
        PlotText( "No." + i, BarCount + 10, LastValue( TLhigh ), colorBrightGreen );
    }
}