BAND BASE | AMIBROKER AFL -Multiple Trend Line AFL

- October 09, 2024

ĐƯỜNG XU HƯỚNG NHIỀU AFL CHO AMIBROKER

Multiple Trend Line AFL là một trong những hệ thống xu hướng afl tuyệt vời của amibroker. Nó tạo ra chỉ báo xu hướng siêu việt với nhiều đường xu hướng với Fibonacci, đó là lý do tại sao nó là chỉ báo xu hướng tốt nhất mãi mãi. Đúng vậy, Amibroker AFL này tạo biểu đồ giá của bạn với hai đường. Đường xu hướng dài hạn và đường xu hướng ngắn hạn. Vì nó tạo ra các đường tự động nên không cần phải vẽ thêm đường nào nữa. Ngoài ra, AFL này còn vẽ điểm Fibonacci theo hành động giá gần đây. Đây chính là sức mạnh của AFL Amibroker này.

Trong hình cũng sử dụng dải Bollinger. Để sử dụng xu hướng này, hỗ trợ kháng cự cũng được hiển thị trong hình. AFL sử dụng ba kết hợp của mã afl amibroker. Dải Bollinger, Xu hướng nhiều và điểm Fibonacci. Sử dụng các chỉ báo amibroker này là một tình huống mạnh mẽ tuyệt vời trong biểu đồ amibroker để giao dịch. Thưởng thức.

Trong hình ảnh, chúng ta thấy rất nhiều tín hiệu mua bán của amibroker. Theo hệ thống giao dịch amibroker khi Dải Bollinger và Đường xu hướng kết hợp với sự đột phá thất bại hoặc sự cố thất bại thì đó là Tín hiệu mua bán mạnh. AF này chỉ rõ bằng điểm mũi tên màu xanh lá cây và màu đỏ. Ngoài ra, chỉ báo siêu xu hướng này sử dụng điểm Fibonacci có nghĩa là nhà giao dịch có thể dễ dàng nhận ra điểm nào giá quay lại.

// Author : KrT group

// Uploader : www.pipschart.com

// E-mail : info@pipschart.com

// Amibroker Blog : www.pipschart.com/amibroker

// Amibroker AFL : https://pipschart.com/latest-amibroker-afl-collection-download

// Origin : Modified & Collected from different sources.

//------------------------------------------------------------------------------

_SECTION_BEGIN("KrT group");

GfxSetBkMode(1);

X=750;

Y=1;

Font=10;

GfxSelectFont("Impact",Font*2.2, 550);GfxSetTextColor(colorRed);GfxTextOut("KrT group",x,y+10);

GfxSelectFont("Impact",Font*2.2, 550);GfxSetTextColor(colorGreen);GfxTextOut("RESEARCH",x+120,Y+10);

_SECTION_END();

//------------------------------------------------------------------------------

function IIR2( input, f0, f1, f2 )

{

result[ 0 ] = input[ 0 ];

result[ 1 ] = input[ 1 ];

for( i = 2; i < BarCount; i++ )

{

result[ i ] = f0 * input[ i ] +

f1 * result[ i - 1 ] +

f2 * result[ i - 2 ];

}

return result;

}

Plot( Close, "Price", colorBlack, styleCandle );

Plot( IIR2( Close, 0.2, 1.4, -0.6 ), "function example", colorRed );

_SECTION_BEGIN("Bollinger Bands");

P = ParamField("Price field",-1);

Periods = Param("Periods", 15, 2, 100, 1 );

Width = Param("Width", 2, 0, 10, 0.05 );

Color = ParamColor("Color", colorPaleBlue );

Style = ParamStyle("Style");

Plot( BBandTop( P, Periods, Width ), "BBTop" + _PARAM_VALUES(), Color, Style );

Plot( BBandBot( P, Periods, Width ), "BBBot" + _PARAM_VALUES(), Color, Style );

_SECTION_END();

