Xin code thể hiện ngày phân phối và ngày bùng nổ FTD.

Xin chào các bác! Có bác nào có code thể hiện ngày bùng nổ theo đà và ngày phân phối trên đồ thị amibroker cho em xin Em cảm ơn.

 

_SECTION_BEGIN("Ngay Phan Phoi");

VNIN = Foreign ("VNINDEX", "C");//VNINDEX Close
VNINvol = Foreign ("VNINDEX", "V");//VNINDEX Volume

Condition1 = VNIN < 0.998*Ref( VNIN, -1 ) AND VNINvol > Ref( VNINvol, -1 );
Condition2 = VNIN < LLV(VNIN,25)*1.05;
DD = Condition1 AND Condition2;
for( i = 0; i < BarCount; i++ )
{
if( DD ) PlotText( "D" , i, H[ i ]*1.003, colorBlue, colorDefault, 20);
}



StartCountPlot1 = BarIndex() == BarCount -26;
StartCount = C > 0 AND StartCountPlot1;
StartCount2 =C < 0 AND StartCountPlot1;
Shape1 = StartCount * shapeSmallCircle + StartCount2 * shapeSmallCircle;
PlotShapes(Shape1, IIf( StartCount, colorOrange, colorOrange),0, IIf(StartCount, Low, Low));


_SECTION_END();

 

ok

 

code của bạn bị lỗi rồi: trong hàm If, biến DD chưa được khởi tạo đã dùng là sai rồi

 

Đợi cao nhân sửa code.

 

_SECTION_BEGIN("Ngay Phan Phoi");

VNIN = Foreign ("VNINDEX", "C");//VNINDEX Close
VNINvol = Foreign ("VNINDEX", "V");//VNINDEX Volume

Condition1 = VNIN < 0.998*Ref( VNIN, -1 ) AND VNINvol > Ref( VNINvol, -1 );
Condition2 = VNIN < LLV(VNIN,25)*1.05;
DD = Condition1 AND Condition2;
for( i = 0; i < BarCount; i++ )
{
if( DD ) PlotText( "D" , i, H[ i ]*1.003, colorBlue, colorDefault, 20);
}



StartCountPlot1 = BarIndex() == BarCount -26;
StartCount = C > 0 AND StartCountPlot1;
StartCount2 =C < 0 AND StartCountPlot1;
Shape1 = StartCount * shapeSmallCircle + StartCount2 * shapeSmallCircle;
PlotShapes(Shape1, IIf( StartCount, colorOrange, colorOrange),0, IIf(StartCount, Low, Low));


_SECTION_END();

 

Em sửa rồi các bác nhé

 

vẫn bị lỗi bác ơi:
if( DD ) PlotText( "D" , i, H[ i ]*1.003, colorBlue, colorDefault, 20);
Error 6. Condition in IF, WHILE, FOR statements has to be Numeric or Boolean type. You can not use array here, please use [] (array subscript operator) to access array elements

 

em dùng được mà

 

em dùng được mà

 

_SECTION_BEGIN("Ngay phan phoi");

VNI = Foreign ("VNINDEX", "C");//VNINDEX Close
VNIvol = Foreign ("VNINDEX", "V");//VNINDEX Volume

Condition1 = VNI < 0.998*Ref( VNI, -1 ) AND VNIvol > Ref( VNIvol, -1 );
Condition2 = VNI < LLV(VNI,25)*1.05;
DD = Condition1 AND Condition2;

for( i = 0; i < BarCount; i++ )
{
if( DD ) PlotText( "D" , i, H[ i ]*1.003, colorBlue, colorDefault, 20);
}




StartCountPlot1 = BarIndex() == BarCount -26;
StartCount = C > 0 AND StartCountPlot1;
StartCount2 =C < 0 AND StartCountPlot1;
Shape1 = StartCount * shapeSmallCircle + StartCount2 * shapeSmallCircle;
PlotShapes(Shape1, IIf( StartCount, colorOrange, colorOrange),0, IIf(StartCount, Low, Low));


_SECTION_END();

 

Báo lỗi ở chỗ này:

for( i = 0; i < BarCount; i++ )
{
if( DD ) PlotText( "D" , i, H[ i ]*1.003, colorBlue, colorDefault, 20);
}

