Isfandi Just Intraday for Amibroker (AFL)

_SECTION_BEGIN("Price");
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", colorGrey50 ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();

_SECTION_BEGIN("Isfandi Just Intraday 2010");
MM= (H+L)/2;
QQ= (Ref(H,-2) - Ref (L,-2))/2;
QM= MM-QQ;
Plot(QM,"QM",colorRed,1| styleStaircase );

MM1= (O+C)/2;
QQ1= (Ref(O,-2) - Ref (C,-1))/4;
QM1= MM1-QQ1;
Plot(QM1,"QM1",colorYellow,1| styleStaircase );

Buy = (C > Ref(QM1,-1));
Sell = (C < Ref(QM1,-1));

Buy=ExRem(Buy,Sell); Sell=ExRem(Sell,Buy);
PlotShapes(shapeHollowUpArrow*Buy,colorBrightGreen,0,L,-10);
PlotShapes(shapeHollowDownArrow*Sell,colorYellow,0,H,-10);
_SECTION_END();