//------------------------------------------------------------------------------

// Formula Name: Pivot Point with S/R Trendlines

//------------------------------------------------------------------------------

// On charts less then an hour -e.g. 5 min chart, will plot the daily Pivot

// point and the hourly pivot point as a Line. In, addition, there are 3

// adjustable support and resistance trendlines drawn using highs and the lows

// , % change is adjustable in the parameters.

//------------------------------------------------------------------------------

per1=Param("#1 S/R %", .25,.05,5,.05);

LB1=Param("#1 Lookback Period",2,2,30,1);

per2=Param("#2 S/R %", .5 ,.05,5,.05);

LB2=Param("#2 Lookback Period",2,2,30,1);

per3=Param("#3 S/R %", 2,.05,5,.05);

LB3=Param("#3 Lookback Period",2,2,30,1);

color=ParamColor("S/R Color",colorCustom11);

colorPP=ParamColor("PP Color",colorCustom12);

////////////////////////////////////////////////////////////////////////

////Pivot and Support Resistance Lines /////////////////////////////

////Plots a daily and hourly Pivot Point on 1min, 5min, etc... charts //

//////// Also, 3 adjustable S/R lines///////////////////////////////////

////////////////////////////////////////

/////////////////////////////PIVOT POINT////////////////////////////////

TimeFrameSet(inDaily);

AVGd = Ref((L + H + C),-1)/3;

" PPd:\t "+ AVGd;

TimeFrameRestore();

Plot( TimeFrameExpand(AVGd,inDaily,expandFirst),"",colorPP,styleStaircase);

TimeFrameSet(inHourly);

AVGh = Ref((L + H + C),-1)/3;

" PPh:\t "+ Avgh;

TimeFrameRestore();

Plot( TimeFrameExpand(AVGh,inHourly,expandFirst),"",colorPP,styleStaircase);

//////////////////////////S?R LINES 1/////////////////////////////////////

procedure SRlines(per,Lb)

{

ys0=LastValue(Trough(L,per,Lb));

ys1=LastValue(Trough(L,per,Lb-1));

xs0=BarCount - 1 - LastValue(TroughBars(L,per,Lb));

xs1=BarCount - 1 - LastValue(TroughBars(L,per,Lb-1));

yr0=LastValue(Peak(H,per,Lb));

yr1=LastValue(Peak(H,per,Lb-1));

xr0=BarCount - 1 - LastValue(PeakBars(H,per,Lb));

xr1=BarCount - 1 - LastValue(PeakBars(H,per,Lb-1));

sl = LineArray( xs0, ys0, xs1, ys1,1 );

rL = LineArray( xr0, yr0, xr1, yr1,1 );

Plot( sl, "S line", color,1 );

Plot( rl, "R line", color,1 );

}

//////////////////////////S?R LINES 2/////////////////////////////////////

SRlines(per1,Lb1);

SRlines(per2,Lb2);

SRlines(per3,Lb3);

farback=Param("How Far back to go",100,50,5000,10);

nBars = Param("Number of bars", 12, 5, 40);

// -- Title.

Title = Name() + " (" + StrLeft(FullName(), 15) + ") O: " + Open + ",

H: " + High + ", L: " + Low + ", C: " + Close;

// -- Plot basic candle chart

PlotOHLC(Open, High, Low, Close,

"BIdx = " + BarIndex() +

"\n" + "O = " + O + "\n"+"H = "+ H + "\n"+"L = " + L

+ "\n"+"C ",

colorWhite, styleCandle);

GraphXSpace=7;

// -- Create 0-initialized arrays the size of barcount

aHPivs = H - H;

aLPivs = L - L;

// -- More for future use, not necessary for basic plotting

aHPivHighs = H - H;

aLPivLows = L - L;

aHPivIdxs = H - H;

aLPivIdxs = L - L;

nHPivs = 0;

nLPivs = 0;

lastHPIdx = 0;