Mong bác chủ chỉnh lại. Cảm ơn nhiều.

 

Có lẽ do phiên bản Ami.

 

Code ngay phan phoi con code ngay bung no theo da nhu nao ban

 

phan if(DD) sua lai if(DD)

 

Tui vừa bỏ đi thì không lỗi.

 

Đã chỉnh sửa lại được:

_SECTION_BEGIN("Ngay Phan Phoi");

VNIN = Foreign ("VNINDEX", "C");//VNINDEX Close
VNINvol = Foreign ("VNINDEX", "V");//VNINDEX Volume

Condition1 = VNIN < 0.998*Ref( VNIN, -1 ) AND VNINvol > Ref( VNINvol, -1 );
Condition2 = VNIN < LLV(VNIN,25)*1.05;
PP = Condition1 AND Condition2;

for( i = 0; i < BarCount; i++ )
{
if( PP ) PlotText( "PP" , i, H[ i ]*1.003, colorBlue, colorDefault, 20);
}

StartCountPlot1 = BarIndex() == BarCount -26;
StartCount = C > 0 AND StartCountPlot1;
StartCount2 =C < 0 AND StartCountPlot1;
Shape1 = StartCount * shapeStar + StartCount2 * shapeStar;

PlotShapes(Shape1, IIf( StartCount, colorOrange, colorOrange),0, IIf(StartCount, Low, Low));

Filter = PP;

ColorPP = IIf(PP,colorRed, colorWhite);
AddColumn(IIf(PP,1,Null),"PP",1.0,colorWhite, ColorPP);

_SECTION_END();

 

Mn dùng code trong file này thì ko lỗi
Diễn đàn ko hiển thị đc chữ i sau chữ if(DD)

 

_SECTION_BEGIN("Ngay Phan Phoi");

Ticker = ParamStr("Symbol", "VNINDEX" );
upcol = Foreign(Ticker,"Close") - Ref(Foreign(Ticker,"Close"),-1);
kol = IIf(upcol > 0, colorLime, colorOrange);
PlotOHLC(Foreign(Ticker,"Open"), Foreign(Ticker,"High"), Foreign(Ticker,"Low"), Foreign(Ticker,"Close"),"Ticker", kol, ParamStyle("Style", styleCandle)|styleOwnScale);
Title = " WW - " + EncodeColor(colorBlue) + FullName() + " - Date: " + Date() + " - O: " + O + " - H: " + H + " - L: " + L + " - C: " + C + " ( " +
(C - Ref(C,-1)) + " ) V: " + NumToStr(V,0) + EncodeColor(colorWhite) + "\n vs: " + EncodeColor(colorRed) + Ticker + " - O: " + Foreign(Ticker,"Open")
+ " - H: " + Foreign(Ticker,"High") + " - L: " + Foreign(Ticker,"Low")+ " - C: " + Foreign(Ticker,"Close") + " - Vol: " + NumToStr(Foreign(Ticker,"Volume"),0);
SetChartBkGradientFill( ParamColor("Top Color", colorWhite),ParamColor("Bottom Color", colorWhite));


VNIN = Foreign ("VNINDEX", "C");//VNINDEX Close
VNINvol = Foreign ("VNINDEX", "V");//VNINDEX Volume

Condition1 = VNIN < 0.998*Ref( VNIN, -1 ) AND VNINvol > Ref( VNINvol, -1 );
Condition2 = VNIN < LLV(VNIN,25)*1.05;
PP = Condition1 AND Condition2;

for( i = 0; i < BarCount; i++ )
{
if(PP)
{
PlotText( "PP" , i, H[ i ]*1.003, colorBlue, colorDefault, 20);
}
}

StartCountPlot1 = BarIndex() == BarCount -26;
StartCount = C > 0 AND StartCountPlot1;
StartCount2 =C < 0 AND StartCountPlot1;
Shape1 = StartCount * shapeStar + StartCount2 * shapeStar;

PlotShapes(Shape1, IIf( StartCount, colorOrange, colorOrange),0, IIf(StartCount, Low, Low));

Filter = PP;

ColorPP = IIf(PP,colorRed, colorWhite);
AddColumn(IIf(PP,1,Null),"PP",1.0,colorWhite, ColorPP);

_SECTION_END();

 

mình kết hợp thêm code để show luôn