Code cho amibroker Miễn phí

Chủ đề trong 'Thị trường chứng khoán' bởi cp2011, 07/06/2021.

Có 7247 người đang online, trong đó có 160 thành viên. 08:01 (UTC+07:00) Bangkok, Hanoi, Jakarta

Có 0 người đang xem box này (Thành viên: 0, Khách: 0)

Trang 3/12

Chủ đề này đã có 40629 lượt đọc và 116 bài trả lời

Muoibo Thành viên gắn bó với f319.com

Tham gia ngày:

21/12/2020

Đã được thích:

1.439

#21

10/08/2021, 18:16

cp2011 đã viết: ↑

Cái này do Google Chrome nó không hỗ trợ Flash từ 2021 nên không úp ảnh lên F319 này như trước đây bạn ah. Nếu bạn biết cách nào để khắc phục lỗi này thì chỉ giúp mình. mình đang cần đến đó.

--- Gộp bài viết, 01/08/2021, Bài cũ: 01/08/2021 ---

Bạn mở Code nào đó ra rồi thêm phần Volume vào trong đó là được mà. không cần dùng đến chart Volume riêng như kia...
Tặng các bạn 1 Code mình đang dùng...
//-------------------------------- Fibnacci Inter & Exter Retracements_14-180_31.0.2021 PS-------------------------------------

#pragma nocache
#include_once
//#include_once "C:\Program Files (x86)\AmiBroker\Formulas\PatternExplorer\#Defaults & Mods\PE - Defaults.afl"
//#include_once "C:\Program Files (x86)\AmiBroker\Formulas\PatternExplorer\#Defaults & Mods\PE - Mods.afl"
#include_once "C:\Program Files\AmiBroker\Formulas\PatternExplorer\#Defaults & Mods\PE - Defaults.afl"
#include_once "C:\Program Files\AmiBroker\Formulas\PatternExplorer\#Defaults & Mods\PE - Mods.afl"
GraphZOrder = 0;

//-------------- Start Ve Chart ---------------
Vert = Param("Vertical Chart Zoom", 15, - 15, 50, 1);//Co gian Chart theo chieu doc (Vertical)
GraphXSpace = Vert;
SetChartOptions(0,chartShowDates);// 0= Dat Date duoi Chart
Plot(C, "", IIf(O>=C, colorCustom16, colorCustom6), ParamStyle("Price Style",styleLine+styleDots+styleThick+styleCandle,maskPrice)); // Chart = Candlde.
//-------------- End Ve Chart ---------------

_SECTION_BEGIN( "Volume" );

PlotVolume = ParamToggle( "Plot Volume", "Off|On", 0 );
Type = ParamList( "Color Mode", "Simple,Standard,Extended", def_VolumeType );
UpColor = ParamColor( "Up Color", def_VolumeUpColor );
DnColor = ParamColor( "Down Color", def_VolumeDnColor );
NeutralColor = ParamColor( "Neutral Color", def_VolumeNeutralColor );
style = ParamStyle( "Style", styleHistogram | styleOwnScale | styleNoTitle | styleNoLabel, maskHistogram );
VolumeHeight = 7.1 - Param( "Volume Height", 0.1, 0, 7.1, 0.1 );

/*******************************************************************************************/
if ( Type == "Simple" AND PlotVolume )
Plot( Volume, _DEFAULT_NAME(), NeutralColor, style, VolumeHeight );

/*******************************************************************************************/
if ( Type == "Standard" AND PlotVolume )
Plot( Volume, _DEFAULT_NAME(), IIf( C > O, UpColor, DnColor ), style, VolumeHeight );

/*******************************************************************************************/
if ( Type == "Extended" AND PlotVolume )
Plot( Volume, _DEFAULT_NAME(), IIf( C > Ref( C, -1 ) AND V > Ref( V, -1 ), UpColor, IIf( C Ref( V, -1 ), DnColor, NeutralColor ) ), style, VolumeHeight );

_SECTION_END();

//////////////////////////////////////////////////////////////////
_SECTION_BEGIN("Fib Retracements");
fibs = ParamToggle("Plot Fibs","Off|On",0);
text = ParamToggle("Plot Text","Off|On",0);
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);
hts = Param ("Text Shift", -33.5,-50,50,0.10);
style =ParamStyle("Line Style",styleLine,styleNoLabel|styleNoTitle);
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 xRp0, ySp0 + retval,IIf(ret > 1.0
AND xSp0 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,colorLime,colorRed);
color100 =IIf(xSp0 Ref(C,-1),EncodeColor(colorCustom6),EncodeColor(colorRed))+ WriteVal( Open, 1.2 ) +" ("+WriteVal(Open- Ref(C,-1) ,1.2)+")"
+EncodeColor(colorWhite) + "_High : " +WriteIf(H>Ref(C,-1),EncodeColor(colorCustom6),EncodeColor(colorRed))+ WriteVal( H , 1.2 ) +" ("+WriteVal(High- Ref(C,-1) ,1.2)+")"
+EncodeColor(colorWhite) + "_Low : " +WriteIf(L>Ref(C,-1),EncodeColor(colorCustom6),EncodeColor(colorRed))+ WriteVal( L, 1.2 ) +" ("+WriteVal(Low- Ref(C,-1) ,1.2)+")"
+EncodeColor(colorWhite) + "_Close : " +WriteIf(C>Ref(C,-1),EncodeColor(colorCustom6),EncodeColor(colorRed))+ WriteVal( C, 1.2 ) +" ("+WriteVal(C- Ref(C,-1) ,1.2)+")"
+EncodeColor(colorWhite) + "_Vol : " +WriteIf(V>Ref(V,-1),EncodeColor(colorCustom6),EncodeColor(colorRed))+ WriteVal( V, 1.0 )+" ("+WriteVal(V- Ref(V,-1) ,1.0)+")"
+"\n" +"**" + "{{VALUES}}" ;
}
//-------------------------------- Title 26.03.2020 PS-------------------------------------

range = Param("Periods", 7, 2, 200, 1 );
Bull_Trend=(Trix(range) >= Ref(Trix(range),-1)); //(Trix(range) >= Ref(Trix(range),-1)) AND (Ref(Trix(range),-1) >= Ref(Trix(range),-2));
Bear_Trend=(Trix(range-1) = Ref(Trix(range),-1)); //(Trix(range) >= Ref(Trix(range),-1)) AND (Ref(Trix(range),-1) >= Ref(Trix(range),-2));
Bear_Trend=(Trix(range-1) x1;
dn = Cross(L1, L)AND Cum(1) > x1;
//------End Ve duong Line Kháng cu/Ho Tro-----
}

//--------------- Ve Thanh Bar Báo TOP/BOTTOM ---------------

_SECTION_BEGIN("Trendlines Multitimeframe");// Ve Thanh bar ÐINH/ÐÁY

Version(5.21);
xx=BarIndex();x=xx;Lx=LastValue(x);
nbar=Param("N Pivot Bars",14,2,50,1);
tf=Param("Time Frame (min)",180,1,100000,1);tfrm=in1Minute*tf;// Ve so thanh bar tai vi tri TOP/Bottom
CleanPivots=ParamToggle("Use Clean Pivots","On|Off",0);
PivotSymmetry=ParamToggle("Use Symmetric Pivots","On|Off",1);

TimeFrameSet(tfrm);
if (PivotSymmetry)
{
fc=1;
pk=H>Ref(HHV(H,nbar*fc),-1) AND Ref(HHV(H,nbar),nbar)=L;
}
else
{
fc=2;
pk=H>Ref(HHV(H,nbar*fc),-1) AND Ref(HHV(H,nbar),nbar)=L;
}
px0=ValueWhen(pk,x,0); tx0=ValueWhen(tr,x,0);
px1=ValueWhen(pk,x,1); tx1=ValueWhen(tr,x,1);
px2=ValueWhen(pk,x,2); tx2=ValueWhen(tr,x,2);
ph0=ValueWhen(pk,H,0); tl0=ValueWhen(tr,L,0);
ph1=ValueWhen(pk,H,1); tl1=ValueWhen(tr,L,1);
ph2=ValueWhen(pk,H,2); tl2=ValueWhen(tr,L,2);
if (CleanPivots)
{
tr=IIf(pk AND tr AND ph1>ph2 AND tl1>tl2,False,tr);
pk=IIf(pk AND tr AND ph1ph1,False,tr);
pk=IIf(pk AND px0ph1,False,pk);
tr=IIf(tr AND px0>tx0 AND tl0tx1 AND ph1px1 AND tl1>=tl2,False,tr);
pk=IIf(pk AND px0>px1 AND px1>tx1 AND px1>tx0 AND ph0>ph1,False,pk);
tr=IIf(tr AND tx0>tx1 AND tx1>px1 AND tx1>px0 AND tl0tx1 AND ph1px1 AND tl1>ph1,False,tr);
pk=IIf(pk AND px0ph1,False,pk);
tr=IIf(tr AND px0>tx0 AND tl0tx1 AND ph1px1 AND tl1>=tl2,False,tr);
pk=IIf(pk AND px0>px1 AND px1>tx1 AND px1>tx0 AND ph0>ph1,False,pk);
tr=IIf(tr AND tx0>tx1 AND tx1>px1 AND tx1>px0 AND tl0tx1 AND px2>tx1 AND ph1px1 AND tx2>px1 AND tl1>tl2,False,tr);
}
pkh=IIf(pk,H,Null);
trl=IIf(tr,L,Null);
TimeFrameRestore();
fact=Max(tfrm/60,Interval()/60)/(Interval()/60);
Lkbk=tfrm/Interval();

if(Lkbk>1)
{
pk=TimeFrameExpand(pk,tfrm,expandFirst);
pkh=TimeFrameExpand(pkh,tfrm,expandFirst);
pkhs=IIf(!IsEmpty(pkh),1,0);pkhs=pkhs-Ref(pkhs,-1);
pk=pk AND H==pkh;
cond1=Sum(pk,BarsSince(pkhs==1)+1)==1 AND pk;
pk=pk AND cond1;

tr=TimeFrameExpand(tr,tfrm,expandFirst);
trl=TimeFrameExpand(trl,tfrm,expandFirst);
trls=IIf(!IsEmpty(trl),1,0);trls=trls-Ref(trls,-1);
tr=tr AND L==trl;
cond1=Sum(tr,BarsSince(trls==1)+1)==1 AND tr;
tr=tr AND cond1;

px0=ValueWhen(pk,x,0); tx0=ValueWhen(tr,x,0);
px1=ValueWhen(pk,x,1); tx1=ValueWhen(tr,x,1);
px2=ValueWhen(pk,x,2); tx2=ValueWhen(tr,x,2);
ph0=ValueWhen(pk,H,0); tl0=ValueWhen(tr,L,0);
ph1=ValueWhen(pk,H,1); tl1=ValueWhen(tr,L,1);
ph2=ValueWhen(pk,H,2); tl2=ValueWhen(tr,L,2);
}

y0=ValueWhen(tr,trl,0);
y1=ValueWhen(tr,trl,1);
y2=ValueWhen(tr,trl,2);
y3=ValueWhen(tr,trl,3);
x0=ValueWhen(tr,xx,0);
x1=ValueWhen(tr,xx,1);
x2=ValueWhen(tr,xx,2);
x3=ValueWhen(tr,xx,3);
aa=(Y0-Y1)/(X0-X1);
ls1=aa*(xx-X1)+Y1;
dls1=ls1-Ref(ls1,-1);
aa=(Y1-Y2)/(X1-X2);
ls2=aa*(xx-X1)+Y1;
dls2=ls2-Ref(ls2,-1);
dls2=IIf(tr,Ref(dls1,-1),dls2);
aa=(Y2-Y3)/(X2-X3);
ls3=aa*(xx-X2)+Y2;
dls3=ls3-Ref(ls3,-1);
dls3=IIf(tr,Ref(dls2,-1),dls3);
y0=ValueWhen(pk,pkh,0);
y1=ValueWhen(pk,pkh,1);
y2=ValueWhen(pk,pkh,2);
y3=ValueWhen(pk,pkh,3);
x0=ValueWhen(pk,xx,0);
x1=ValueWhen(pk,xx,1);
x2=ValueWhen(pk,xx,2);
x3=ValueWhen(pk,xx,3);
aa=(Y0-Y1)/(X0-X1);
hs1=aa*(xx-X1)+Y1;
dhs1=hs1-Ref(hs1,-1);
aa=(Y1-Y2)/(X1-X2);
hs2=aa*(xx-X1)+Y1;
dhs2=hs2-Ref(hs2,-1);
dhs2=IIf(pk,Ref(dhs1,-1),dhs2);
aa=(Y2-Y3)/(X2-X3);
hs3=aa*(xx-X2)+Y2;
dhs3=hs3-Ref(hs3,-1);
dhs3=IIf(pk,Ref(dhs2,-1),dhs3);

_SECTION_BEGIN("Multi_nBar");

fse=Param("Font Size",12,11,100,1);
GfxSelectFont("Times New Roman", fse, 700,False );
GfxSetBkMode( colorGold );

GfxSetTextColor( ParamColor("Color",colorGold) );
Hora1=Param("n(bar)Horizontal",2,1,1200,1);
Vera1=Param("n(bar)Vertical",97,1,830,1);
//GfxTextOut("Bar :"+nbar, Hora1 , Vera1 );
//---------ON-OFF bien Bar----------
Barr = ParamToggle( "Barr", "Show|Hide", 1 );
if (Barr == 1 )
{
GfxTextOut("Bar :"+nbar, Hora1 , Vera1 );
}
//---------ON-OFF bien Bar----------
_SECTION_END();
//=====
_SECTION_BEGIN("Multi_TFR(min)");
fse=Param("Font Size",12,11,100,1);
GfxSelectFont("Times New Roman", fse, 700,False );
GfxSetBkMode( colorGold );

GfxSetTextColor( ParamColor("Color",colorGold) );
Hora2=Param("TimeFR Horizontal",2,1,1200,1);
Vera2=Param("TimeFR Vertical",115,1,830,1);
//GfxTextOut("Min:"+tf, Hora2 , Vera2 );
//---------ON-OFF bien Time----------
Minut = ParamToggle( "Min:", "Show|Hide", 0 );
if (Minut == 1 )
{
GfxTextOut("Min:"+tf, Hora2 , Vera2 );
}
//---------ON-OFF bien Time----------
_SECTION_END();

_SECTION_END();

//--------------- Start Ve thanh Bar báo ÐINH/ÐÁY (TOP/Bottom) ---------------
DinhDay = ParamToggle( "Dinh Day", "Show|Hide", 1 );
if ( DinhDay == 1 )
{
_SECTION_BEGIN("Dinh Day");

Plot(pkh,"",colorCustom11,styleThick,0,0,0,-1); // Ve thanh Bar mau Non Chuoi bao ÐINH (TOP)
Plot(trl,"",colorCustom12,styleThick,0,0,0,-1); // Ve thanh Bar mau Tím bao ÐÁY (Bottom )
PlotShapes(shapeSmallCircle*pk,IIf(Lx-ValueWhen(pk,x)>nbar*fact,colorCustom11,colorWhite),0,H,10); // Ve Cham tròn trên Ðinh màu Non Chuoi bao TOP
PlotShapes(shapeSmallCircle*tr,IIf(Lx-ValueWhen(tr,x)>nbar*fact,colorCustom12,colorWhite),0,L,-10); // Ve Cham tròn duoi Ðay màu Tím bao Bottom
PlotShapes(shapeHollowCircle*pk,colorCustom12,0,H,10);// Ve vòng tròn trên Ðinh
PlotShapes(shapeHollowCircle*tr,colorCustom7,0,L,-10);// Ve vòng tròn Duoi ÐÁY

_SECTION_END();
}
//--------------- End Ve thanh Bar báo ÐINH/ÐÁY (TOP/Bottom) ---------------

