Chart Basic Candlestick for Amibroker (AFL)

_SECTION_BEGIN("chart basic Candle stick ");


SetChartOptions(0,chartShowArrows|chartShowDates);

_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 ) ) ));
 if (SetBarFillColor( IIf( (C < O) AND (C < Ref( C, -1)), colorRed, colorGreen  ) ) );
else
(SetBarFillColor( IIf( (C > O)AND (C < Ref( C, -1)), colorWhite,colorWhite)));
Plot( C, "Close",IIf( Close < Ref( Close, -1), colorRed, colorGreen ), styleCandle );

_SECTION_END();


_SECTION_BEGIN("reversal code");
//Long Reversal Bar 

//H < H1 AND L < L1 AND ((H + L) / 2) < C 

Lrev= H < Ref(H,-1) AND L < Ref(L,-1) AND ((H+L)/2) < C ;
//Short Reversal Bar 

//H > H1 AND L > L1 and C < ((H + L) / 2) 

Srev= H > Ref(H,-1) AND L > Ref(L,-1) AND C < ((H + L)/2);


PlotShapes(Lrev*shapeUpArrow,colorGreen);
PlotShapes(Srev*shapeDownArrow,colorRed);

_SECTION_END();