COMBINE BASE | AMIBROKER INDICATOR- T3 Buy Sell Update Afl
Mọi nhà giao dịch đều tìm thấy tín hiệu mua bán trong cuộc sống giao dịch của mình. Hầu hết thời gian, việc tìm tín hiệu mua bán là một vấn đề lớn. Ngoài ra, trong thời gian dài, việc tìm tín hiệu rất khó khăn. Bản cập nhật T3 Buy Sell giải quyết vấn đề này. Nếu bạn là người dùng amibroker, bạn có thể dễ dàng tìm thấy tín hiệu mua bán bằng nó.
Nhưng hãy đợi đã, có một lựa chọn.
Nếu bạn không phải là chuyên gia về afl thì hãy bỏ qua Amibroker Afl này. Có rất
nhiều afl amibroker ngoài kia. Bạn có thể nhấp vào đây để lấy những
cái khác.
Afl này cung cấp cho bạn tín hiệu
mua và bán ở đâu. Hãy xem kỹ hình ảnh để hiểu rõ hơn.
Thưởng thức!!!
// Author : KrT
group
// Uploader : www.pipschart.com
// E-mail : info@pipschart.com
// Amibroker Blog : www.pipschart.com/amibroker
// 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);
GfxSelectFont("Impact",Font*2.2,
550);GfxSetTextColor(colorGreen);GfxTextOut
("RESEARCH",x+120,Y);
_SECTION_END();
//------------------------------------------------------------------------------
_SECTION_BEGIN("T3
Function");
SetChartOptions(0,chartShowArrows|chartShowDates);
SetChartBkColor(31) ;
function T3(price,periods)
{
s = 0.84;
e1=EMA(price,periods);
e2=EMA(e1,Periods);
e3=EMA(e2,Periods);
e4=EMA(e3,Periods);
e5=EMA(e4,Periods);
e6=EMA(e5,Periods);
c1=-s*s*s;
c2=3*s*s+3*s*s*s;
c3=-6*s*s-3*s-3*s*s*s;
c4=1+3*s+s*s*s+3*s*s;
Ti3=c1*e6+c2*e5+c3*e4+c4*e3;
return ti3;
}
PercentChange = 4;
ZZ = Zig(C,LastValue(PercentChange))
;
PivotLow = Ref(IIf(Ref(ROC(ZZ,1),-1)
< 0 AND ROC(ZZ,1) > 0, 1, Null),1);
PivotHigh = Ref(IIf(Ref(ROC(ZZ,1),-1)
> 0 AND ROC(ZZ,1) < 0, 1, Null),1);
Buy_Valid = IIf(C>(.01+(LastValue(PercentChange)/100))*(ValueWhen(PivotLow,
C,
1))
AND ROC(ZZ,1) > 0,1,0);
Color=IIf(Buy_Valid OR PivotLow,5,IIf(NOT
Buy_Valid,colorDarkRed,colorBlue));
Plot (C,"Close",color,64,32);
//Plot(C,"",4,64);
Plot(T3(C,50),"T3",colorCustom12,4);
Plot(t3(C,20),"T3",colorBlue,4);
X1=Ref(C,-1);
X1=Ref(C,-2);
//Buy=H<T3(C,50) AND
H<t3(C,20) AND C>X1 ;
_SECTION_END();
Plot (EMA (C,20), "EMA
20",colorCustom11,4);
Plot (EMA (C,45), "EMA
45",colorYellow,4);
Plot (EMA (C,200), "EMA
200",9,4);//colorAqua
Plot (EMA (C,420), "EMA
200",colorAqua,4);//
Plot(TEMA(C+(C/60),2),"C*2",colorBlack,4);
_SECTION_BEGIN("MA");
P = ParamField("Price
field",-1);
Periods = Param("Periods",
10, 2, 200, 1 );//colorOrange
//Plot( MA( P, Periods ),
_DEFAULT_NAME(),colorOrange, 4);
_SECTION_END();
_SECTION_BEGIN("WMA1");
P = ParamField("Price
field",-1);
Periods = Param("Periods",8,
1, 300, 1, 5 );
//Plot( WMA( P, 5 ),
"WMA(5)", colorBrightGreen, ParamStyle("Style") );
_SECTION_END();
_SECTION_BEGIN("Colud10");
Color = IIf(EMA (C,20) < t3(C,20)
, colorWhite,//LightGrey//30
IIf(EMA (C,20) > t3(C,20),colorGreen,7 ) );//PaleGreen,colorPink
Colori = IIf(T3(C,50) < t3(C,20)
, 30,
IIf(T3(C,50) > t3(C,20), colorLightGrey,7 ) );
PlotOHLC(EMA (C,20), EMA (C,20), t3(C,20)
, t3(C,20) , "", Color, styleCloud |
styleNoLabel);
PlotOHLC(t3(C,50), t3(C,50), t3(C,20)
, t3(C,20) , "", Colori, styleCloud |
styleNoLabel);
_SECTION_END();
_SECTION_BEGIN("Cloud10");
Color = IIf(EMA (C,20) < t3(C,20)
, colorWhite,//LightGrey//30
IIf(EMA (C,20) > t3(C,20),12 ,7 ) );//PaleGreen,colorPink
Colori = IIf(T3(C,50) < t3(C,20)
, colorGreen,
IIf(T3(C,50) > t3(C,20), colorLightGrey,7 ) );
PlotOHLC(EMA (C,20), EMA (C,20), t3(C,20)
, t3(C,20) , "", Color, styleCloud |
styleNoLabel);
PlotOHLC(t3(C,50), t3(C,50), t3(C,20)
, t3(C,20) , "", Colori, styleCloud |
styleNoLabel);
//Buy=H>EMA (C,20) AND
Ref(H,-1)<EMA (C,20)AND Ref(H,-2)<EMA (C,20);
_SECTION_BEGIN("Zig Zag
Indicator with Valid Entry and Exit Points");
//------------------------------------------------------------------------------
//
// Formula
Name: Zig Zag Indicator with Valid Entry and Exit Points
PercentChange = 6;
ZZ = Zig(C,LastValue(PercentChange))
;
PivotLow = Ref(IIf(Ref(ROC(ZZ,1),-1)
< 0 AND ROC(ZZ,1) > 0, 1, Null),1);
PivotHigh = Ref(IIf(Ref(ROC(ZZ,1),-1)
> 0 AND ROC(ZZ,1) < 0, 1, Null),1);
PlotShapes ( IIf(PivotHigh, shapeSmallCircle,
shapeNone), colorCustom12,0,H, 5);
PlotShapes( IIf(PivotLow, shapeSmallCircle,
shapeNone), colorBlue,0, L, -5);
_SECTION_END();
_SECTION_BEGIN("GIP-3");
// -- what will be our lookback
range for the hh and ll?
nBars = Param("Number of
bars", 12, 5, 40);
bTrace = Param("Include trace
output", 1, 0, 1);
nNoPivsInSetup = Param("No.
Pivs in Setup", 4, 3, 4, 1);
bShowTCZ = Param("Show
TCZ", 1, 0, 1);
nMinBarsBtwPivs = Param("Min.
number of bars btw. pivots", 1, 1, 10, 1);
nMinPctBtwPivs = Param("Min.
percent diff. btw. pivots", .05, .04, .2, .01);
bLastBarCanBePiv = Param("Last
bar can be a pivot", 1, 0, 1);
retrcTolerance = .01;
tczTolerance = .005;
nNumBarsToScan = 120;
// -- added from exploration
version 20040204
nExploreBarIdx = 0;
nExploreDate = 0;
nCurDateNum = 0;
DN = DateNum();
DT = DateTime();
// -- key exploration variables
bTCZLong = False;
bTCZShort = False;
nAnchorPivIdx = 0;
ADX8 = ADX(8);
// 1 - INDICATOR, 2 - COMMENTARY, 3
- SCAN,
// 4 - EXPLORATION, 5 - BACKTEST /
Optimize
if(Status("action")==1) {
bDraw = True;
bUseLastVis
= Param("Use last visible bar", 1, 0, 1);
} else {
bDraw = False;
bUseLastVis
= False;
bTrace = False;
nExploreDate
= Status("rangetodate");
for (i=LastValue(BarIndex());i>=0;i--)
{
nCurDateNum
= DN[i];
if
(nCurDateNum == nExploreDate) {
nExploreBarIdx
= i;
}
}
// --
if(Status("action")==1...
}
GraphXSpace=7;
// -- Create 0-initialized arrays
the size of barcount
aHPivs = H - H;
aLPivs = L - L;
aHPivHighs = H - H;
aLPivLows = L - L;
aHPivIdxs = H - H;
aLPivIdxs = L - L;
aAddedHPivs = H - H;
aAddedLPivs = L - L;
aLegVol = H - H;
aRetrcVol = H - H;
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);
// -- Initialize value of curTrend
nLastVisBar = LastValue(
Highest(IIf(Status("barvisible"),
BarIndex(), 0)));
curBar = IIf(nlastVisBar > 0 AND
bUseLastVis, nlastVisBar,
IIf(Status("action")==4
AND nExploreBarIdx > 0, nExploreBarIdx,
LastValue(BarIndex())));
curTrend = "";
if (aLLVBars[curBar] < aHHVBars[curBar])
curTrend = "D";
else
curTrend = "U";
// -- Make sure there are enough
bars!
if (curBar >= nNumBarsToScan) {
for (i=0; i<nNumBarsToScan;
i++) {
//
-- value of curBar dependent on two parameters
curBar
= IIf(nlastVisBar > 0 AND bUseLastVis,
nlastVisBar-i,
IIf(Status("action")==4
AND nExploreBarIdx > 0,
nExploreBarIdx-i,
LastValue(BarIndex())-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
}
}
// -- Start at last bar.
Reestablish curBar
curBar =
IIf(nlastVisBar
> 0 AND bUseLastVis,
nlastVisBar,
IIf(Status("action")==4
AND nExploreBarIdx > 0,
nExploreBarIdx,
LastValue(BarIndex()))
);
// -- Make sure I found at least
two of each above.
if (nHPivs >= 2 AND nLPivs >=
2) {
lastLPIdx =
aLPivIdxs[0];
lastLPL = aLPivLows[0];
lastHPIdx =
aHPivIdxs[0];
lastHPH = aHPivHighs[0];
nLastHOrLPivIdx
= Max(lastLPIdx, lastHPIdx);
nAddPivsRng
= curBar - nLastHOrLPivIdx;
aLLVAfterLastPiv
= LLV(L, nAddPivsRng);
nLLVAfterLastPiv
= aLLVAfterLastPiv[curBar];
aLLVIdxAfterLastPiv
= LLVBars(L, nAddPivsRng);
nLLVIdxAfterLastPiv
= curBar - aLLVIdxAfterLastPiv[curBar];
aHHVAfterLastPiv
= HHV(H, nAddPivsRng);
nHHVAfterLastPiv
= aHHVAfterLastPiv[curBar];
aHHVIdxAfterLastPiv
= HHVBars(H, nAddPivsRng);
nHHVIdxAfterLastPiv
= curBar - aHHVIdxAfterLastPiv[curBar];
// -- Later
want to add last high pivot only if
if (lastHPIdx
> lastLPIdx) {
if
(aHPivHighs[0] < aHPivHighs[1]) {
if
(nLLVAfterLastPiv < aLPivLows[0] AND
(nLLVIdxAfterLastPiv
- lastHPIdx - 1) >= nMinBarsBtwPivs
AND
nLLVIdxAfterLastPiv != curBar ) {
//
-- OK, we'll add this as a pivot.
// Mark
it for plotting...
aLPivs[nLLVIdxAfterLastPiv]
= 1;
aAddedLPivs[nLLVIdxAfterLastPiv]
= 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]
= nLLVAfterLastPiv;
aLPivIdxs[0]
= nLLVIdxAfterLastPiv;
nLPivs++;
//
-- Test whether to add piv given last piv is high
// AND
we have lower highs
}
//
-- Here, the last piv is a high piv, and we have
// higher-highs.
The most likely addition is a
// Low
piv that is a retracement.
}
else {
if
(nLLVAfterLastPiv > aLPivLows[0] AND
(nLLVIdxAfterLastPiv
- lastHPIdx - 1) >= nMinBarsBtwPivs
AND
nLLVIdxAfterLastPiv != curBar ) {
//
-- OK, we'll add this as a pivot.
// Mark
it for plotting...
aLPivs[nLLVIdxAfterLastPiv]
= 1;
aAddedLPivs[nLLVIdxAfterLastPiv]
= 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]
= nLLVAfterLastPiv;
aLPivIdxs[0]
= nLLVIdxAfterLastPiv;
nLPivs++;
//
-- Test whether to add piv given last piv is high
// AND
we have lower highs
}
//
-- The last piv is a high and we have higher highs
// OR
lower highs
}
/*
****************************************************************
Still
finding missed pivot(s). Here, the last piv is a low piv.
****************************************************************
*/
} else {
//
-- First case, lower highs
if
(aHPivHighs[0] < aHPivHighs[1]) {
if
(nHHVAfterLastPiv < aHPivHighs[0] AND
(nHHVIdxAfterLastPiv
- lastLPIdx - 1) >= nMinBarsBtwPivs
AND
nHHVIdxAfterLastPiv != curBar ) {
//
-- OK, we'll add this as a pivot.
// Mark
that for plotting
aHPivs[nHHVIdxAfterLastPiv]
= 1;
aAddedHPivs[nHHVIdxAfterLastPiv]
= 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]
= nHHVAfterLastPiv;
aHPivIdxs[0]
= nHHVIdxAfterLastPiv;
nHPivs++;
//
-- Test whether to add piv given last piv is high
// AND
we have lower highs
}
//
-- Second case when last piv is a low piv, higher highs
// Most
likely addition is high piv that is a retracement.
// Considering
adding a high piv as long as it is higher
}
else {
//
-- Where I have higher highs,
if
(nHHVAfterLastPiv > aHPivHighs[0] AND
(nHHVIdxAfterLastPiv
- lastLPIdx - 1) >= nMinBarsBtwPivs
AND
nHHVIdxAfterLastPiv != curBar ) {
//
-- OK, we'll add this as a pivot.
// Mark
it for plotting...
aHPivs[nHHVIdxAfterLastPiv]
= 1;
aAddedHPivs[nHHVIdxAfterLastPiv]
= 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]
= nHHVAfterLastPiv;
aHPivIdxs[0]
= nHHVIdxAfterLastPiv;
nHPivs++;
//
-- Test whether to add piv given last piv is high
// AND
we have lower highs
}
}
}
// -- If there are at least two of
each
}
/*
****************************************
// -- Done with finding pivots
*****************************************
*/
if (bDraw) {
// -- OK,
let's plot the pivots using arrows
PlotShapes(
IIf(aHPivs==1,
shapeDownArrow, shapeNone),
colorRed,
0, High, Offset=-15);
PlotShapes(
IIf(aAddedHPivs==1,
shapeDownArrow, shapeNone),
colorCustom12,
0, High, Offset=-15);
PlotShapes(
IIf(aLPivs==1,
shapeUpArrow , shapeNone),
5,
0, Low, Offset=-15);
PlotShapes(
IIf(aAddedLPivs==1,
shapeUpArrow , shapeNone),
colorBlue,
0, Low, Offset=-15);
}
Buy = aLPivs OR aAddedLPivs;
Sell = aHPivs OR aAddedHPivs;
Title = EncodeColor(colorYellow)+Title =Name()
+ " " + Date() +EncodeColor(
colorYellow) +
EncodeColor(55)+ "
Open: "+ WriteIf(O> Ref(O,-1),EncodeColor
(colorBrightGreen),EncodeColor(colorRed))+
WriteVal(O,format=1.2) +
EncodeColor(55)+
" High: "+ WriteIf(H> Ref(H,-1),EncodeColor
(colorBrightGreen),EncodeColor(colorRed))+ WriteVal(H,format=1.2)
+
EncodeColor(55)+
" Low: "+ WriteIf(L> Ref(L,-1),EncodeColor
(colorBrightGreen),EncodeColor(colorRed))+ WriteVal(L,format=1.2)
+
EncodeColor(55)+
" Close: "+ WriteIf(C> Ref(C,-1),EncodeColor
(colorBrightGreen),EncodeColor(colorRed))+
WriteVal(C,format=1.2)+
EncodeColor(55)+
" Change: "+WriteIf(C> Ref(C,-1),EncodeColor
(5),EncodeColor(55))+ WriteVal((C-Ref(C,-1)),format=1.2)+ " ("+
WriteVal(ROC
(C,1),format=1.2)+ "%"+ ") "+
"\n"+EncodeColor(55)+"Volume
= "+ WriteIf(V> Ref(V,-1),EncodeColor
(colorBrightGreen),EncodeColor(colorRed))+
WriteVal(V,format=1.2)+
"\n"+EncodeColor(55)+"Change:
"+WriteIf(V> Ref(V,-1),EncodeColor
(5),EncodeColor(55))+ WriteVal((V-Ref(V,-1)),format=1.2)+ " ("+
WriteVal(ROC
(V,1),format=1.2)+ "%"+ ") "+
"\n"+EncodeColor(colorCustom11)+"EMA
(C,20) = "+ WriteVal(EMA
(C,20),format=1.2)+
"\n"+EncodeColor(colorYellow)+"EMA
(C,45) = "+ WriteVal(EMA
(C,45),format=1.2)+
"\n"+EncodeColor(9)+"EMA(C,200)
= "+ WriteVal(EMA (C,200),format=1.2)+
"\n"+EncodeColor(colorAqua)+"EMA(C,420)
= "+ WriteVal(EMA
(C,420),format=1.2)+
"\n"+EncodeColor(colorBlue)+"T3(C,20) =
"+ WriteVal(t3(C,20),format=1.2)+
"\n"+EncodeColor(colorCustom12)+"T3(C,50) =
"+ WriteVal(t3
(C,20),format=1.2);
_SECTION_END();
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/latest-t3-buy-sell-update-afl-for-amibroker/
Comments
Post a Comment