//--------------- Start Viet gia tri HH,HL,LL,... ---------------
_SECTION_BEGIN("Label");
disp=ParamToggle("Display labels","Off|On",1);

dxhm=Param("Shift X Highs (Margin)",14,-100,100,1);
dxlm=Param("Shift X Lows (Margin)",10,-100,100,1);
dxh=Param("Shift X Highs",0,-100,100,1);
dxl=Param("Shift X Lows",0,-100,100,1);
dyhm=Param("Shift Y Highs (Margin)",5,-100,100,1);
dylm=Param("Shift Y Lows (Margin)",3,-100,100,1);
dyh=Param("Shift Y Highs",18,-100,100,1);
dyl=Param("Shift Y Lows",29,-100,100,1);
hm=Param("Marging High",30,-100,100,1);
lm=Param("Margin Low",30,-100,100,1);

function GetVisibleBarCount()
{
lvb=Status("lastvisiblebar");
fvb=Status("firstvisiblebar");
return Min(lvb-fvb,BarCount-fvb);
}
function GfxConvertPixelsToBarX(Pixels)
{
lvb=Status("lastvisiblebar");
fvb=Status("firstvisiblebar");
pxchartleft=Status("pxchartleft");
pxchartwidth=Status("pxchartwidth");
fac=pxchartwidth/Pixels;
bar=(lvb-fvb)/fac;
return bar;
}
function GfxConvertPixelToValueY(Pixels)
{
local Miny,Maxy,pxchartbottom,pxchartheight;
Miny=Status("axisminy");
Maxy=Status("axismaxy");
pxchartbottom=Status("pxchartbottom");
pxchartheight=Status("pxchartheight");
fac=pxchartheight/Pixels;
Value=(Maxy-Miny)/fac;
return Value;
}

if(disp)
{
ll=tr AND tl1tl2;

hh=pk AND ph1>ph2;
lh=pk AND ph1LowMargin) PlotText("LL",i+fvb+dxll,L[i+fvb]-dyll,colorWhite,colorBlack);
if(ll[i+fvb] AND L[i+fvb]LowMargin) PlotText("HL",i+fvb+dxll,L[i+fvb]-dyll,colorWhite,colorBlack);
if(hl[i+fvb] AND L[i+fvb]LowMargin) PlotText("DB",i+fvb+dxll,L[i+fvb]-dyll,colorWhite,colorBlack);
if(db[i+fvb] AND L[i+fvb]=HighMargin) PlotText("HH",i+fvb+dxhh+dxhhm,H[i+fvb]+dyhhm,colorWhite,colorBlack);
if(lh[i+fvb] AND H[i+fvb]=HighMargin) PlotText("LH",i+fvb+dxhh+dxhhm,H[i+fvb]+dyhhm,colorWhite,colorBlack);
if(dt[i+fvb] AND H[i+fvb]=HighMargin) PlotText("DT",i+fvb+dxhh+dxhhm,H[i+fvb]+dyhhm,colorWhite,colorBlack);
}
}

_SECTION_END();
//--------------- End Viet gia tri HH,HL,LL,... ---------------

//----------------- Ve 2 duong trend dao dong bao chu ky SÓNG tren chart ----------------------------------
_SECTION_BEGIN("Sin Lines");
SinLine = ParamToggle( "SinLine", "Show|Hide", 0 );
if ( SinLine == 1 )
{

p1 = Param("TL 1 Periods", 20, 5, 50, 1);
p2 = Param("TL 2 Periods", 5, 3, 25, 1);
TL1 = LinearReg(C, p1);
TL2 = EMA(TL1, p2);
Col1 = IIf(TL1 > TL2, ParamColor("TL Up Colour", colorCustom12), ParamColor("TL Dn Colour", colorCustom11));

Plot(Prec(TL1,3),"\n" + "Line 1", Col1, styleLine|styleNoLabel);
Plot(Prec(TL2,3),"\n" + "Line 2", Col1, styleLine|styleNoLabel);
}
_SECTION_END();
//-----------------End Ve 2 duong trend dao dong bao chu ky SÓNG tren chart ----------------------------------

// --------------- EMA có Prec Chuan 31.05.21------------------
_SECTION_BEGIN("EMA Prec");
//---------------Bat Dau EMA 50,58.65,200----------------------
EMAPrec = ParamToggle( "EMA Prec", "Show|Hide", 0 );
if ( EMAPrec == 1 )
{
_SECTION_BEGIN("EMA20");
EMA20 = ParamToggle( "EMA20", "Show|Hide", 0 );
if ( EMA20 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 20, 2, 100, 1 );
Plot(Prec(EMA( P, Periods ),3),_DEFAULT_NAME(), ParamColor( "Color", colorOrange), ParamStyle("Style", styleLine ) | styleNoRescale );
}
_SECTION_END();

_SECTION_BEGIN("EMA50");
EMA50 = ParamToggle( "EMA50", "Show|Hide", 1 );
if ( EMA50 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 50, 2, 200, 1 );
Plot(Prec(EMA( P, Periods ),3), _DEFAULT_NAME(), ParamColor( "Color", colorCustom7 ), ParamStyle("Style", styleLine | styleThick) | styleNoRescale );
}
_SECTION_END();

_SECTION_BEGIN("EMA58");
EMA58 = ParamToggle( "EMA58", "Show|Hide", 1 );
if ( EMA58 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 58, 2, 300, 1 );
Plot(Prec(EMA( P, Periods ),3), _DEFAULT_NAME(), ParamColor( "Color", colorCustom11), ParamStyle("Style", styleLine | styleThick)| styleNoRescale );
}
_SECTION_END();

_SECTION_BEGIN("EMA65");
EMA65 = ParamToggle( "EMA65", "Show|Hide", 1 );
if ( EMA65 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 65, 2, 400, 1 );
Plot(Prec(EMA( P, Periods ),3), _DEFAULT_NAME(), ParamColor( "Color", colorCustom12), ParamStyle("Style", styleLine | styleThick)| styleNoRescale );
}
_SECTION_END();

_SECTION_BEGIN("EMA200");
EMA200 = ParamToggle( "EMA200", "Show|Hide", 1 );
if ( EMA200 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 200, 2, 500, 1 );
Plot(Prec(EMA( P, Periods ),3), _DEFAULT_NAME(), ParamColor( "Color", colorPink), ParamStyle("Style", styleLine | styleThick | styleNoTitle)| styleNoRescale );
}
_SECTION_END();
//---------------End EMA 50,58,65,200--------------------------

//---------------Start EMA 20_50,20_65, 50_65) Cross-----------
UP1=Cross(EMA(C,20),EMA(C,50)); // MA20 Cat len 50 = UPTrend.
DOWN1=Cross(EMA(C,50),EMA(C,20)); // MA20 Cat Xuong 50 = DOWNTrend.

UP2=Cross(EMA(C,20),EMA(C,65)); // MA20 Cat len 65 = UPTrend.
DOWN2=Cross(EMA(C,65),EMA(C,50)); // MA20 Cat Xuong 65 = DOWNTrend.

UP3=Cross(EMA(C,50),EMA(C,65)); // MA50 Cat len 65 = UPTrend.
DOWN3=Cross(EMA(C,65),EMA(C,50)); // MA50 Cat Xuong 65 = DOWNTrend.

UP4=Cross(EMA(C,100),EMA(C,200)); // MA100 Cat len 200 = UPTrend.
DOWN4=Cross(EMA(C,200),EMA(C,100)); // MA200 Cat Xuong 100 = DOWNTrend.

PlotShapes( shapeUpArrow * up1 ,7,0,EMA(C,50)); //Ve Mui ten khi MA20 Cat len MA50. (Yellow=7 =Vàng =Có tín hieu)
PlotShapes( shapeDownArrow *DOWN1 ,7,0,EMA(C,50)); //Ve Mui ten khi MA20 Cat Xuong MA50. (Yellow=7 =Vàng =Có tín hieu)

PlotShapes( shapeUpArrow * up2 ,5,0,EMA(C,65)); //Ve Mui ten khi MA20 Cat len MA65. (5=Custom6 =XanhL=Tín hieu Tang)
PlotShapes( shapeDownArrow *DOWN2 ,4,0,EMA(C,65)); //Ve Mui ten khi MA20 Cat Xuong MA65. (4=Red =Ðo =Tín hieu Giam)

PlotShapes( shapeUpArrow * up3 ,11,0,EMA(C,65)); //Ve Mui ten khi MA20 Cat len MA65. (11=Custom11=Tím =Xác nhan TANG)
PlotShapes( shapeDownArrow *DOWN3 ,10,0,EMA(C,65)); //Ve Mui ten khi MA20 Cat Xuong MA65. (10=Custom10=Aqua =Xác nhan GIAM)

PlotShapes( shapeUpArrow * up4 ,12,0,EMA(C,200)); //Ve Mui ten khi MA100 Cat len MA200. (12=Custom??=... =Xác nhan TANG Dai han)
PlotShapes( shapeDownArrow *DOWN4 ,13,0,EMA(C,200));//Ve Mui ten khi MA200 Cat Xuong MA100. (13=Custom??=... =Xác nhan GIAM Dai han)

}
//---------------End EMA 20_50,20_65, 50_65) Cross-------------
// --------------End EMA có Prec Chuan 31.05.21----------------

// --------------- EMA có Prec Chuan 31.05.21------------------
_SECTION_BEGIN("EMA5 Prec");
//---------------Bat Dau MA5,13,17,20,50,100-----------------
EMAPrec = ParamToggle( "EMA Prec", "Show|Hide", 1 );
if ( EMAPrec == 1 )
{
_SECTION_BEGIN("EMA5");
EMA5 = ParamToggle( "EMA5", "Show|Hide", 1 );
if ( EMA5 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 5, 2, 100, 1 );
Plot(Prec(EMA( P, Periods ),3),_DEFAULT_NAME(), ParamColor( "Color", colorYellow), ParamStyle("Style", styleLine ) | styleNoRescale );
}
_SECTION_END();

_SECTION_BEGIN("EMA13");
EMA13 = ParamToggle( "EMA13", "Show|Hide", 1 );
if ( EMA13 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 13, 2, 200, 1 );
Plot(Prec(EMA( P, Periods ),3), _DEFAULT_NAME(), ParamColor( "Color", colorCustom7 ), ParamStyle("Style", styleLine | styleThick) | styleNoRescale );
}
_SECTION_END();

_SECTION_BEGIN("EMA17");
EMA17 = ParamToggle( "EMA17", "Show|Hide", 1 );
if ( EMA17 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 17, 2, 300, 1 );
Plot(Prec(EMA( P, Periods ),3), _DEFAULT_NAME(), ParamColor( "Color", colorCustom11), ParamStyle("Style", styleLine | styleThick)| styleNoRescale );
}
_SECTION_END();

_SECTION_BEGIN("EMA20");
EMA20 = ParamToggle( "EMA20", "Show|Hide", 1 );
if ( EMA20 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 20, 2, 400, 1 );
Plot(Prec(EMA( P, Periods ),3), _DEFAULT_NAME(), ParamColor( "Color", colorCustom12), ParamStyle("Style", styleLine | styleThick)| styleNoRescale );
}
_SECTION_END();

_SECTION_BEGIN("EMA100");
EMA100 = ParamToggle( "EMA100", "Show|Hide", 1 );
if ( EMA100 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 100, 2, 500, 1 );
Plot(Prec(EMA( P, Periods ),3), _DEFAULT_NAME(), ParamColor( "Color", colorBrown), ParamStyle("Style", styleLine | styleThick | styleNoTitle)| styleNoRescale );
}
_SECTION_END();

_SECTION_BEGIN("EMA200");
EMA200 = ParamToggle( "EMA200", "Show|Hide", 1 );
if ( EMA200 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 200, 2, 500, 1 );
Plot(Prec(EMA( P, Periods ),3), _DEFAULT_NAME(), ParamColor( "Color", colorPink), ParamStyle("Style", styleLine | styleThick | styleNoTitle)| styleNoRescale );
}
_SECTION_END();

//---------------End EMA5,13,17,20,100 ------------------------

//---------------Start EMA 5_13, 5_17, 17_20 Cross-------------
UP1=Cross(EMA(C,5),EMA(C,13)); // MA5 Cat len 13 = UPTrend.
DOWN1=Cross(EMA(C,13),EMA(C,5)); // MA5 Cat Xuong 13 = DOWNTrend.

UP2=Cross(EMA(C,5),EMA(C,17)); // MA5 Cat len 17 = UPTrend.
DOWN2=Cross(EMA(C,17),EMA(C,5)); // MA5 Cat Xuong 17 = DOWNTrend.

UP3=Cross(EMA(C,17),EMA(C,20)); // MA17 Cat len 20 = UPTrend.
DOWN3=Cross(EMA(C,20),EMA(C,17)); // MA17 Cat Xuong 20 = DOWNTrend.

UP4=Cross(EMA(C,100),EMA(C,200)); // MA100 Cat len 200 = UPTrend.
DOWN4=Cross(EMA(C,200),EMA(C,100)); // MA200 Cat Xuong 100 = DOWNTrend.

PlotShapes( shapeUpArrow * up1 ,7,0,MA(C,13)); //Ve Mui ten khi MA5 Cat len MA13. (Yellow=7 =Vàng =Có tín hieu)
PlotShapes( shapeDownArrow *DOWN1 ,7,0,MA(C,13)); //Ve Mui ten khi MA5 Cat Xuong MA13. (Yellow=7 =Vàng =Có tín hieu)

PlotShapes( shapeUpArrow * up2 ,5,0,MA(C,20)); //Ve Mui ten khi MA5 Cat len MA17. (5=Custom6 =XanhL=Tín hieu Tang)
PlotShapes( shapeDownArrow *DOWN2 ,4,0,MA(C,20)); //Ve Mui ten khi MA5 Cat Xuong MA17. (4=Red =Ðo =Tín hieu Giam)

PlotShapes( shapeUpArrow * up3 ,11,0,MA(C,20)); //Ve Mui ten khi MA17 Cat len MA20. (11=Custom12=Tím =Xác nhan TANG)
PlotShapes( shapeDownArrow *DOWN3 ,10,0,MA(C,20)); //Ve Mui ten khi MA17 Cat Xuong MA20. (10=Custom11=Aqua =Xác nhan GIAM)

PlotShapes( shapeUpArrow * up4 ,12,0,EMA(C,200)); //Ve Mui ten khi MA100 Cat len MA200. (12=Custom??=... =Xác nhan TANG Dai han)
PlotShapes( shapeDownArrow *DOWN4 ,13,0,EMA(C,200));//Ve Mui ten khi MA200 Cat Xuong MA100. (13=Custom??=... =Xác nhan GIAM Dai han)

}
//---------------End EMA 5_13, 5_17, 17_20 Cross-------------
// --------------End EMA có Prec Chuan 31.05.21----------------

// --------- BollingerBand 02_11.03.20 ---------
_SECTION_BEGIN("BBands Fill");// Có màu BackGround.
BOLLINGER = ParamToggle( "Bollinger Fill", "Show|Hide", 1 );
if ( BOLLINGER == 1 )
{
P = ParamField("Price field",-1);
Periods = Param("Periods", 20, 2, 300, 1 );
Width = Param("Width", 2, 0, 10, 0.05 );
Color = ParamColor("Color", colorLightGrey );
Color = ColorBlend( Color, GetChartBkColor(), 0.5 );
Style = ParamStyle("Style", styleLine | styleNoTitle ) | styleNoRescale;

Plot(Prec(bbt = BBandTop( P, Periods, Width ),3), "BBTop" + _PARAM_VALUES(), Color, Style );
Plot(Prec(bbb = BBandBot( P, Periods, Width ),3), "BBBot" + _PARAM_VALUES(), Color, Style );
Plot(Prec(MA( P,20),3), "BB Mid" + _PARAM_VALUES(), colorLightOrange, styleNoTitle );
PlotOHLC( bbt, bbt, bbb, bbb, "", ColorBlend( Color, GetChartBkColor(), 0.7 ), styleNoLabel | styleCloud | styleNoRescale, Null, Null, Null, -1 );
_SECTION_END(); // Có màu BackGround.
}
// --------- End BollingerBand 02_11.03.20 ---------