lastLPIdx = 0;

lastHPH = 0;

lastLPL = 0;

curPivBarIdx = 0;

// -- looking back from the current bar, how many bars

// back were the hhv and llv values of the previous

// n bars, etc.?

aHHVBars = HHVBars(H, nBars);

aLLVBars = LLVBars(L, nBars);

aHHV = HHV(H, nBars);

aLLV = LLV(L, nBars);

// -- Would like to set this up so pivots are calculated back from

// last visible bar to make it easy to "go back" and see the pivots

// this code would find. However, the first instance of

// _Trace output will show a value of 0

aVisBars = Status("barvisible");

nLastVisBar = LastValue(Highest(IIf(aVisBars, BarIndex(), 0)));

_TRACE("Last visible bar: " + nLastVisBar);

// -- Initialize value of curTrend

curBar = (BarCount-1);

curTrend = "";

if (aLLVBars[curBar] <

aHHVBars[curBar]) {

curTrend = "D";

}

else {

curTrend = "U";

}

// -- Loop through bars. Search for

// entirely array-based approach

// in future version

for (i=0; i<farback; i++) {

curBar = (BarCount - 1) - i;

// -- Have we identified a pivot? If trend is down...

if (aLLVBars[curBar] < aHHVBars[curBar]) {

// ... and had been up, this is a trend change

if (curTrend == "U") {

curTrend = "D";

// -- Capture pivot information

curPivBarIdx = curBar - aLLVBars[curBar];

aLPivs[curPivBarIdx] = 1;

aLPivLows[nLPivs] = L[curPivBarIdx];

aLPivIdxs[nLPivs] = curPivBarIdx;

nLPivs++;

}

// -- or current trend is up

} else {

if (curTrend == "D") {

curTrend = "U";

curPivBarIdx = curBar - aHHVBars[curBar];

aHPivs[curPivBarIdx] = 1;

aHPivHighs[nHPivs] = H[curPivBarIdx];

aHPivIdxs[nHPivs] = curPivBarIdx;

nHPivs++;

}

// -- If curTrend is up...else...

}

// -- loop through bars

}

// -- Basic attempt to add a pivot this logic may have missed

// -- OK, now I want to look at last two pivots. If the most

// recent low pivot is after the last high, I could

// still have a high pivot that I didn't catch

// -- Start at last bar

curBar = (BarCount-1);

candIdx = 0;

candPrc = 0;

lastLPIdx = aLPivIdxs[0];

lastLPL = aLPivLows[0];

lastHPIdx = aHPivIdxs[0];

lastHPH = aHPivHighs[0];

