Could you please write this simple AFL for...

[buskar7]

Sudris, thanks for your help.

It is working great.

Is it possible to reduce the font size of the numbers (that appear below the candles)?
if yes, could you please help me with that?

Thanks

@buskar7,

here is the one for alternate numbering :

GraphXSpace = 5;

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 ) ) ) );
Plot( C, "Close", ParamColor( "Color", colorBlack ), styleNoTitle | ParamStyle( "Style" ) | GetPriceStyle() );

iBars = BarsSince( Day() != Ref( Day(), -1 ) );

for ( i = BarCount - ( LastValue( iBars ) + 1 ); i < BarCount; i=i+2 )
{
    j[i] = abs( ( LastValue( BarCount ) - 2 * i - ( LastValue( iBars - i ) ) - 2 ) );
    PlotText( NumToStr( j[i], 1 ), i, L[i] - L[i]*0.001, colorBlue );
}

Plot( TimeFrameGetPrice( "H", inDaily, -1 ), "Y'Day High", 4 );

Plot( TimeFrameGetPrice( "L", inDaily, -1 ), "Y'Day Low", 5 );