//----- Start Viet muc gia dong cua tai vi tri nen Close-----
_SECTION_BEGIN("Price Line");
PriceLine = ParamToggle( "Price Line", "Show|Hide", 1 );
if ( PriceLine == 1 )
{
PriceLineColor=ParamColor("PriceLineColor",colorCustom12);
PriceLevel = ParamField("PriceField", field = 3 );
Daysback = Param("Bars Back",300,10,500,1);
FirstBar = BarCount - DaysBack;
YY = IIf(BarIndex() >= Firstbar,EndValue(PriceLevel),Null);

Plot(YY,"Current Price",PriceLineColor,ParamStyle("LineStyle",styleLine|styleDashed|styleNoTitle|styleNoLabel,maskAll));

side = Param("side",1,0,1000,1);
dist = 0.5;

for( i = 0; i < BarCount; i++ )
{
if(i+side== BarCount) PlotText( "\n << " + PriceLevel[ i ], i, YY[ i ]+dist, colorCustom12 );
}
}
_SECTION_END();
//----- End Viet muc gia dong cua tai vi tri nen Close-----

//--------------- Ðem nguoc thoi gian ---------------
_SECTION_BEGIN("Time Left");
function GetSecondNum()
{
Time = Now( 4 );
Seconds = int( Time % 100 );
Minutes = int( Time / 100 % 100 );
Hours = int( Time / 10000 % 100 );
SecondNum = int( Hours * 60 * 60 + Minutes * 60 + Seconds );
return SecondNum;
}
RequestTimedRefresh( 1 );
TimeFrame = Interval();
SecNumber = GetSecondNum();
Newperiod = SecNumber % TimeFrame == 0;
SecsLeft = SecNumber - int( SecNumber / TimeFrame ) * TimeFrame;
SecsToGo = TimeFrame - SecsLeft;

x=Param("xposn",2,0,1000,1);
y=Param("yposn",32,0,1000,1);
MM = ParamToggle( "Time Left", "Show|Hide", 0 );
if ( MM == 1 )
{
if ( NewPeriod )
GfxRoundRect( x+45, y+17, x-3, y-2, 0, 0 );
GfxSetBkMode(1);
GfxSelectFont( "Arial", 12, 700, False );
GfxSetTextColor( colorWhite );
GfxTextOut( ""+SecsToGo+" / "+NumToStr( TimeFrame, 1.0 ), x, y );
}
_SECTION_END();
//--------------- Ðem nguoc thoi gian ---------------

//--------------- Delta = Vn30-Vn30F ---------------
_SECTION_BEGIN( "Delta Vn30-Vn30F1M" );
Delta = ParamToggle( "Delta", "Show|Hide", 0 );
if ( Delta == 1 )
{

stck1=C; // Gia Vn30F1M
symbol2="Vn30";
stck2=Foreign(symbol2,"C");
Delta=stck1-stck2;

FS=Param("font Size",12,11,100,1);
GfxSelectFont( "Arial", 12, 700, False );

GfxSetBkMode( colorWhite );
GfxSetTextColor(ParamColor( "Color",colorWhite));
Hor = Param( "Horizontal Position", 2, 1, 1200, 1 );
Ver = Param( "Vertical Position", 50 , 1, 830, 1 );
DD=Prec(delta,2) ;

GfxTextOut( "D: " + DD, Hor , Ver );
}
_SECTION_END();

//--------------- Delta = Vn30-Vn30F ---------------

//--------------- Hien thi Giá trên Chart_15.07.19 ---------------
_SECTION_BEGIN( "Magnified Market Price" );
Market = ParamToggle( "Market", "Show|Hide", 1 );
if ( Market == 1 )
{

FS = Param( "Font Size", 14, 11, 100, 1 );
GfxSelectFont( "Arial", FS, 700, italic = False, underline = False, True );
GfxSetBkMode( colorWhite );
GfxSetTextColor( ParamColor( "Color", colorCustom11) );
Hor = Param( "Horizontal Position", 2, 1, 1200, 1 );
Ver = Param( "Vertical Position", 63, 1, 1, 1 );
GfxTextOut( "" + C, Hor , Ver );
YC = TimeFrameGetPrice( "C", inDaily, -1 );
DD = Prec( C - YC, 2 );
xx = Prec( ( DD / YC ) * 100, 1 );
GfxSelectFont( "Arial", 10, 700, italic = False, underline = False, True );
GfxSetBkMode( colorWhite );
GfxSetTextColor( ParamColor( "Color", colorViolet ) );
GfxTextOut( "" + DD + " (" + xx + "%)", Hor + 0, Ver + 20 );
}
_SECTION_END();
//--------------- Hien thi Giá trên Chart_15.07.19 ---------------

--- Gộp bài viết, 01/08/2021 ---

Chỉ cần Code này đủ các bạn tìm đủ thứ trên tt.
Lưu ý Đang dùng trên bản A 6.20.3, phải cài thêm phần phụ trợ PatternExplorer thì mới chạy Code này hoàn chỉnh được
Xem tất cả

bác share em file được không, em cop mà không chạy được ạ

Lãi là giả nhưng lỗ là thật!

cp2011 thích bài này.

Loan tin | Thích |Báo vi phạm
thanhlong97 Thành viên rất tích cực

Tham gia ngày:

16/11/2015

Đã được thích:

132

#22

29/08/2021, 10:32

cp2011 đã viết: ↑

Cái này do Google Chrome nó không hỗ trợ Flash từ 2021 nên không úp ảnh lên F319 này như trước đây bạn ah. Nếu bạn biết cách nào để khắc phục lỗi này thì chỉ giúp mình. mình đang cần đến đó.

--- Gộp bài viết, 01/08/2021, Bài cũ: 01/08/2021 ---

Bạn mở Code nào đó ra rồi thêm phần Volume vào trong đó là được mà. không cần dùng đến chart Volume riêng như kia...
Tặng các bạn 1 Code mình đang dùng...
//-------------------------------- Fibnacci Inter & Exter Retracements_14-180_31.0.2021 PS-------------------------------------

#pragma nocache
#include_once
//#include_once "C:\Program Files (x86)\AmiBroker\Formulas\PatternExplorer\#Defaults & Mods\PE - Defaults.afl"
//#include_once "C:\Program Files (x86)\AmiBroker\Formulas\PatternExplorer\#Defaults & Mods\PE - Mods.afl"
#include_once "C:\Program Files\AmiBroker\Formulas\PatternExplorer\#Defaults & Mods\PE - Defaults.afl"
#include_once "C:\Program Files\AmiBroker\Formulas\PatternExplorer\#Defaults & Mods\PE - Mods.afl"
GraphZOrder = 0;

//-------------- Start Ve Chart ---------------
Vert = Param("Vertical Chart Zoom", 15, - 15, 50, 1);//Co gian Chart theo chieu doc (Vertical)
GraphXSpace = Vert;
SetChartOptions(0,chartShowDates);// 0= Dat Date duoi Chart
Plot(C, "", IIf(O>=C, colorCustom16, colorCustom6), ParamStyle("Price Style",styleLine+styleDots+styleThick+styleCandle,maskPrice)); // Chart = Candlde.
//-------------- End Ve Chart ---------------

_SECTION_BEGIN( "Volume" );

PlotVolume = ParamToggle( "Plot Volume", "Off|On", 0 );
Type = ParamList( "Color Mode", "Simple,Standard,Extended", def_VolumeType );
UpColor = ParamColor( "Up Color", def_VolumeUpColor );
DnColor = ParamColor( "Down Color", def_VolumeDnColor );
NeutralColor = ParamColor( "Neutral Color", def_VolumeNeutralColor );
style = ParamStyle( "Style", styleHistogram | styleOwnScale | styleNoTitle | styleNoLabel, maskHistogram );
VolumeHeight = 7.1 - Param( "Volume Height", 0.1, 0, 7.1, 0.1 );

/*******************************************************************************************/
if ( Type == "Simple" AND PlotVolume )
Plot( Volume, _DEFAULT_NAME(), NeutralColor, style, VolumeHeight );

/*******************************************************************************************/
if ( Type == "Standard" AND PlotVolume )
Plot( Volume, _DEFAULT_NAME(), IIf( C > O, UpColor, DnColor ), style, VolumeHeight );

/*******************************************************************************************/
if ( Type == "Extended" AND PlotVolume )
Plot( Volume, _DEFAULT_NAME(), IIf( C > Ref( C, -1 ) AND V > Ref( V, -1 ), UpColor, IIf( C Ref( V, -1 ), DnColor, NeutralColor ) ), style, VolumeHeight );

_SECTION_END();

//////////////////////////////////////////////////////////////////
_SECTION_BEGIN("Fib Retracements");
fibs = ParamToggle("Plot Fibs","Off|On",0);
text = ParamToggle("Plot Text","Off|On",0);
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);
hts = Param ("Text Shift", -33.5,-50,50,0.10);
style =ParamStyle("Line Style",styleLine,styleNoLabel|styleNoTitle);
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 xRp0, ySp0 + retval,IIf(ret > 1.0
AND xSp0 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,colorLime,colorRed);
color100 =IIf(xSp0 Ref(C,-1),EncodeColor(colorCustom6),EncodeColor(colorRed))+ WriteVal( Open, 1.2 ) +" ("+WriteVal(Open- Ref(C,-1) ,1.2)+")"
+EncodeColor(colorWhite) + "_High : " +WriteIf(H>Ref(C,-1),EncodeColor(colorCustom6),EncodeColor(colorRed))+ WriteVal( H , 1.2 ) +" ("+WriteVal(High- Ref(C,-1) ,1.2)+")"
+EncodeColor(colorWhite) + "_Low : " +WriteIf(L>Ref(C,-1),EncodeColor(colorCustom6),EncodeColor(colorRed))+ WriteVal( L, 1.2 ) +" ("+WriteVal(Low- Ref(C,-1) ,1.2)+")"
+EncodeColor(colorWhite) + "_Close : " +WriteIf(C>Ref(C,-1),EncodeColor(colorCustom6),EncodeColor(colorRed))+ WriteVal( C, 1.2 ) +" ("+WriteVal(C- Ref(C,-1) ,1.2)+")"
+EncodeColor(colorWhite) + "_Vol : " +WriteIf(V>Ref(V,-1),EncodeColor(colorCustom6),EncodeColor(colorRed))+ WriteVal( V, 1.0 )+" ("+WriteVal(V- Ref(V,-1) ,1.0)+")"
+"\n" +"**" + "{{VALUES}}" ;
}
//-------------------------------- Title 26.03.2020 PS-------------------------------------

range = Param("Periods", 7, 2, 200, 1 );
Bull_Trend=(Trix(range) >= Ref(Trix(range),-1)); //(Trix(range) >= Ref(Trix(range),-1)) AND (Ref(Trix(range),-1) >= Ref(Trix(range),-2));
Bear_Trend=(Trix(range-1) = Ref(Trix(range),-1)); //(Trix(range) >= Ref(Trix(range),-1)) AND (Ref(Trix(range),-1) >= Ref(Trix(range),-2));
Bear_Trend=(Trix(range-1) x1;
dn = Cross(L1, L)AND Cum(1) > x1;
//------End Ve duong Line Kháng cu/Ho Tro-----
}

//--------------- Ve Thanh Bar Báo TOP/BOTTOM ---------------

_SECTION_BEGIN("Trendlines Multitimeframe");// Ve Thanh bar ÐINH/ÐÁY

Version(5.21);
xx=BarIndex();x=xx;Lx=LastValue(x);
nbar=Param("N Pivot Bars",14,2,50,1);
tf=Param("Time Frame (min)",180,1,100000,1);tfrm=in1Minute*tf;// Ve so thanh bar tai vi tri TOP/Bottom
CleanPivots=ParamToggle("Use Clean Pivots","On|Off",0);
PivotSymmetry=ParamToggle("Use Symmetric Pivots","On|Off",1);

TimeFrameSet(tfrm);
if (PivotSymmetry)
{
fc=1;
pk=H>Ref(HHV(H,nbar*fc),-1) AND Ref(HHV(H,nbar),nbar)=L;
}
else
{
fc=2;
pk=H>Ref(HHV(H,nbar*fc),-1) AND Ref(HHV(H,nbar),nbar)=L;
}
px0=ValueWhen(pk,x,0); tx0=ValueWhen(tr,x,0);
px1=ValueWhen(pk,x,1); tx1=ValueWhen(tr,x,1);
px2=ValueWhen(pk,x,2); tx2=ValueWhen(tr,x,2);
ph0=ValueWhen(pk,H,0); tl0=ValueWhen(tr,L,0);
ph1=ValueWhen(pk,H,1); tl1=ValueWhen(tr,L,1);
ph2=ValueWhen(pk,H,2); tl2=ValueWhen(tr,L,2);
if (CleanPivots)
{
tr=IIf(pk AND tr AND ph1>ph2 AND tl1>tl2,False,tr);
pk=IIf(pk AND tr AND ph1ph1,False,tr);
pk=IIf(pk AND px0ph1,False,pk);
tr=IIf(tr AND px0>tx0 AND tl0tx1 AND ph1px1 AND tl1>=tl2,False,tr);
pk=IIf(pk AND px0>px1 AND px1>tx1 AND px1>tx0 AND ph0>ph1,False,pk);
tr=IIf(tr AND tx0>tx1 AND tx1>px1 AND tx1>px0 AND tl0tx1 AND ph1px1 AND tl1>ph1,False,tr);
pk=IIf(pk AND px0ph1,False,pk);
tr=IIf(tr AND px0>tx0 AND tl0tx1 AND ph1px1 AND tl1>=tl2,False,tr);
pk=IIf(pk AND px0>px1 AND px1>tx1 AND px1>tx0 AND ph0>ph1,False,pk);
tr=IIf(tr AND tx0>tx1 AND tx1>px1 AND tx1>px0 AND tl0tx1 AND px2>tx1 AND ph1px1 AND tx2>px1 AND tl1>tl2,False,tr);
}
pkh=IIf(pk,H,Null);
trl=IIf(tr,L,Null);
TimeFrameRestore();
fact=Max(tfrm/60,Interval()/60)/(Interval()/60);
Lkbk=tfrm/Interval();

if(Lkbk>1)
{
pk=TimeFrameExpand(pk,tfrm,expandFirst);
pkh=TimeFrameExpand(pkh,tfrm,expandFirst);
pkhs=IIf(!IsEmpty(pkh),1,0);pkhs=pkhs-Ref(pkhs,-1);
pk=pk AND H==pkh;
cond1=Sum(pk,BarsSince(pkhs==1)+1)==1 AND pk;
pk=pk AND cond1;

tr=TimeFrameExpand(tr,tfrm,expandFirst);
trl=TimeFrameExpand(trl,tfrm,expandFirst);
trls=IIf(!IsEmpty(trl),1,0);trls=trls-Ref(trls,-1);
tr=tr AND L==trl;
cond1=Sum(tr,BarsSince(trls==1)+1)==1 AND tr;
tr=tr AND cond1;

px0=ValueWhen(pk,x,0); tx0=ValueWhen(tr,x,0);
px1=ValueWhen(pk,x,1); tx1=ValueWhen(tr,x,1);
px2=ValueWhen(pk,x,2); tx2=ValueWhen(tr,x,2);
ph0=ValueWhen(pk,H,0); tl0=ValueWhen(tr,L,0);
ph1=ValueWhen(pk,H,1); tl1=ValueWhen(tr,L,1);
ph2=ValueWhen(pk,H,2); tl2=ValueWhen(tr,L,2);
}