if (lastLPIdx > lastHPIdx) {

// -- Bar and price info for candidate pivot

candIdx = curBar - aHHVBars[curBar];

candPrc = aHHV[curBar];

if (

lastHPH < candPrc AND

candIdx > lastLPIdx AND

candIdx < curBar) {

// -- OK, we'll add this as a pivot...

aHPivs[candIdx] = 1;

// ...and then rearrange elements in the

// pivot information arrays

for (j=0; j<nHPivs; j++) {

aHPivHighs[nHPivs-j] = aHPivHighs[nHPivs-

(j+1)];

aHPivIdxs[nHPivs-j] = aHPivIdxs[nHPivs-(j+1)];

}

aHPivHighs[0] = candPrc ;

aHPivIdxs[0] = candIdx;

nHPivs++;

}

} else {

// -- Bar and price info for candidate pivot

candIdx = curBar - aLLVBars[curBar];

candPrc = aLLV[curBar];

if (

lastLPL > candPrc AND

candIdx > lastHPIdx AND

candIdx < curBar) {

// -- OK, we'll add this as a pivot...

aLPivs[candIdx] = 1;

// ...and then rearrange elements in the

// pivot information arrays

for (j=0; j<nLPivs; j++) {

aLPivLows[nLPivs-j] = aLPivLows[nLPivs-(j+1)];

aLPivIdxs[nLPivs-j] = aLPivIdxs[nLPivs-(j+1)];

}

aLPivLows[0] = candPrc;

aLPivIdxs[0] = candIdx;

nLPivs++;

}

// -- Dump inventory of high pivots for debugging

for (k=0; k<nHPivs; k++) {

_TRACE("High pivot no. " + k

+ " at barindex: " + aHPivIdxs[k] + ", "

+ WriteVal(ValueWhen(BarIndex()==aHPivIdxs[k],

DateTime(), 1), formatDateTime)

+ ", " + aHPivHighs[k]);

}

// -- OK, let's plot the pivots using arrows

PlotShapes(

IIf(aHPivs==1, shapeDownArrow, shapeNone), colorRed, 0,

High, Offset=-15);

PlotShapes(

IIf(aLPivs==1, shapeUpArrow , shapeNone), colorBrightGreen, 0,

Low, Offset=-15);

_SECTION_BEGIN("Fib Retracements");

fibs = ParamToggle("Plot Fibs","Off|On",1);

pctH = Param ("Pivot Hi %", 0.325,0.001,2.0,0.002);

HiLB = Param ("Hi LookBack",1,1,BarCount-1,1);

pctL = Param ("Pivot Lo %", 0.325,0.001,2.0,0.002);

LoLB = Param ("Lo LookBack",1,1,BarCount-1,1);

Back = Param ("Extend Left = 2",1,1,500,1);

Fwd = Param("Plot Forward", 0, 0, 500, 1);

text = ParamToggle("Plot Text","Off|On",1);

hts = Param ("Text Shift", -60,-50,50,0.10);

style =ParamStyle("Line Style",styleLine,styleNoLabel);

x = BarIndex();

pRp = PeakBars( H, pctH, 1) == 0;

yRp0 = SelectedValue(ValueWhen( pRp, H, HiLB));

xRp0 = SelectedValue(ValueWhen( pRp, x, HiLB));

pSp = TroughBars( L, pctL, 1) == 0;

ySp0 = SelectedValue(ValueWhen( pSp, L, LoLB));

xSp0 = SelectedValue(ValueWhen( pSp, x, LoLB));

Delta = yRp0 - ySp0;

function fib(ret)

{

retval = (Delta * ret);

Fibval = IIf(ret < 1.0

AND xSp0 < xRp0, yRp0 - retval, IIf(ret < 1.0

AND xSp0 > xRp0, ySp0 + retval,IIf(ret > 1.0

AND xSp0 < xRp0, yRp0 - retval, IIf(ret > 1.0

AND xSp0 > xRp0, ySp0 + retval, Null))));

return FibVal;

}

x0 = Min(xSp0,xRp0)-Back;

x1 = (BarCount -1);

//////////////////////////////////////////////////////////////////

r236 = fib(0.236); r236I = LastValue (r236,1);

r382 = fib(0.382); r382I = LastValue (r382,1);

r050 = fib(0.50); r050I = LastValue (r050,1);

r618 = fib(0.618); r618I = LastValue (r618,1);

r786 = fib(0.786); r786I = LastValue (r786,1);

e127 = fib(1.27); e127I = LastValue (e127,1);

e162 = fib(1.62); e162I = LastValue (e162,1);

e200 = fib(2.00); e200I = LastValue (e200,1);

e262 = fib(2.62); e262I = LastValue (e262,1);

e424 = fib(4.24); e424I = LastValue (e424,1);

//////////////////////////////////////////////////////////////////

p00 = IIf(xSp0 > xRp0,ySp0,yRp0); p00I = LastValue (p00,1);

p100 = IIf(xSp0 < xRp0,ySp0,yRp0); p100I = LastValue (p100,1);

color00 =IIf(xSp0 > xRp0,colorLime,colorRed);

color100 =IIf(xSp0 < xRp0,colorLime,colorRed);

//////////////////////////////////////////////////////////////////

numbars = LastValue(Cum(Status("barvisible")));

fraction= IIf(StrRight(Name(),3) == "", 3.2, 3.2);

//////////////////////////////////////////////////////////////////

if(fibs==1)

{

Plot(LineArray(xRp0-Fwd,yRp0,x1,yRp0,Back),"PR",32,8|styleNoRescale,Null, Null,Fwd);

Plot(LineArray(xSp0-Fwd,ySp0,x1,ySp0,Back),"PS",27,8|styleNoRescale,Null, Null,Fwd);

Plot(LineArray(x0-Fwd,r236,x1,r236,Back),"",45,style|styleNoRescale,Null, Null,Fwd);

Plot(LineArray(x0-Fwd,r382,x1,r382,Back),"",44,style|styleNoRescale,Null, Null,Fwd);

Plot(LineArray(x0-Fwd,r050,x1,r050,Back),"",41,style|styleNoRescale,Null, Null,Fwd);

Plot(LineArray(x0-Fwd,r618,x1,r618,Back),"",43,style|styleNoRescale,Null, Null,Fwd);

Plot(LineArray(x0-Fwd,r786,x1,r786,Back),"",42,style|styleNoRescale,Null, Null,Fwd);

Plot(LineArray(x0-Fwd,e127,x1,e127,Back),"e127",47,style|styleNoRescale,Null, Null,Fwd);

Plot(LineArray(x0-Fwd,e162,x1,e162,Back),"e162",47,style|styleNoRescale,Null, Null,Fwd);

Plot(LineArray(x0-Fwd,e200,x1,e200,Back),"p200",47,style|styleNoRescale,Null, Null,Fwd);

Plot(LineArray(x0-Fwd,e262,x1,e262,Back),"p262",47,style|styleNoRescale,Null, Null,Fwd);

Plot(LineArray(x0-Fwd,e424,x1,e424,Back),"p424",25,style|styleNoRescale,Null, Null,Fwd);

}

//////////////////////////////////////////////////////////////////

if(text==1)

{

PlotText(" 0% = " + WriteVal(p00,fraction), LastValue(BarIndex())-(numbars/hts), p00I + 0.05, color00);

PlotText("23% = " + WriteVal(r236,fraction), LastValue(BarIndex())-(numbars/hts), r236I + 0.05, 45);

PlotText("38% = " + WriteVal(r382,fraction), LastValue(BarIndex())-(numbars/hts), r382I + 0.05, 44);

PlotText("50% = " + WriteVal(r050,fraction), LastValue(BarIndex())-(numbars/hts), r050I + 0.05, 41);

PlotText("62% = " + WriteVal(r618,fraction), LastValue(BarIndex())-(numbars/hts), r618I + 0.05, 43);

PlotText("78% = " + WriteVal(r786,fraction), LastValue(BarIndex())-(numbars/hts), r786I + 0.05, 42);

PlotText("100% = " + WriteVal(p100,fraction), LastValue(BarIndex())-(numbars/hts),p100I + 0.05, color100);

PlotText("127% = " + WriteVal(e127,fraction), LastValue(BarIndex())-(numbars/hts),e127I + 0.05, 47);

PlotText("162% = " + WriteVal(e162,fraction), LastValue(BarIndex())-(numbars/hts),e162I + 0.05, 47);

PlotText("200% = " + WriteVal(e200,fraction), LastValue(BarIndex())-(numbars/hts),e200I + 0.05, 47);

PlotText("262% = " + WriteVal(e262,fraction), LastValue(BarIndex())-(numbars/hts),e262I + 0.05, 47);

PlotText("424% = " + WriteVal(e424,fraction), LastValue(BarIndex())-(numbars/hts),e424I + 0.05, 25);

}

_SECTION_END();

//////////////////////////////////////////////////////////////////

if (tchoice=1 )

{

_N(Title = EncodeColor(colorWhite)+StrFormat(" {{NAME}} - {{INTERVAL}} {{DATE}} Open: %g, High: %g, Low: %g, Close: %g

{{VALUES}}",O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));

}

//////////////////////////////////////////////////////////////////

if (tchoice==2 )

{

Title = EncodeColor(colorWhite)+ Date() + " Tick = " + EncodeColor(5) + Interval()+

EncodeColor(colorWhite) + " Open = " + EncodeColor(colorWhite) + O +

EncodeColor(colorWhite) + " High = " + EncodeColor(5) + H +

EncodeColor(colorWhite) + " Low = " + EncodeColor(colorRed) + L +

EncodeColor(colorWhite) + " Close = " + EncodeColor(colorWhite) + C + "\n" +

EncodeColor( colorWhite) +"_______________"+"\n"+

EncodeColor( colorWhite) + "424% = " + EncodeColor(25)+ e424 + " " +"\n"+

EncodeColor( colorWhite) + "262% = " + EncodeColor(47)+ e262 + " " +"\n"+

EncodeColor( colorWhite) + "200% = " + EncodeColor(47)+ e200 + " " +"\n"+

EncodeColor( colorWhite) + "162% = " + EncodeColor(47)+ e162 + " " +"\n"+

EncodeColor( colorWhite) + "127% = " + EncodeColor(47)+ e127 + " " +"\n"+

EncodeColor( colorYellow) + " Res = " + EncodeColor(32)+ p100 + " " +"\n"+

EncodeColor( colorWhite) + " 78% = " + EncodeColor(42)+ r786 + " " +"\n"+

EncodeColor( colorWhite) + " 62% = " + EncodeColor(43)+ r618 + " " +"\n"+

EncodeColor( colorWhite) + " 50% = " + EncodeColor(41)+ r050 + " " +"\n"+

EncodeColor( colorWhite) + " 38% = " + EncodeColor(44)+ r382 + " " +"\n"+

EncodeColor( colorWhite) + " 23% = " + EncodeColor(45)+ r236+ " " +"\n"+

EncodeColor( colorYellow) + " Sup = " + EncodeColor(34)+ p00 + " " ;

}

GraphXSpace=5;

_SECTION_BEGIN("Background");

SetChartOptions(0,chartShowArrows|chartShowDates);

SetChartBkColor(ParamColor("Outer panel",colorBlack)); // color of outer border

SetChartBkGradientFill( ParamColor("Inner panel upper",colorBlack),ParamColor("Inner panel lower",colorBlack));

tchoice=Param("Title Selection ",2,1,2,1);

Cách sử dụng AFL cho Amibroker

Tải xuống tệp Amibroker AFL.
Bây giờ hãy sao chép tệp afl và dán vào \Program Files\AmiBroker\Formulas\Custom. [Dành cho 32 bit] hoặc \Program Files(x86)\AmiBroker\Formulas\Custom. [Dành cho 64 bit]
Vào phần công thức của Amibroker và bạn sẽ thấy afl trong thư mục Custom.

Nguồn thông tin Dòng tiền chứng khoán sưu tầm

https://pipschart.com/multiple-trend-line-afl/

Comments

DÒNG TIỀN CHỨNG KHOÁNOctober 9, 2024 at 12:14 AM
Hữu ích !
ReplyDelete
Replies

Add comment

Search This Blog

Translate

DÒNG TIỀN CHỨNG KHOÁN

BAND BASE | AMIBROKER AFL -Multiple Trend Line AFL

Comments

Post a Comment

Popular posts from this blog

TẠI SAO NÊN ĐẦU TƯ CHỨNG KHOÁN ?

LỰA CHỌN CÔNG TY CHỨNG KHOÁN MỞ TÀI KHOẢN GIAO DỊCH

ĂN NHỊP HỒI VNINDEX THÁNG 10/2024

Labels