y0=ValueWhen(tr,trl,0);
y1=ValueWhen(tr,trl,1);
y2=ValueWhen(tr,trl,2);
y3=ValueWhen(tr,trl,3);
x0=ValueWhen(tr,xx,0);
x1=ValueWhen(tr,xx,1);
x2=ValueWhen(tr,xx,2);
x3=ValueWhen(tr,xx,3);
aa=(Y0-Y1)/(X0-X1);
ls1=aa*(xx-X1)+Y1;
dls1=ls1-Ref(ls1,-1);
aa=(Y1-Y2)/(X1-X2);
ls2=aa*(xx-X1)+Y1;
dls2=ls2-Ref(ls2,-1);
dls2=IIf(tr,Ref(dls1,-1),dls2);
aa=(Y2-Y3)/(X2-X3);
ls3=aa*(xx-X2)+Y2;
dls3=ls3-Ref(ls3,-1);
dls3=IIf(tr,Ref(dls2,-1),dls3);
y0=ValueWhen(pk,pkh,0);
y1=ValueWhen(pk,pkh,1);
y2=ValueWhen(pk,pkh,2);
y3=ValueWhen(pk,pkh,3);
x0=ValueWhen(pk,xx,0);
x1=ValueWhen(pk,xx,1);
x2=ValueWhen(pk,xx,2);
x3=ValueWhen(pk,xx,3);
aa=(Y0-Y1)/(X0-X1);
hs1=aa*(xx-X1)+Y1;
dhs1=hs1-Ref(hs1,-1);
aa=(Y1-Y2)/(X1-X2);
hs2=aa*(xx-X1)+Y1;
dhs2=hs2-Ref(hs2,-1);
dhs2=IIf(pk,Ref(dhs1,-1),dhs2);
aa=(Y2-Y3)/(X2-X3);
hs3=aa*(xx-X2)+Y2;
dhs3=hs3-Ref(hs3,-1);
dhs3=IIf(pk,Ref(dhs2,-1),dhs3);

_SECTION_BEGIN("Multi_nBar");

fse=Param("Font Size",12,11,100,1);
GfxSelectFont("Times New Roman", fse, 700,False );
GfxSetBkMode( colorGold );

GfxSetTextColor( ParamColor("Color",colorGold) );
Hora1=Param("n(bar)Horizontal",2,1,1200,1);
Vera1=Param("n(bar)Vertical",97,1,830,1);
//GfxTextOut("Bar :"+nbar, Hora1 , Vera1 );
//---------ON-OFF bien Bar----------
Barr = ParamToggle( "Barr", "Show|Hide", 1 );
if (Barr == 1 )
{
GfxTextOut("Bar :"+nbar, Hora1 , Vera1 );
}
//---------ON-OFF bien Bar----------
_SECTION_END();
//=====
_SECTION_BEGIN("Multi_TFR(min)");
fse=Param("Font Size",12,11,100,1);
GfxSelectFont("Times New Roman", fse, 700,False );
GfxSetBkMode( colorGold );

GfxSetTextColor( ParamColor("Color",colorGold) );
Hora2=Param("TimeFR Horizontal",2,1,1200,1);
Vera2=Param("TimeFR Vertical",115,1,830,1);
//GfxTextOut("Min:"+tf, Hora2 , Vera2 );
//---------ON-OFF bien Time----------
Minut = ParamToggle( "Min:", "Show|Hide", 0 );
if (Minut == 1 )
{
GfxTextOut("Min:"+tf, Hora2 , Vera2 );
}
//---------ON-OFF bien Time----------
_SECTION_END();

_SECTION_END();

//--------------- Start Ve thanh Bar báo ÐINH/ÐÁY (TOP/Bottom) ---------------
DinhDay = ParamToggle( "Dinh Day", "Show|Hide", 1 );
if ( DinhDay == 1 )
{
_SECTION_BEGIN("Dinh Day");

Plot(pkh,"",colorCustom11,styleThick,0,0,0,-1); // Ve thanh Bar mau Non Chuoi bao ÐINH (TOP)
Plot(trl,"",colorCustom12,styleThick,0,0,0,-1); // Ve thanh Bar mau Tím bao ÐÁY (Bottom )
PlotShapes(shapeSmallCircle*pk,IIf(Lx-ValueWhen(pk,x)>nbar*fact,colorCustom11,colorWhite),0,H,10); // Ve Cham tròn trên Ðinh màu Non Chuoi bao TOP
PlotShapes(shapeSmallCircle*tr,IIf(Lx-ValueWhen(tr,x)>nbar*fact,colorCustom12,colorWhite),0,L,-10); // Ve Cham tròn duoi Ðay màu Tím bao Bottom
PlotShapes(shapeHollowCircle*pk,colorCustom12,0,H,10);// Ve vòng tròn trên Ðinh
PlotShapes(shapeHollowCircle*tr,colorCustom7,0,L,-10);// Ve vòng tròn Duoi ÐÁY

_SECTION_END();
}
//--------------- End Ve thanh Bar báo ÐINH/ÐÁY (TOP/Bottom) ---------------

//--------------- Start Viet gia tri HH,HL,LL,... ---------------
_SECTION_BEGIN("Label");
disp=ParamToggle("Display labels","Off|On",1);

dxhm=Param("Shift X Highs (Margin)",14,-100,100,1);
dxlm=Param("Shift X Lows (Margin)",10,-100,100,1);
dxh=Param("Shift X Highs",0,-100,100,1);
dxl=Param("Shift X Lows",0,-100,100,1);
dyhm=Param("Shift Y Highs (Margin)",5,-100,100,1);
dylm=Param("Shift Y Lows (Margin)",3,-100,100,1);
dyh=Param("Shift Y Highs",18,-100,100,1);
dyl=Param("Shift Y Lows",29,-100,100,1);
hm=Param("Marging High",30,-100,100,1);
lm=Param("Margin Low",30,-100,100,1);

function GetVisibleBarCount()
{
lvb=Status("lastvisiblebar");
fvb=Status("firstvisiblebar");
return Min(lvb-fvb,BarCount-fvb);
}
function GfxConvertPixelsToBarX(Pixels)
{
lvb=Status("lastvisiblebar");
fvb=Status("firstvisiblebar");
pxchartleft=Status("pxchartleft");
pxchartwidth=Status("pxchartwidth");
fac=pxchartwidth/Pixels;
bar=(lvb-fvb)/fac;
return bar;
}
function GfxConvertPixelToValueY(Pixels)
{
local Miny,Maxy,pxchartbottom,pxchartheight;
Miny=Status("axisminy");
Maxy=Status("axismaxy");
pxchartbottom=Status("pxchartbottom");
pxchartheight=Status("pxchartheight");
fac=pxchartheight/Pixels;
Value=(Maxy-Miny)/fac;
return Value;
}

if(disp)
{
ll=tr AND tl1tl2;

hh=pk AND ph1>ph2;
lh=pk AND ph1LowMargin) PlotText("LL",i+fvb+dxll,L[i+fvb]-dyll,colorWhite,colorBlack);
if(ll[i+fvb] AND L[i+fvb]LowMargin) PlotText("HL",i+fvb+dxll,L[i+fvb]-dyll,colorWhite,colorBlack);
if(hl[i+fvb] AND L[i+fvb]LowMargin) PlotText("DB",i+fvb+dxll,L[i+fvb]-dyll,colorWhite,colorBlack);
if(db[i+fvb] AND L[i+fvb]=HighMargin) PlotText("HH",i+fvb+dxhh+dxhhm,H[i+fvb]+dyhhm,colorWhite,colorBlack);
if(lh[i+fvb] AND H[i+fvb]=HighMargin) PlotText("LH",i+fvb+dxhh+dxhhm,H[i+fvb]+dyhhm,colorWhite,colorBlack);
if(dt[i+fvb] AND H[i+fvb]=HighMargin) PlotText("DT",i+fvb+dxhh+dxhhm,H[i+fvb]+dyhhm,colorWhite,colorBlack);
}
}

_SECTION_END();
//--------------- End Viet gia tri HH,HL,LL,... ---------------

//----------------- Ve 2 duong trend dao dong bao chu ky SÓNG tren chart ----------------------------------
_SECTION_BEGIN("Sin Lines");
SinLine = ParamToggle( "SinLine", "Show|Hide", 0 );
if ( SinLine == 1 )
{

p1 = Param("TL 1 Periods", 20, 5, 50, 1);
p2 = Param("TL 2 Periods", 5, 3, 25, 1);
TL1 = LinearReg(C, p1);
TL2 = EMA(TL1, p2);
Col1 = IIf(TL1 > TL2, ParamColor("TL Up Colour", colorCustom12), ParamColor("TL Dn Colour", colorCustom11));

Plot(Prec(TL1,3),"\n" + "Line 1", Col1, styleLine|styleNoLabel);
Plot(Prec(TL2,3),"\n" + "Line 2", Col1, styleLine|styleNoLabel);
}
_SECTION_END();
//-----------------End Ve 2 duong trend dao dong bao chu ky SÓNG tren chart ----------------------------------

// --------------- EMA có Prec Chuan 31.05.21------------------
_SECTION_BEGIN("EMA Prec");
//---------------Bat Dau EMA 50,58.65,200----------------------
EMAPrec = ParamToggle( "EMA Prec", "Show|Hide", 0 );
if ( EMAPrec == 1 )
{
_SECTION_BEGIN("EMA20");
EMA20 = ParamToggle( "EMA20", "Show|Hide", 0 );
if ( EMA20 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 20, 2, 100, 1 );
Plot(Prec(EMA( P, Periods ),3),_DEFAULT_NAME(), ParamColor( "Color", colorOrange), ParamStyle("Style", styleLine ) | styleNoRescale );
}
_SECTION_END();

_SECTION_BEGIN("EMA50");
EMA50 = ParamToggle( "EMA50", "Show|Hide", 1 );
if ( EMA50 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 50, 2, 200, 1 );
Plot(Prec(EMA( P, Periods ),3), _DEFAULT_NAME(), ParamColor( "Color", colorCustom7 ), ParamStyle("Style", styleLine | styleThick) | styleNoRescale );
}
_SECTION_END();

_SECTION_BEGIN("EMA58");
EMA58 = ParamToggle( "EMA58", "Show|Hide", 1 );
if ( EMA58 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 58, 2, 300, 1 );
Plot(Prec(EMA( P, Periods ),3), _DEFAULT_NAME(), ParamColor( "Color", colorCustom11), ParamStyle("Style", styleLine | styleThick)| styleNoRescale );
}
_SECTION_END();

_SECTION_BEGIN("EMA65");
EMA65 = ParamToggle( "EMA65", "Show|Hide", 1 );
if ( EMA65 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 65, 2, 400, 1 );
Plot(Prec(EMA( P, Periods ),3), _DEFAULT_NAME(), ParamColor( "Color", colorCustom12), ParamStyle("Style", styleLine | styleThick)| styleNoRescale );
}
_SECTION_END();

_SECTION_BEGIN("EMA200");
EMA200 = ParamToggle( "EMA200", "Show|Hide", 1 );
if ( EMA200 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 200, 2, 500, 1 );
Plot(Prec(EMA( P, Periods ),3), _DEFAULT_NAME(), ParamColor( "Color", colorPink), ParamStyle("Style", styleLine | styleThick | styleNoTitle)| styleNoRescale );
}
_SECTION_END();
//---------------End EMA 50,58,65,200--------------------------

//---------------Start EMA 20_50,20_65, 50_65) Cross-----------
UP1=Cross(EMA(C,20),EMA(C,50)); // MA20 Cat len 50 = UPTrend.
DOWN1=Cross(EMA(C,50),EMA(C,20)); // MA20 Cat Xuong 50 = DOWNTrend.

UP2=Cross(EMA(C,20),EMA(C,65)); // MA20 Cat len 65 = UPTrend.
DOWN2=Cross(EMA(C,65),EMA(C,50)); // MA20 Cat Xuong 65 = DOWNTrend.

UP3=Cross(EMA(C,50),EMA(C,65)); // MA50 Cat len 65 = UPTrend.
DOWN3=Cross(EMA(C,65),EMA(C,50)); // MA50 Cat Xuong 65 = DOWNTrend.

UP4=Cross(EMA(C,100),EMA(C,200)); // MA100 Cat len 200 = UPTrend.
DOWN4=Cross(EMA(C,200),EMA(C,100)); // MA200 Cat Xuong 100 = DOWNTrend.

PlotShapes( shapeUpArrow * up1 ,7,0,EMA(C,50)); //Ve Mui ten khi MA20 Cat len MA50. (Yellow=7 =Vàng =Có tín hieu)
PlotShapes( shapeDownArrow *DOWN1 ,7,0,EMA(C,50)); //Ve Mui ten khi MA20 Cat Xuong MA50. (Yellow=7 =Vàng =Có tín hieu)

PlotShapes( shapeUpArrow * up2 ,5,0,EMA(C,65)); //Ve Mui ten khi MA20 Cat len MA65. (5=Custom6 =XanhL=Tín hieu Tang)
PlotShapes( shapeDownArrow *DOWN2 ,4,0,EMA(C,65)); //Ve Mui ten khi MA20 Cat Xuong MA65. (4=Red =Ðo =Tín hieu Giam)

PlotShapes( shapeUpArrow * up3 ,11,0,EMA(C,65)); //Ve Mui ten khi MA20 Cat len MA65. (11=Custom11=Tím =Xác nhan TANG)
PlotShapes( shapeDownArrow *DOWN3 ,10,0,EMA(C,65)); //Ve Mui ten khi MA20 Cat Xuong MA65. (10=Custom10=Aqua =Xác nhan GIAM)

PlotShapes( shapeUpArrow * up4 ,12,0,EMA(C,200)); //Ve Mui ten khi MA100 Cat len MA200. (12=Custom??=... =Xác nhan TANG Dai han)
PlotShapes( shapeDownArrow *DOWN4 ,13,0,EMA(C,200));//Ve Mui ten khi MA200 Cat Xuong MA100. (13=Custom??=... =Xác nhan GIAM Dai han)

}
//---------------End EMA 20_50,20_65, 50_65) Cross-------------
// --------------End EMA có Prec Chuan 31.05.21----------------

// --------------- EMA có Prec Chuan 31.05.21------------------
_SECTION_BEGIN("EMA5 Prec");
//---------------Bat Dau MA5,13,17,20,50,100-----------------
EMAPrec = ParamToggle( "EMA Prec", "Show|Hide", 1 );
if ( EMAPrec == 1 )
{
_SECTION_BEGIN("EMA5");
EMA5 = ParamToggle( "EMA5", "Show|Hide", 1 );
if ( EMA5 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 5, 2, 100, 1 );
Plot(Prec(EMA( P, Periods ),3),_DEFAULT_NAME(), ParamColor( "Color", colorYellow), ParamStyle("Style", styleLine ) | styleNoRescale );
}
_SECTION_END();

_SECTION_BEGIN("EMA13");
EMA13 = ParamToggle( "EMA13", "Show|Hide", 1 );
if ( EMA13 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 13, 2, 200, 1 );
Plot(Prec(EMA( P, Periods ),3), _DEFAULT_NAME(), ParamColor( "Color", colorCustom7 ), ParamStyle("Style", styleLine | styleThick) | styleNoRescale );
}
_SECTION_END();

_SECTION_BEGIN("EMA17");
EMA17 = ParamToggle( "EMA17", "Show|Hide", 1 );
if ( EMA17 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 17, 2, 300, 1 );
Plot(Prec(EMA( P, Periods ),3), _DEFAULT_NAME(), ParamColor( "Color", colorCustom11), ParamStyle("Style", styleLine | styleThick)| styleNoRescale );
}
_SECTION_END();

_SECTION_BEGIN("EMA20");
EMA20 = ParamToggle( "EMA20", "Show|Hide", 1 );
if ( EMA20 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 20, 2, 400, 1 );
Plot(Prec(EMA( P, Periods ),3), _DEFAULT_NAME(), ParamColor( "Color", colorCustom12), ParamStyle("Style", styleLine | styleThick)| styleNoRescale );
}
_SECTION_END();

_SECTION_BEGIN("EMA100");
EMA100 = ParamToggle( "EMA100", "Show|Hide", 1 );
if ( EMA100 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 100, 2, 500, 1 );
Plot(Prec(EMA( P, Periods ),3), _DEFAULT_NAME(), ParamColor( "Color", colorBrown), ParamStyle("Style", styleLine | styleThick | styleNoTitle)| styleNoRescale );
}
_SECTION_END();

_SECTION_BEGIN("EMA200");
EMA200 = ParamToggle( "EMA200", "Show|Hide", 1 );
if ( EMA200 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 200, 2, 500, 1 );
Plot(Prec(EMA( P, Periods ),3), _DEFAULT_NAME(), ParamColor( "Color", colorPink), ParamStyle("Style", styleLine | styleThick | styleNoTitle)| styleNoRescale );
}
_SECTION_END();

//---------------End EMA5,13,17,20,100 ------------------------

//---------------Start EMA 5_13, 5_17, 17_20 Cross-------------
UP1=Cross(EMA(C,5),EMA(C,13)); // MA5 Cat len 13 = UPTrend.
DOWN1=Cross(EMA(C,13),EMA(C,5)); // MA5 Cat Xuong 13 = DOWNTrend.

UP2=Cross(EMA(C,5),EMA(C,17)); // MA5 Cat len 17 = UPTrend.
DOWN2=Cross(EMA(C,17),EMA(C,5)); // MA5 Cat Xuong 17 = DOWNTrend.

UP3=Cross(EMA(C,17),EMA(C,20)); // MA17 Cat len 20 = UPTrend.
DOWN3=Cross(EMA(C,20),EMA(C,17)); // MA17 Cat Xuong 20 = DOWNTrend.

UP4=Cross(EMA(C,100),EMA(C,200)); // MA100 Cat len 200 = UPTrend.
DOWN4=Cross(EMA(C,200),EMA(C,100)); // MA200 Cat Xuong 100 = DOWNTrend.

PlotShapes( shapeUpArrow * up1 ,7,0,MA(C,13)); //Ve Mui ten khi MA5 Cat len MA13. (Yellow=7 =Vàng =Có tín hieu)
PlotShapes( shapeDownArrow *DOWN1 ,7,0,MA(C,13)); //Ve Mui ten khi MA5 Cat Xuong MA13. (Yellow=7 =Vàng =Có tín hieu)

PlotShapes( shapeUpArrow * up2 ,5,0,MA(C,20)); //Ve Mui ten khi MA5 Cat len MA17. (5=Custom6 =XanhL=Tín hieu Tang)
PlotShapes( shapeDownArrow *DOWN2 ,4,0,MA(C,20)); //Ve Mui ten khi MA5 Cat Xuong MA17. (4=Red =Ðo =Tín hieu Giam)

PlotShapes( shapeUpArrow * up3 ,11,0,MA(C,20)); //Ve Mui ten khi MA17 Cat len MA20. (11=Custom12=Tím =Xác nhan TANG)
PlotShapes( shapeDownArrow *DOWN3 ,10,0,MA(C,20)); //Ve Mui ten khi MA17 Cat Xuong MA20. (10=Custom11=Aqua =Xác nhan GIAM)

PlotShapes( shapeUpArrow * up4 ,12,0,EMA(C,200)); //Ve Mui ten khi MA100 Cat len MA200. (12=Custom??=... =Xác nhan TANG Dai han)
PlotShapes( shapeDownArrow *DOWN4 ,13,0,EMA(C,200));//Ve Mui ten khi MA200 Cat Xuong MA100. (13=Custom??=... =Xác nhan GIAM Dai han)

}
//---------------End EMA 5_13, 5_17, 17_20 Cross-------------
// --------------End EMA có Prec Chuan 31.05.21----------------

// --------- BollingerBand 02_11.03.20 ---------
_SECTION_BEGIN("BBands Fill");// Có màu BackGround.
BOLLINGER = ParamToggle( "Bollinger Fill", "Show|Hide", 1 );
if ( BOLLINGER == 1 )
{
P = ParamField("Price field",-1);
Periods = Param("Periods", 20, 2, 300, 1 );
Width = Param("Width", 2, 0, 10, 0.05 );
Color = ParamColor("Color", colorLightGrey );
Color = ColorBlend( Color, GetChartBkColor(), 0.5 );
Style = ParamStyle("Style", styleLine | styleNoTitle ) | styleNoRescale;

Plot(Prec(bbt = BBandTop( P, Periods, Width ),3), "BBTop" + _PARAM_VALUES(), Color, Style );
Plot(Prec(bbb = BBandBot( P, Periods, Width ),3), "BBBot" + _PARAM_VALUES(), Color, Style );
Plot(Prec(MA( P,20),3), "BB Mid" + _PARAM_VALUES(), colorLightOrange, styleNoTitle );
PlotOHLC( bbt, bbt, bbb, bbb, "", ColorBlend( Color, GetChartBkColor(), 0.7 ), styleNoLabel | styleCloud | styleNoRescale, Null, Null, Null, -1 );
_SECTION_END(); // Có màu BackGround.
}
// --------- End BollingerBand 02_11.03.20 ---------

//----- Start Viet muc gia dong cua tai vi tri nen Close-----
_SECTION_BEGIN("Price Line");
PriceLine = ParamToggle( "Price Line", "Show|Hide", 1 );
if ( PriceLine == 1 )
{
PriceLineColor=ParamColor("PriceLineColor",colorCustom12);
PriceLevel = ParamField("PriceField", field = 3 );
Daysback = Param("Bars Back",300,10,500,1);
FirstBar = BarCount - DaysBack;
YY = IIf(BarIndex() >= Firstbar,EndValue(PriceLevel),Null);

Plot(YY,"Current Price",PriceLineColor,ParamStyle("LineStyle",styleLine|styleDashed|styleNoTitle|styleNoLabel,maskAll));

side = Param("side",1,0,1000,1);
dist = 0.5;

for( i = 0; i < BarCount; i++ )
{
if(i+side== BarCount) PlotText( "\n << " + PriceLevel[ i ], i, YY[ i ]+dist, colorCustom12 );
}
}
_SECTION_END();
//----- End Viet muc gia dong cua tai vi tri nen Close-----

//--------------- Ðem nguoc thoi gian ---------------
_SECTION_BEGIN("Time Left");
function GetSecondNum()
{
Time = Now( 4 );
Seconds = int( Time % 100 );
Minutes = int( Time / 100 % 100 );
Hours = int( Time / 10000 % 100 );
SecondNum = int( Hours * 60 * 60 + Minutes * 60 + Seconds );
return SecondNum;
}
RequestTimedRefresh( 1 );
TimeFrame = Interval();
SecNumber = GetSecondNum();
Newperiod = SecNumber % TimeFrame == 0;
SecsLeft = SecNumber - int( SecNumber / TimeFrame ) * TimeFrame;
SecsToGo = TimeFrame - SecsLeft;

x=Param("xposn",2,0,1000,1);
y=Param("yposn",32,0,1000,1);
MM = ParamToggle( "Time Left", "Show|Hide", 0 );
if ( MM == 1 )
{
if ( NewPeriod )
GfxRoundRect( x+45, y+17, x-3, y-2, 0, 0 );
GfxSetBkMode(1);
GfxSelectFont( "Arial", 12, 700, False );
GfxSetTextColor( colorWhite );
GfxTextOut( ""+SecsToGo+" / "+NumToStr( TimeFrame, 1.0 ), x, y );
}
_SECTION_END();
//--------------- Ðem nguoc thoi gian ---------------

//--------------- Delta = Vn30-Vn30F ---------------
_SECTION_BEGIN( "Delta Vn30-Vn30F1M" );
Delta = ParamToggle( "Delta", "Show|Hide", 0 );
if ( Delta == 1 )
{

stck1=C; // Gia Vn30F1M
symbol2="Vn30";
stck2=Foreign(symbol2,"C");
Delta=stck1-stck2;

FS=Param("font Size",12,11,100,1);
GfxSelectFont( "Arial", 12, 700, False );

GfxSetBkMode( colorWhite );
GfxSetTextColor(ParamColor( "Color",colorWhite));
Hor = Param( "Horizontal Position", 2, 1, 1200, 1 );
Ver = Param( "Vertical Position", 50 , 1, 830, 1 );
DD=Prec(delta,2) ;

GfxTextOut( "D: " + DD, Hor , Ver );
}
_SECTION_END();

//--------------- Delta = Vn30-Vn30F ---------------

//--------------- Hien thi Giá trên Chart_15.07.19 ---------------
_SECTION_BEGIN( "Magnified Market Price" );
Market = ParamToggle( "Market", "Show|Hide", 1 );
if ( Market == 1 )
{

FS = Param( "Font Size", 14, 11, 100, 1 );
GfxSelectFont( "Arial", FS, 700, italic = False, underline = False, True );
GfxSetBkMode( colorWhite );
GfxSetTextColor( ParamColor( "Color", colorCustom11) );
Hor = Param( "Horizontal Position", 2, 1, 1200, 1 );
Ver = Param( "Vertical Position", 63, 1, 1, 1 );
GfxTextOut( "" + C, Hor , Ver );
YC = TimeFrameGetPrice( "C", inDaily, -1 );
DD = Prec( C - YC, 2 );
xx = Prec( ( DD / YC ) * 100, 1 );
GfxSelectFont( "Arial", 10, 700, italic = False, underline = False, True );
GfxSetBkMode( colorWhite );
GfxSetTextColor( ParamColor( "Color", colorViolet ) );
GfxTextOut( "" + DD + " (" + xx + "%)", Hor + 0, Ver + 20 );
}
_SECTION_END();
//--------------- Hien thi Giá trên Chart_15.07.19 ---------------

--- Gộp bài viết, 01/08/2021 ---

Chỉ cần Code này đủ các bạn tìm đủ thứ trên tt.
Lưu ý Đang dùng trên bản A 6.20.3, phải cài thêm phần phụ trợ PatternExplorer thì mới chạy Code này hoàn chỉnh được
Xem tất cả

Xin hỏi các cao nhân cách code trong amibroker , về cách viết code sao cho khi xuất hiện chỉ báo Buy ,thì sẽ không lặp lại chỉ báo Buy trong 10 hoặc 20 nến tiếp theo . Em xin cảm ơn.

-Cùng nhau chia sẽ kinh nghiệm phân tích thị trường chứng khoán , tự do trao đổi cùng nhau, không thu phí.

LINK
-NHÓM ZL : https://bit.ly/2SgrypA
-NHÓM FB: https://www.facebook.com/groups/162750188959117/

Hoa_Sim_Tim và cp2011 thích bài này.

Loan tin | Thích |Báo vi phạm
dautruongck Thành viên rất tích cực

Tham gia ngày:

10/09/2015

Đã được thích:

180

#23

08/09/2021, 08:15

cp2011 đã viết: ↑

Thấy các bác trên F319 này đã có động thái "RAO BÁN" Code cho amibroker. Thấy nhiều người cũng quan tâm
Nay mình quyết định chia sẻ miễn phí cho mọi người nếu cần. Đặc biệt là những người mới tham gia thị trường, và cũng thích theo trường phái TA.
Trước tiên mình cũng khuyên các bạn nếu chỉ Thuần TA thì không thể chiến thắng được tt. Thuần FA cũng vậy phải biết điểm vào /điểm ra chuẩn đấy nhé!!
Nếu có công cụ tốt nhưng không biết cách khai thác, sử dụng nhuần nhuyễn thì cũng Tỏm thôi!
Với tiêu chí bộ lọc cho Ami, mình đã sử dụng nó để lọc nhanh các mã có khả năng sinh lời . Sau đây là kết quả lọc sau 4 phiên gd, Từ ngày 31/05-04/06:
Ô Sorry mình định gửi File và ảnh lên nhưng không biết cách up từ máy tính. Có bạn nào chỉ dẫn cho mình với?
## 10 Năm giờ mới quay lại F !!!
Xem tất cả

Bạn gửi cho mình code với . Thanks

cp2011 thích bài này.

Loan tin | Thích |Báo vi phạm
cp2011 Thành viên gắn bó với f319.com

Tham gia ngày:

12/04/2010

Đã được thích:

1.822

#24

08/09/2021, 08:18

Muoibo đã viết: ↑

bác share em file được không, em cop mà không chạy được ạ
Xem tất cả

Toàn bộ 1 file AFL đó rồi bạn. File mình đang dùng đó.
1/ Bạn phải cài thêm phần mềm PatternExplorer 3.75 vì mình có dùng thêm phần hiển thị Volume sửa file gốc từ PatternExplorer trong file đang chia sẻ này và một số file khác để đọc các mẫu hình nến tiêu chuẩn Harmonic
2/ File này mình viết chung cho 2 loại Win. Chọn địa chỉ trong phần này tuỳ thuộc bạn cài Ami ở đâu trên máy tính và Win bạn đang dùng
Như dưới đây là mình đang cài dùng cho Win 8 trở lên (dùng 2 dòng trên). 2 dòng dưới dùng cho Win7 cũ
Dùng Win nào thì mở khoá cho nó để nó truy xuất vào đúng nguồn để đọc dư liệu.
//--------------------------------------------------
#include_once "C:\Program Files (x86)\AmiBroker\Formulas\PatternExplorer\#Defaults & Mods\PE - Defaults.afl"
#include_once "C:\Program Files (x86)\AmiBroker\Formulas\PatternExplorer\#Defaults & Mods\PE - Mods.afl"
//#include_once "C:\Program Files\AmiBroker\Formulas\PatternExplorer\#Defaults & Mods\PE - Defaults.afl"
//#include_once "C:\Program Files\AmiBroker\Formulas\PatternExplorer\#Defaults & Mods\PE - Mods.afl"
//---------------------------------------------------

===================================================

tungntxd89 và alibaba1719 thích bài này.

Loan tin | Thích |Báo vi phạm
cp2011 Thành viên gắn bó với f319.com

Tham gia ngày:

12/04/2010

Đã được thích:

1.822

#25

08/09/2021, 09:00

thanhlong97 đã viết: ↑

Xin hỏi các cao nhân cách code trong amibroker , về cách viết code sao cho khi xuất hiện chỉ báo Buy ,thì sẽ không lặp lại chỉ báo Buy trong 10 hoặc 20 nến tiếp theo . Em xin cảm ơn.
Xem tất cả

Cái này để làm gì? Nếu đúng giá trị cài đặt thì nó phải hiển thị mới đạt yêu cầu!
Bạn thay đổi khung tg xem là giải quyết được vấn đề đó...
Vấn đề là bạn đưa số liệu tính toán vào như nào để nó hiển thị chính xác nhất theo khung thời gian mình thường sử dụng mới là quan trọng
Cũng nói thêm rằng kỹ năng đọc chỉ báo là điều quan trọng....Ví dụ SideWay thì chỉ báo bị nhiễu loạn, cho Buy/Sell liên tục!!! Các bạn cứ nhầm tưởng là Chỉ báo sai, không chính xác!!!??? Vậy khi gặp ngay trường hợp này thì nghĩ ngay tới giai đoạn tich luỹ (SideWay) trước khi giá xác định theo hướng mới. Lúc này các bạn cần mở thêm các chỉ báo khác hỗ trợ thêm như BollingerBand, Hướng các EMA hoặc chuyển lên khung tg lớn hớn để có góc nhìn dễ hơn... Và quan trọng là mẫu hình nến (Priceaction) trong giai đoạn đó

--- Gộp bài viết, 08/09/2021, Bài cũ: 08/09/2021 ---

dautruongck đã viết: ↑

Bạn gửi cho mình code với . Thanks
Xem tất cả

Inbook riêng cho số zalô để mình hỗ trợ, vì kg gửi được lên đây, đang bị lỗi

--- Gộp bài viết, 08/09/2021 ---

Muoibo đã viết: ↑

bác share em file được không, em cop mà không chạy được ạ
Xem tất cả

Inbook riêng cho số zalô để mình hỗ trợ, vì kg gửi được lên đây, đang bị lỗi

Last edited: 08/09/2021

===================================================

Chung2018, alibaba1719 và thanhlong97 thích bài này.

thanhlong97 đã loan bài này

Loan tin | Thích |Báo vi phạm
alibaba1719 Thành viên gắn bó với f319.com

Tham gia ngày:

01/07/2019

Đã được thích:

4.048

#26

08/09/2021, 09:02

cp2011 đã viết: ↑

Thấy các bác trên F319 này đã có động thái "RAO BÁN" Code cho amibroker. Thấy nhiều người cũng quan tâm
Nay mình quyết định chia sẻ miễn phí cho mọi người nếu cần. Đặc biệt là những người mới tham gia thị trường, và cũng thích theo trường phái TA.
Trước tiên mình cũng khuyên các bạn nếu chỉ Thuần TA thì không thể chiến thắng được tt. Thuần FA cũng vậy phải biết điểm vào /điểm ra chuẩn đấy nhé!!
Nếu có công cụ tốt nhưng không biết cách khai thác, sử dụng nhuần nhuyễn thì cũng Tỏm thôi!
Với tiêu chí bộ lọc cho Ami, mình đã sử dụng nó để lọc nhanh các mã có khả năng sinh lời . Sau đây là kết quả lọc sau 4 phiên gd, Từ ngày 31/05-04/06:
Ô Sorry mình định gửi File và ảnh lên nhưng không biết cách up từ máy tính. Có bạn nào chỉ dẫn cho mình với?
## 10 Năm giờ mới quay lại F !!!
Xem tất cả

chào bác, bác có thể ib cho e xin 1 số code về bollingerband được không. Em cảm ơn!

Loan tin | Thích |Báo vi phạm
cp2011 Thành viên gắn bó với f319.com

Tham gia ngày:

12/04/2010

Đã được thích:

1.822

#27

08/09/2021, 09:07

wildboar đã viết: ↑

Bác cho hỏi cai dode cũ của tui phần BB như sau:

P = ParamField("Price field",-1);
Periods = Param("Periods", 15, 2, 100, 1 );
Width = Param("Width", 2, 0, 10, 0.05 );
Color = ParamColor("Color", colorLightGrey );
Style = ParamStyle("Style", styleLine | styleNoLabel ) | styleNoLabel;
Plot( bbt = BBandTop( P, Periods, Width ), "BBTop" + _PARAM_VALUES(), Color, Style );
Plot( bbb = BBandBot( P, Periods, Width ), "BBBot" + _PARAM_VALUES(), Color, Style );
PlotOHLC( bbt, bbt, bbb, bbb, "", ColorBlend( Color, GetChartBkColor(), 0.8 ), styleNoLabel | styleCloud | styleNoRescale, Null, Null, Null, -1 );

đoạn này của bác thì cắt đoan nào dán vào
// --------- BollingerBand 02_11.03.20 ---------
_SECTION_BEGIN("BBands Fill");// Có màu BackGround.
BOLLINGER = ParamToggle( "Bollinger Fill", "Show|Hide", 1 );
if ( BOLLINGER == 1 )
{
P = ParamField("Price field",-1);
Periods = Param("Periods", 20, 2, 300, 1 );
Width = Param("Width", 2, 0, 10, 0.05 );
Color = ParamColor("Color", colorLightGrey );
Color = ColorBlend( Color, GetChartBkColor(), 0.5 );
Style = ParamStyle("Style", styleLine | styleNoTitle ) | styleNoRescale;

Plot(Prec(bbt = BBandTop( P, Periods, Width ),3), "BBTop" + _PARAM_VALUES(), Color, Style );
Plot(Prec(bbb = BBandBot( P, Periods, Width ),3), "BBBot" + _PARAM_VALUES(), Color, Style );
Plot(Prec(MA( P,20),3), "BB Mid" + _PARAM_VALUES(), colorLightOrange, styleNoTitle );
PlotOHLC( bbt, bbt, bbb, bbb, "", ColorBlend( Color, GetChartBkColor(), 0.7 ), styleNoLabel | styleCloud | styleNoRescale, Null, Null, Null, -1 );
_SECTION_END(); // Có màu BackGround.
Xem tất cả

Bạn Cop thiếu dấu } nên nó không đọc được phải đến như sau:
// --------- BollingerBand 02_11.03.20 ---------
_SECTION_BEGIN("BBands Fill");// Có màu BackGround.
BOLLINGER = ParamToggle( "Bollinger Fill", "Show|Hide", 1 );
if ( BOLLINGER == 1 )
{
P = ParamField("Price field",-1);
Periods = Param("Periods", 20, 2, 300, 1 );
Width = Param("Width", 2, 0, 10, 0.05 );
Color = ParamColor("Color", colorLightGrey );
Color = ColorBlend( Color, GetChartBkColor(), 0.5 );
Style = ParamStyle("Style", styleLine | styleNoTitle ) | styleNoRescale;

Plot(Prec(bbt = BBandTop( P, Periods, Width ),3), "BBTop" + _PARAM_VALUES(), Color, Style );
Plot(Prec(bbb = BBandBot( P, Periods, Width ),3), "BBBot" + _PARAM_VALUES(), Color, Style );
Plot(Prec(MA( P,20),3), "BB Mid" + _PARAM_VALUES(), colorLightOrange, styleNoTitle );
PlotOHLC( bbt, bbt, bbb, bbb, "", ColorBlend( Color, GetChartBkColor(), 0.7 ), styleNoLabel | styleCloud | styleNoRescale, Null, Null, Null, -1 );
_SECTION_END(); // Có màu BackGround.
}
// --------- End BollingerBand 02_11.03.20 ---------

===================================================

chuquyenpn và alibaba1719 thích bài này.

Loan tin | Thích |Báo vi phạm
cp2011 Thành viên gắn bó với f319.com

Tham gia ngày:

12/04/2010

Đã được thích:

1.822

#28

08/09/2021, 09:20

alibaba1719 đã viết: ↑

chào bác, bác có thể ib cho e xin 1 số code về bollingerband được không. Em cảm ơn!
Xem tất cả

Để có được màu theo ý muốn , bạn thay đổi màu cho nó (Color), Để có được giá trị BB khác nhau thì thay đổi phần Periods
Mình chỉ dùng theo tiêu chuẩn 20.2 (Periods = Param("Periods", 20, 2, 300, 1 );
Đoạn Code như trên là mình thấy phù hợp với mình về màu sắc BB, màu nền nên chỉ để lại 1 code như vậy, Nếu không thích màu nền thì bỏ dòng vẽ màu nền đi là được...

===================================================

alibaba1719 thích bài này.

Loan tin | Thích |Báo vi phạm
thanhlong97 Thành viên rất tích cực

Tham gia ngày:

16/11/2015

Đã được thích:

132

#29

08/09/2021, 09:52

cp2011 đã viết: ↑

Cái này do Google Chrome nó không hỗ trợ Flash từ 2021 nên không úp ảnh lên F319 này như trước đây bạn ah. Nếu bạn biết cách nào để khắc phục lỗi này thì chỉ giúp mình. mình đang cần đến đó.

--- Gộp bài viết, 01/08/2021, Bài cũ: 01/08/2021 ---

Bạn mở Code nào đó ra rồi thêm phần Volume vào trong đó là được mà. không cần dùng đến chart Volume riêng như kia...
Tặng các bạn 1 Code mình đang dùng...
//-------------------------------- Fibnacci Inter & Exter Retracements_14-180_31.0.2021 PS-------------------------------------

#pragma nocache
#include_once
//#include_once "C:\Program Files (x86)\AmiBroker\Formulas\PatternExplorer\#Defaults & Mods\PE - Defaults.afl"
//#include_once "C:\Program Files (x86)\AmiBroker\Formulas\PatternExplorer\#Defaults & Mods\PE - Mods.afl"
#include_once "C:\Program Files\AmiBroker\Formulas\PatternExplorer\#Defaults & Mods\PE - Defaults.afl"
#include_once "C:\Program Files\AmiBroker\Formulas\PatternExplorer\#Defaults & Mods\PE - Mods.afl"
GraphZOrder = 0;

//-------------- Start Ve Chart ---------------
Vert = Param("Vertical Chart Zoom", 15, - 15, 50, 1);//Co gian Chart theo chieu doc (Vertical)
GraphXSpace = Vert;
SetChartOptions(0,chartShowDates);// 0= Dat Date duoi Chart
Plot(C, "", IIf(O>=C, colorCustom16, colorCustom6), ParamStyle("Price Style",styleLine+styleDots+styleThick+styleCandle,maskPrice)); // Chart = Candlde.
//-------------- End Ve Chart ---------------

_SECTION_BEGIN( "Volume" );

PlotVolume = ParamToggle( "Plot Volume", "Off|On", 0 );
Type = ParamList( "Color Mode", "Simple,Standard,Extended", def_VolumeType );
UpColor = ParamColor( "Up Color", def_VolumeUpColor );
DnColor = ParamColor( "Down Color", def_VolumeDnColor );
NeutralColor = ParamColor( "Neutral Color", def_VolumeNeutralColor );
style = ParamStyle( "Style", styleHistogram | styleOwnScale | styleNoTitle | styleNoLabel, maskHistogram );
VolumeHeight = 7.1 - Param( "Volume Height", 0.1, 0, 7.1, 0.1 );

/*******************************************************************************************/
if ( Type == "Simple" AND PlotVolume )
Plot( Volume, _DEFAULT_NAME(), NeutralColor, style, VolumeHeight );

/*******************************************************************************************/
if ( Type == "Standard" AND PlotVolume )
Plot( Volume, _DEFAULT_NAME(), IIf( C > O, UpColor, DnColor ), style, VolumeHeight );

/*******************************************************************************************/
if ( Type == "Extended" AND PlotVolume )
Plot( Volume, _DEFAULT_NAME(), IIf( C > Ref( C, -1 ) AND V > Ref( V, -1 ), UpColor, IIf( C Ref( V, -1 ), DnColor, NeutralColor ) ), style, VolumeHeight );

_SECTION_END();

//////////////////////////////////////////////////////////////////
_SECTION_BEGIN("Fib Retracements");
fibs = ParamToggle("Plot Fibs","Off|On",0);
text = ParamToggle("Plot Text","Off|On",0);
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);
hts = Param ("Text Shift", -33.5,-50,50,0.10);
style =ParamStyle("Line Style",styleLine,styleNoLabel|styleNoTitle);
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 xRp0, ySp0 + retval,IIf(ret > 1.0
AND xSp0 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,colorLime,colorRed);
color100 =IIf(xSp0 Ref(C,-1),EncodeColor(colorCustom6),EncodeColor(colorRed))+ WriteVal( Open, 1.2 ) +" ("+WriteVal(Open- Ref(C,-1) ,1.2)+")"
+EncodeColor(colorWhite) + "_High : " +WriteIf(H>Ref(C,-1),EncodeColor(colorCustom6),EncodeColor(colorRed))+ WriteVal( H , 1.2 ) +" ("+WriteVal(High- Ref(C,-1) ,1.2)+")"
+EncodeColor(colorWhite) + "_Low : " +WriteIf(L>Ref(C,-1),EncodeColor(colorCustom6),EncodeColor(colorRed))+ WriteVal( L, 1.2 ) +" ("+WriteVal(Low- Ref(C,-1) ,1.2)+")"
+EncodeColor(colorWhite) + "_Close : " +WriteIf(C>Ref(C,-1),EncodeColor(colorCustom6),EncodeColor(colorRed))+ WriteVal( C, 1.2 ) +" ("+WriteVal(C- Ref(C,-1) ,1.2)+")"
+EncodeColor(colorWhite) + "_Vol : " +WriteIf(V>Ref(V,-1),EncodeColor(colorCustom6),EncodeColor(colorRed))+ WriteVal( V, 1.0 )+" ("+WriteVal(V- Ref(V,-1) ,1.0)+")"
+"\n" +"**" + "{{VALUES}}" ;
}
//-------------------------------- Title 26.03.2020 PS-------------------------------------

range = Param("Periods", 7, 2, 200, 1 );
Bull_Trend=(Trix(range) >= Ref(Trix(range),-1)); //(Trix(range) >= Ref(Trix(range),-1)) AND (Ref(Trix(range),-1) >= Ref(Trix(range),-2));
Bear_Trend=(Trix(range-1) = Ref(Trix(range),-1)); //(Trix(range) >= Ref(Trix(range),-1)) AND (Ref(Trix(range),-1) >= Ref(Trix(range),-2));
Bear_Trend=(Trix(range-1) x1;
dn = Cross(L1, L)AND Cum(1) > x1;
//------End Ve duong Line Kháng cu/Ho Tro-----
}

//--------------- Ve Thanh Bar Báo TOP/BOTTOM ---------------

_SECTION_BEGIN("Trendlines Multitimeframe");// Ve Thanh bar ÐINH/ÐÁY

Version(5.21);
xx=BarIndex();x=xx;Lx=LastValue(x);
nbar=Param("N Pivot Bars",14,2,50,1);
tf=Param("Time Frame (min)",180,1,100000,1);tfrm=in1Minute*tf;// Ve so thanh bar tai vi tri TOP/Bottom
CleanPivots=ParamToggle("Use Clean Pivots","On|Off",0);
PivotSymmetry=ParamToggle("Use Symmetric Pivots","On|Off",1);

TimeFrameSet(tfrm);
if (PivotSymmetry)
{
fc=1;
pk=H>Ref(HHV(H,nbar*fc),-1) AND Ref(HHV(H,nbar),nbar)=L;
}
else
{
fc=2;
pk=H>Ref(HHV(H,nbar*fc),-1) AND Ref(HHV(H,nbar),nbar)=L;
}
px0=ValueWhen(pk,x,0); tx0=ValueWhen(tr,x,0);
px1=ValueWhen(pk,x,1); tx1=ValueWhen(tr,x,1);
px2=ValueWhen(pk,x,2); tx2=ValueWhen(tr,x,2);
ph0=ValueWhen(pk,H,0); tl0=ValueWhen(tr,L,0);
ph1=ValueWhen(pk,H,1); tl1=ValueWhen(tr,L,1);
ph2=ValueWhen(pk,H,2); tl2=ValueWhen(tr,L,2);
if (CleanPivots)
{
tr=IIf(pk AND tr AND ph1>ph2 AND tl1>tl2,False,tr);
pk=IIf(pk AND tr AND ph1ph1,False,tr);
pk=IIf(pk AND px0ph1,False,pk);
tr=IIf(tr AND px0>tx0 AND tl0tx1 AND ph1px1 AND tl1>=tl2,False,tr);
pk=IIf(pk AND px0>px1 AND px1>tx1 AND px1>tx0 AND ph0>ph1,False,pk);
tr=IIf(tr AND tx0>tx1 AND tx1>px1 AND tx1>px0 AND tl0tx1 AND ph1px1 AND tl1>ph1,False,tr);
pk=IIf(pk AND px0ph1,False,pk);
tr=IIf(tr AND px0>tx0 AND tl0tx1 AND ph1px1 AND tl1>=tl2,False,tr);
pk=IIf(pk AND px0>px1 AND px1>tx1 AND px1>tx0 AND ph0>ph1,False,pk);
tr=IIf(tr AND tx0>tx1 AND tx1>px1 AND tx1>px0 AND tl0tx1 AND px2>tx1 AND ph1px1 AND tx2>px1 AND tl1>tl2,False,tr);
}
pkh=IIf(pk,H,Null);
trl=IIf(tr,L,Null);
TimeFrameRestore();
fact=Max(tfrm/60,Interval()/60)/(Interval()/60);
Lkbk=tfrm/Interval();

if(Lkbk>1)
{
pk=TimeFrameExpand(pk,tfrm,expandFirst);
pkh=TimeFrameExpand(pkh,tfrm,expandFirst);
pkhs=IIf(!IsEmpty(pkh),1,0);pkhs=pkhs-Ref(pkhs,-1);
pk=pk AND H==pkh;
cond1=Sum(pk,BarsSince(pkhs==1)+1)==1 AND pk;
pk=pk AND cond1;

tr=TimeFrameExpand(tr,tfrm,expandFirst);
trl=TimeFrameExpand(trl,tfrm,expandFirst);
trls=IIf(!IsEmpty(trl),1,0);trls=trls-Ref(trls,-1);
tr=tr AND L==trl;
cond1=Sum(tr,BarsSince(trls==1)+1)==1 AND tr;
tr=tr AND cond1;

px0=ValueWhen(pk,x,0); tx0=ValueWhen(tr,x,0);
px1=ValueWhen(pk,x,1); tx1=ValueWhen(tr,x,1);
px2=ValueWhen(pk,x,2); tx2=ValueWhen(tr,x,2);
ph0=ValueWhen(pk,H,0); tl0=ValueWhen(tr,L,0);
ph1=ValueWhen(pk,H,1); tl1=ValueWhen(tr,L,1);
ph2=ValueWhen(pk,H,2); tl2=ValueWhen(tr,L,2);
}

y0=ValueWhen(tr,trl,0);
y1=ValueWhen(tr,trl,1);
y2=ValueWhen(tr,trl,2);
y3=ValueWhen(tr,trl,3);
x0=ValueWhen(tr,xx,0);
x1=ValueWhen(tr,xx,1);
x2=ValueWhen(tr,xx,2);
x3=ValueWhen(tr,xx,3);
aa=(Y0-Y1)/(X0-X1);
ls1=aa*(xx-X1)+Y1;
dls1=ls1-Ref(ls1,-1);
aa=(Y1-Y2)/(X1-X2);
ls2=aa*(xx-X1)+Y1;
dls2=ls2-Ref(ls2,-1);
dls2=IIf(tr,Ref(dls1,-1),dls2);
aa=(Y2-Y3)/(X2-X3);
ls3=aa*(xx-X2)+Y2;
dls3=ls3-Ref(ls3,-1);
dls3=IIf(tr,Ref(dls2,-1),dls3);
y0=ValueWhen(pk,pkh,0);
y1=ValueWhen(pk,pkh,1);
y2=ValueWhen(pk,pkh,2);
y3=ValueWhen(pk,pkh,3);
x0=ValueWhen(pk,xx,0);
x1=ValueWhen(pk,xx,1);
x2=ValueWhen(pk,xx,2);
x3=ValueWhen(pk,xx,3);
aa=(Y0-Y1)/(X0-X1);
hs1=aa*(xx-X1)+Y1;
dhs1=hs1-Ref(hs1,-1);
aa=(Y1-Y2)/(X1-X2);
hs2=aa*(xx-X1)+Y1;
dhs2=hs2-Ref(hs2,-1);
dhs2=IIf(pk,Ref(dhs1,-1),dhs2);
aa=(Y2-Y3)/(X2-X3);
hs3=aa*(xx-X2)+Y2;
dhs3=hs3-Ref(hs3,-1);
dhs3=IIf(pk,Ref(dhs2,-1),dhs3);

_SECTION_BEGIN("Multi_nBar");

fse=Param("Font Size",12,11,100,1);
GfxSelectFont("Times New Roman", fse, 700,False );
GfxSetBkMode( colorGold );

GfxSetTextColor( ParamColor("Color",colorGold) );
Hora1=Param("n(bar)Horizontal",2,1,1200,1);
Vera1=Param("n(bar)Vertical",97,1,830,1);
//GfxTextOut("Bar :"+nbar, Hora1 , Vera1 );
//---------ON-OFF bien Bar----------
Barr = ParamToggle( "Barr", "Show|Hide", 1 );
if (Barr == 1 )
{
GfxTextOut("Bar :"+nbar, Hora1 , Vera1 );
}
//---------ON-OFF bien Bar----------
_SECTION_END();
//=====
_SECTION_BEGIN("Multi_TFR(min)");
fse=Param("Font Size",12,11,100,1);
GfxSelectFont("Times New Roman", fse, 700,False );
GfxSetBkMode( colorGold );

GfxSetTextColor( ParamColor("Color",colorGold) );
Hora2=Param("TimeFR Horizontal",2,1,1200,1);
Vera2=Param("TimeFR Vertical",115,1,830,1);
//GfxTextOut("Min:"+tf, Hora2 , Vera2 );
//---------ON-OFF bien Time----------
Minut = ParamToggle( "Min:", "Show|Hide", 0 );
if (Minut == 1 )
{
GfxTextOut("Min:"+tf, Hora2 , Vera2 );
}
//---------ON-OFF bien Time----------
_SECTION_END();

_SECTION_END();

//--------------- Start Ve thanh Bar báo ÐINH/ÐÁY (TOP/Bottom) ---------------
DinhDay = ParamToggle( "Dinh Day", "Show|Hide", 1 );
if ( DinhDay == 1 )
{
_SECTION_BEGIN("Dinh Day");

Plot(pkh,"",colorCustom11,styleThick,0,0,0,-1); // Ve thanh Bar mau Non Chuoi bao ÐINH (TOP)
Plot(trl,"",colorCustom12,styleThick,0,0,0,-1); // Ve thanh Bar mau Tím bao ÐÁY (Bottom )
PlotShapes(shapeSmallCircle*pk,IIf(Lx-ValueWhen(pk,x)>nbar*fact,colorCustom11,colorWhite),0,H,10); // Ve Cham tròn trên Ðinh màu Non Chuoi bao TOP
PlotShapes(shapeSmallCircle*tr,IIf(Lx-ValueWhen(tr,x)>nbar*fact,colorCustom12,colorWhite),0,L,-10); // Ve Cham tròn duoi Ðay màu Tím bao Bottom
PlotShapes(shapeHollowCircle*pk,colorCustom12,0,H,10);// Ve vòng tròn trên Ðinh
PlotShapes(shapeHollowCircle*tr,colorCustom7,0,L,-10);// Ve vòng tròn Duoi ÐÁY

_SECTION_END();
}
//--------------- End Ve thanh Bar báo ÐINH/ÐÁY (TOP/Bottom) ---------------

//--------------- Start Viet gia tri HH,HL,LL,... ---------------
_SECTION_BEGIN("Label");
disp=ParamToggle("Display labels","Off|On",1);

dxhm=Param("Shift X Highs (Margin)",14,-100,100,1);
dxlm=Param("Shift X Lows (Margin)",10,-100,100,1);
dxh=Param("Shift X Highs",0,-100,100,1);
dxl=Param("Shift X Lows",0,-100,100,1);
dyhm=Param("Shift Y Highs (Margin)",5,-100,100,1);
dylm=Param("Shift Y Lows (Margin)",3,-100,100,1);
dyh=Param("Shift Y Highs",18,-100,100,1);
dyl=Param("Shift Y Lows",29,-100,100,1);
hm=Param("Marging High",30,-100,100,1);
lm=Param("Margin Low",30,-100,100,1);

function GetVisibleBarCount()
{
lvb=Status("lastvisiblebar");
fvb=Status("firstvisiblebar");
return Min(lvb-fvb,BarCount-fvb);
}
function GfxConvertPixelsToBarX(Pixels)
{
lvb=Status("lastvisiblebar");
fvb=Status("firstvisiblebar");
pxchartleft=Status("pxchartleft");
pxchartwidth=Status("pxchartwidth");
fac=pxchartwidth/Pixels;
bar=(lvb-fvb)/fac;
return bar;
}
function GfxConvertPixelToValueY(Pixels)
{
local Miny,Maxy,pxchartbottom,pxchartheight;
Miny=Status("axisminy");
Maxy=Status("axismaxy");
pxchartbottom=Status("pxchartbottom");
pxchartheight=Status("pxchartheight");
fac=pxchartheight/Pixels;
Value=(Maxy-Miny)/fac;
return Value;
}

if(disp)
{
ll=tr AND tl1tl2;

hh=pk AND ph1>ph2;
lh=pk AND ph1LowMargin) PlotText("LL",i+fvb+dxll,L[i+fvb]-dyll,colorWhite,colorBlack);
if(ll[i+fvb] AND L[i+fvb]LowMargin) PlotText("HL",i+fvb+dxll,L[i+fvb]-dyll,colorWhite,colorBlack);
if(hl[i+fvb] AND L[i+fvb]LowMargin) PlotText("DB",i+fvb+dxll,L[i+fvb]-dyll,colorWhite,colorBlack);
if(db[i+fvb] AND L[i+fvb]=HighMargin) PlotText("HH",i+fvb+dxhh+dxhhm,H[i+fvb]+dyhhm,colorWhite,colorBlack);
if(lh[i+fvb] AND H[i+fvb]=HighMargin) PlotText("LH",i+fvb+dxhh+dxhhm,H[i+fvb]+dyhhm,colorWhite,colorBlack);
if(dt[i+fvb] AND H[i+fvb]=HighMargin) PlotText("DT",i+fvb+dxhh+dxhhm,H[i+fvb]+dyhhm,colorWhite,colorBlack);
}
}

_SECTION_END();
//--------------- End Viet gia tri HH,HL,LL,... ---------------

//----------------- Ve 2 duong trend dao dong bao chu ky SÓNG tren chart ----------------------------------
_SECTION_BEGIN("Sin Lines");
SinLine = ParamToggle( "SinLine", "Show|Hide", 0 );
if ( SinLine == 1 )
{

p1 = Param("TL 1 Periods", 20, 5, 50, 1);
p2 = Param("TL 2 Periods", 5, 3, 25, 1);
TL1 = LinearReg(C, p1);
TL2 = EMA(TL1, p2);
Col1 = IIf(TL1 > TL2, ParamColor("TL Up Colour", colorCustom12), ParamColor("TL Dn Colour", colorCustom11));

Plot(Prec(TL1,3),"\n" + "Line 1", Col1, styleLine|styleNoLabel);
Plot(Prec(TL2,3),"\n" + "Line 2", Col1, styleLine|styleNoLabel);
}
_SECTION_END();
//-----------------End Ve 2 duong trend dao dong bao chu ky SÓNG tren chart ----------------------------------

// --------------- EMA có Prec Chuan 31.05.21------------------
_SECTION_BEGIN("EMA Prec");
//---------------Bat Dau EMA 50,58.65,200----------------------
EMAPrec = ParamToggle( "EMA Prec", "Show|Hide", 0 );
if ( EMAPrec == 1 )
{
_SECTION_BEGIN("EMA20");
EMA20 = ParamToggle( "EMA20", "Show|Hide", 0 );
if ( EMA20 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 20, 2, 100, 1 );
Plot(Prec(EMA( P, Periods ),3),_DEFAULT_NAME(), ParamColor( "Color", colorOrange), ParamStyle("Style", styleLine ) | styleNoRescale );
}
_SECTION_END();

_SECTION_BEGIN("EMA50");
EMA50 = ParamToggle( "EMA50", "Show|Hide", 1 );
if ( EMA50 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 50, 2, 200, 1 );
Plot(Prec(EMA( P, Periods ),3), _DEFAULT_NAME(), ParamColor( "Color", colorCustom7 ), ParamStyle("Style", styleLine | styleThick) | styleNoRescale );
}
_SECTION_END();

_SECTION_BEGIN("EMA58");
EMA58 = ParamToggle( "EMA58", "Show|Hide", 1 );
if ( EMA58 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 58, 2, 300, 1 );
Plot(Prec(EMA( P, Periods ),3), _DEFAULT_NAME(), ParamColor( "Color", colorCustom11), ParamStyle("Style", styleLine | styleThick)| styleNoRescale );
}
_SECTION_END();

_SECTION_BEGIN("EMA65");
EMA65 = ParamToggle( "EMA65", "Show|Hide", 1 );
if ( EMA65 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 65, 2, 400, 1 );
Plot(Prec(EMA( P, Periods ),3), _DEFAULT_NAME(), ParamColor( "Color", colorCustom12), ParamStyle("Style", styleLine | styleThick)| styleNoRescale );
}
_SECTION_END();

_SECTION_BEGIN("EMA200");
EMA200 = ParamToggle( "EMA200", "Show|Hide", 1 );
if ( EMA200 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 200, 2, 500, 1 );
Plot(Prec(EMA( P, Periods ),3), _DEFAULT_NAME(), ParamColor( "Color", colorPink), ParamStyle("Style", styleLine | styleThick | styleNoTitle)| styleNoRescale );
}
_SECTION_END();
//---------------End EMA 50,58,65,200--------------------------

//---------------Start EMA 20_50,20_65, 50_65) Cross-----------
UP1=Cross(EMA(C,20),EMA(C,50)); // MA20 Cat len 50 = UPTrend.
DOWN1=Cross(EMA(C,50),EMA(C,20)); // MA20 Cat Xuong 50 = DOWNTrend.

UP2=Cross(EMA(C,20),EMA(C,65)); // MA20 Cat len 65 = UPTrend.
DOWN2=Cross(EMA(C,65),EMA(C,50)); // MA20 Cat Xuong 65 = DOWNTrend.

UP3=Cross(EMA(C,50),EMA(C,65)); // MA50 Cat len 65 = UPTrend.
DOWN3=Cross(EMA(C,65),EMA(C,50)); // MA50 Cat Xuong 65 = DOWNTrend.

UP4=Cross(EMA(C,100),EMA(C,200)); // MA100 Cat len 200 = UPTrend.
DOWN4=Cross(EMA(C,200),EMA(C,100)); // MA200 Cat Xuong 100 = DOWNTrend.

PlotShapes( shapeUpArrow * up1 ,7,0,EMA(C,50)); //Ve Mui ten khi MA20 Cat len MA50. (Yellow=7 =Vàng =Có tín hieu)
PlotShapes( shapeDownArrow *DOWN1 ,7,0,EMA(C,50)); //Ve Mui ten khi MA20 Cat Xuong MA50. (Yellow=7 =Vàng =Có tín hieu)

PlotShapes( shapeUpArrow * up2 ,5,0,EMA(C,65)); //Ve Mui ten khi MA20 Cat len MA65. (5=Custom6 =XanhL=Tín hieu Tang)
PlotShapes( shapeDownArrow *DOWN2 ,4,0,EMA(C,65)); //Ve Mui ten khi MA20 Cat Xuong MA65. (4=Red =Ðo =Tín hieu Giam)

PlotShapes( shapeUpArrow * up3 ,11,0,EMA(C,65)); //Ve Mui ten khi MA20 Cat len MA65. (11=Custom11=Tím =Xác nhan TANG)
PlotShapes( shapeDownArrow *DOWN3 ,10,0,EMA(C,65)); //Ve Mui ten khi MA20 Cat Xuong MA65. (10=Custom10=Aqua =Xác nhan GIAM)

PlotShapes( shapeUpArrow * up4 ,12,0,EMA(C,200)); //Ve Mui ten khi MA100 Cat len MA200. (12=Custom??=... =Xác nhan TANG Dai han)
PlotShapes( shapeDownArrow *DOWN4 ,13,0,EMA(C,200));//Ve Mui ten khi MA200 Cat Xuong MA100. (13=Custom??=... =Xác nhan GIAM Dai han)

}
//---------------End EMA 20_50,20_65, 50_65) Cross-------------
// --------------End EMA có Prec Chuan 31.05.21----------------

// --------------- EMA có Prec Chuan 31.05.21------------------
_SECTION_BEGIN("EMA5 Prec");
//---------------Bat Dau MA5,13,17,20,50,100-----------------
EMAPrec = ParamToggle( "EMA Prec", "Show|Hide", 1 );
if ( EMAPrec == 1 )
{
_SECTION_BEGIN("EMA5");
EMA5 = ParamToggle( "EMA5", "Show|Hide", 1 );
if ( EMA5 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 5, 2, 100, 1 );
Plot(Prec(EMA( P, Periods ),3),_DEFAULT_NAME(), ParamColor( "Color", colorYellow), ParamStyle("Style", styleLine ) | styleNoRescale );
}
_SECTION_END();

_SECTION_BEGIN("EMA13");
EMA13 = ParamToggle( "EMA13", "Show|Hide", 1 );
if ( EMA13 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 13, 2, 200, 1 );
Plot(Prec(EMA( P, Periods ),3), _DEFAULT_NAME(), ParamColor( "Color", colorCustom7 ), ParamStyle("Style", styleLine | styleThick) | styleNoRescale );
}
_SECTION_END();

_SECTION_BEGIN("EMA17");
EMA17 = ParamToggle( "EMA17", "Show|Hide", 1 );
if ( EMA17 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 17, 2, 300, 1 );
Plot(Prec(EMA( P, Periods ),3), _DEFAULT_NAME(), ParamColor( "Color", colorCustom11), ParamStyle("Style", styleLine | styleThick)| styleNoRescale );
}
_SECTION_END();

_SECTION_BEGIN("EMA20");
EMA20 = ParamToggle( "EMA20", "Show|Hide", 1 );
if ( EMA20 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 20, 2, 400, 1 );
Plot(Prec(EMA( P, Periods ),3), _DEFAULT_NAME(), ParamColor( "Color", colorCustom12), ParamStyle("Style", styleLine | styleThick)| styleNoRescale );
}
_SECTION_END();

_SECTION_BEGIN("EMA100");
EMA100 = ParamToggle( "EMA100", "Show|Hide", 1 );
if ( EMA100 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 100, 2, 500, 1 );
Plot(Prec(EMA( P, Periods ),3), _DEFAULT_NAME(), ParamColor( "Color", colorBrown), ParamStyle("Style", styleLine | styleThick | styleNoTitle)| styleNoRescale );
}
_SECTION_END();

_SECTION_BEGIN("EMA200");
EMA200 = ParamToggle( "EMA200", "Show|Hide", 1 );
if ( EMA200 == 1 )
{
P = ParamField("Price field",3);
Periods = Param("Periods", 200, 2, 500, 1 );
Plot(Prec(EMA( P, Periods ),3), _DEFAULT_NAME(), ParamColor( "Color", colorPink), ParamStyle("Style", styleLine | styleThick | styleNoTitle)| styleNoRescale );
}
_SECTION_END();

//---------------End EMA5,13,17,20,100 ------------------------

//---------------Start EMA 5_13, 5_17, 17_20 Cross-------------
UP1=Cross(EMA(C,5),EMA(C,13)); // MA5 Cat len 13 = UPTrend.
DOWN1=Cross(EMA(C,13),EMA(C,5)); // MA5 Cat Xuong 13 = DOWNTrend.

UP2=Cross(EMA(C,5),EMA(C,17)); // MA5 Cat len 17 = UPTrend.
DOWN2=Cross(EMA(C,17),EMA(C,5)); // MA5 Cat Xuong 17 = DOWNTrend.

UP3=Cross(EMA(C,17),EMA(C,20)); // MA17 Cat len 20 = UPTrend.
DOWN3=Cross(EMA(C,20),EMA(C,17)); // MA17 Cat Xuong 20 = DOWNTrend.

UP4=Cross(EMA(C,100),EMA(C,200)); // MA100 Cat len 200 = UPTrend.
DOWN4=Cross(EMA(C,200),EMA(C,100)); // MA200 Cat Xuong 100 = DOWNTrend.

PlotShapes( shapeUpArrow * up1 ,7,0,MA(C,13)); //Ve Mui ten khi MA5 Cat len MA13. (Yellow=7 =Vàng =Có tín hieu)
PlotShapes( shapeDownArrow *DOWN1 ,7,0,MA(C,13)); //Ve Mui ten khi MA5 Cat Xuong MA13. (Yellow=7 =Vàng =Có tín hieu)

PlotShapes( shapeUpArrow * up2 ,5,0,MA(C,20)); //Ve Mui ten khi MA5 Cat len MA17. (5=Custom6 =XanhL=Tín hieu Tang)
PlotShapes( shapeDownArrow *DOWN2 ,4,0,MA(C,20)); //Ve Mui ten khi MA5 Cat Xuong MA17. (4=Red =Ðo =Tín hieu Giam)

PlotShapes( shapeUpArrow * up3 ,11,0,MA(C,20)); //Ve Mui ten khi MA17 Cat len MA20. (11=Custom12=Tím =Xác nhan TANG)
PlotShapes( shapeDownArrow *DOWN3 ,10,0,MA(C,20)); //Ve Mui ten khi MA17 Cat Xuong MA20. (10=Custom11=Aqua =Xác nhan GIAM)

PlotShapes( shapeUpArrow * up4 ,12,0,EMA(C,200)); //Ve Mui ten khi MA100 Cat len MA200. (12=Custom??=... =Xác nhan TANG Dai han)
PlotShapes( shapeDownArrow *DOWN4 ,13,0,EMA(C,200));//Ve Mui ten khi MA200 Cat Xuong MA100. (13=Custom??=... =Xác nhan GIAM Dai han)

}
//---------------End EMA 5_13, 5_17, 17_20 Cross-------------
// --------------End EMA có Prec Chuan 31.05.21----------------

// --------- BollingerBand 02_11.03.20 ---------
_SECTION_BEGIN("BBands Fill");// Có màu BackGround.
BOLLINGER = ParamToggle( "Bollinger Fill", "Show|Hide", 1 );
if ( BOLLINGER == 1 )
{
P = ParamField("Price field",-1);
Periods = Param("Periods", 20, 2, 300, 1 );
Width = Param("Width", 2, 0, 10, 0.05 );
Color = ParamColor("Color", colorLightGrey );
Color = ColorBlend( Color, GetChartBkColor(), 0.5 );
Style = ParamStyle("Style", styleLine | styleNoTitle ) | styleNoRescale;

Plot(Prec(bbt = BBandTop( P, Periods, Width ),3), "BBTop" + _PARAM_VALUES(), Color, Style );
Plot(Prec(bbb = BBandBot( P, Periods, Width ),3), "BBBot" + _PARAM_VALUES(), Color, Style );
Plot(Prec(MA( P,20),3), "BB Mid" + _PARAM_VALUES(), colorLightOrange, styleNoTitle );
PlotOHLC( bbt, bbt, bbb, bbb, "", ColorBlend( Color, GetChartBkColor(), 0.7 ), styleNoLabel | styleCloud | styleNoRescale, Null, Null, Null, -1 );
_SECTION_END(); // Có màu BackGround.
}
// --------- End BollingerBand 02_11.03.20 ---------

//----- Start Viet muc gia dong cua tai vi tri nen Close-----
_SECTION_BEGIN("Price Line");
PriceLine = ParamToggle( "Price Line", "Show|Hide", 1 );
if ( PriceLine == 1 )
{
PriceLineColor=ParamColor("PriceLineColor",colorCustom12);
PriceLevel = ParamField("PriceField", field = 3 );
Daysback = Param("Bars Back",300,10,500,1);
FirstBar = BarCount - DaysBack;
YY = IIf(BarIndex() >= Firstbar,EndValue(PriceLevel),Null);

Plot(YY,"Current Price",PriceLineColor,ParamStyle("LineStyle",styleLine|styleDashed|styleNoTitle|styleNoLabel,maskAll));

side = Param("side",1,0,1000,1);
dist = 0.5;

for( i = 0; i < BarCount; i++ )
{
if(i+side== BarCount) PlotText( "\n << " + PriceLevel[ i ], i, YY[ i ]+dist, colorCustom12 );
}
}
_SECTION_END();
//----- End Viet muc gia dong cua tai vi tri nen Close-----

//--------------- Ðem nguoc thoi gian ---------------
_SECTION_BEGIN("Time Left");
function GetSecondNum()
{
Time = Now( 4 );
Seconds = int( Time % 100 );
Minutes = int( Time / 100 % 100 );
Hours = int( Time / 10000 % 100 );
SecondNum = int( Hours * 60 * 60 + Minutes * 60 + Seconds );
return SecondNum;
}
RequestTimedRefresh( 1 );
TimeFrame = Interval();
SecNumber = GetSecondNum();
Newperiod = SecNumber % TimeFrame == 0;
SecsLeft = SecNumber - int( SecNumber / TimeFrame ) * TimeFrame;
SecsToGo = TimeFrame - SecsLeft;

x=Param("xposn",2,0,1000,1);
y=Param("yposn",32,0,1000,1);
MM = ParamToggle( "Time Left", "Show|Hide", 0 );
if ( MM == 1 )
{
if ( NewPeriod )
GfxRoundRect( x+45, y+17, x-3, y-2, 0, 0 );
GfxSetBkMode(1);
GfxSelectFont( "Arial", 12, 700, False );
GfxSetTextColor( colorWhite );
GfxTextOut( ""+SecsToGo+" / "+NumToStr( TimeFrame, 1.0 ), x, y );
}
_SECTION_END();
//--------------- Ðem nguoc thoi gian ---------------

//--------------- Delta = Vn30-Vn30F ---------------
_SECTION_BEGIN( "Delta Vn30-Vn30F1M" );
Delta = ParamToggle( "Delta", "Show|Hide", 0 );
if ( Delta == 1 )
{

stck1=C; // Gia Vn30F1M
symbol2="Vn30";
stck2=Foreign(symbol2,"C");
Delta=stck1-stck2;

FS=Param("font Size",12,11,100,1);
GfxSelectFont( "Arial", 12, 700, False );

GfxSetBkMode( colorWhite );
GfxSetTextColor(ParamColor( "Color",colorWhite));
Hor = Param( "Horizontal Position", 2, 1, 1200, 1 );
Ver = Param( "Vertical Position", 50 , 1, 830, 1 );
DD=Prec(delta,2) ;

GfxTextOut( "D: " + DD, Hor , Ver );
}
_SECTION_END();

//--------------- Delta = Vn30-Vn30F ---------------

//--------------- Hien thi Giá trên Chart_15.07.19 ---------------
_SECTION_BEGIN( "Magnified Market Price" );
Market = ParamToggle( "Market", "Show|Hide", 1 );
if ( Market == 1 )
{

FS = Param( "Font Size", 14, 11, 100, 1 );
GfxSelectFont( "Arial", FS, 700, italic = False, underline = False, True );
GfxSetBkMode( colorWhite );
GfxSetTextColor( ParamColor( "Color", colorCustom11) );
Hor = Param( "Horizontal Position", 2, 1, 1200, 1 );
Ver = Param( "Vertical Position", 63, 1, 1, 1 );
GfxTextOut( "" + C, Hor , Ver );
YC = TimeFrameGetPrice( "C", inDaily, -1 );
DD = Prec( C - YC, 2 );
xx = Prec( ( DD / YC ) * 100, 1 );
GfxSelectFont( "Arial", 10, 700, italic = False, underline = False, True );
GfxSetBkMode( colorWhite );
GfxSetTextColor( ParamColor( "Color", colorViolet ) );
GfxTextOut( "" + DD + " (" + xx + "%)", Hor + 0, Ver + 20 );
}
_SECTION_END();
//--------------- Hien thi Giá trên Chart_15.07.19 ---------------

--- Gộp bài viết, 01/08/2021 ---

Chỉ cần Code này đủ các bạn tìm đủ thứ trên tt.
Lưu ý Đang dùng trên bản A 6.20.3, phải cài thêm phần phụ trợ PatternExplorer thì mới chạy Code này hoàn chỉnh được
Xem tất cả

nhìn bác code nhìn rất tâm huyết , cho em xin file code của bác được không ạ, em xin cảm ơn

--- Gộp bài viết, 08/09/2021 ---

sđt em là 0879755488 . bác rảnh thì gửi cho em file code nhé, em xin cảm ơn .

-Cùng nhau chia sẽ kinh nghiệm phân tích thị trường chứng khoán , tự do trao đổi cùng nhau, không thu phí.

LINK
-NHÓM ZL : https://bit.ly/2SgrypA
-NHÓM FB: https://www.facebook.com/groups/162750188959117/

Loan tin | Thích |Báo vi phạm
cp2011 Thành viên gắn bó với f319.com

Tham gia ngày:

12/04/2010

Đã được thích:

1.822

#30

08/09/2021, 10:40

thanhlong97 đã viết: ↑

nhìn bác code nhìn rất tâm huyết , cho em xin file code của bác được không ạ, em xin cảm ơn
Xem tất cả

Share toàn bộ trên rồi đó . Nguyên toàn bộ code rồi, có dấu cái gì đâu, coppy rồi tạo code cho ami của bạn là dùng được. Phải có sẵn 2 bản này:
1/ AmiBroker6.20
2/ PatternExplorer 3.75
nếu không có thì hỏi giúp ông Google để ông ấy cung cấp cho...
Trường hợp không có(kg dùng) PatternExplorer thì bỏ phần Volume, bỏ phần Hamonic đi là dùng được
Hướng dẫn cũng có ở trên rồi, làm theo đi bạn

--- Gộp bài viết, 08/09/2021, Bài cũ: 08/09/2021 ---

cài đủ như này
1/ AmiBroker6.20
2/ PatternExplorer 3.75
Hướng dẫn cài 3.75
Cài PatternExplorer 3.75 vào thư mục cài đặt AmiBroker.
Serial cài đặt: A9CV-G4L6-789Q
Sau khi hoàn tất cài đặt -- > copy đè file: PatternExplorer.dll vào thư mục \AmiBroker\Plugins\
3/ Có chỉnh sửa file trong thư mục #Defaults & Mods của PatternExplorer chút nữa....

--- Gộp bài viết, 08/09/2021 ---

thanhlong97 đã viết: ↑

nhìn bác code nhìn rất tâm huyết , cho em xin file code của bác được không ạ, em xin cảm ơn

--- Gộp bài viết, 08/09/2021 ---

sđt em là 0879755488 . bác rảnh thì gửi cho em file code nhé, em xin cảm ơn .
Xem tất cả

Bạn có biết cách insert File vào đây không chỉ mình up lên cho, hôm trước up anh cũng phải hởi các bạn trên này vì nhiều bạn inbook hỏi....

===================================================

Huynhdaklak, Hoa_Sim_Tim và thanhlong97 thích bài này.

Loan tin | Thích |Báo vi phạm

(Hãy đăng nhập để trả lời bài viết)

Trang 3/12

Chủ đề cùng chuyên mục

Chia sẻ trang này