SUBHASH'S Moving Average for Amibroker (AFL)

_SECTION_BEGIN("SMA5X9");

EMA5 = EMA(C, 5);
HMA1300 = MA(H, 1300);
LMA1300 = MA(L, 1300);
OMA1300 = MA(O, 1300);
CMA1300 = MA(C, 1300);

Buy = Cross(EMA5, HMA1300);
Short = Cross(LMA1300, EMA5);

Filter = Buy OR Short;
Buy = ExRem(Buy, Short);
Short =ExRem(Short, Buy);

trigger = WriteIf(Buy, "BUY", WriteIf(Short, "short", " "));
fg = IIf(Buy, colorDarkGreen, IIf(Short, colorRed, colorDefault));
bg = IIf(Buy, colorPaleGreen, IIf(Short, colorPink, colorDefault));


_N(Title = StrFormat("{{NAME}} {{DATE}} {{INTERVAL}} : O=%1.2f, H=%1.2f, L=%1.2f, C=%1.2f, Vol=%1.0f\n{{VALUES}}", O, H, L, C, V));

if(Status("action") == actionIndicator)
    {
        PlotOHLC(O, H, L, C, "", colorGrey40, styleCandle);
        Plot(EMA5, "EMA(Close, 5)", colorSeaGreen, styleLine);
        Plot(HMA1300, "MA(High, 1300)", colorRed, styleLine);
	Plot(LMA1300, "MA(Low, 1300)", colorYellow, styleLine);
	Plot(OMA1300, "MA(OPEN, 1300)", colorGreen, styleLine);
	Plot(CMA1300, "MA(CLOSE, 1300)", colorWhite, styleLine);
        PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorGreen, 0, L, Offset=-20);
        PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorLime, 0,L, Offset=-10); 
        PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorWhite, 0,L, Offset=-15); 
        PlotShapes(IIf(Short, shapeSquare, shapeNone),colorRed, 0, H, Offset=20);
        PlotShapes(IIf(Short, shapeSquare, shapeNone),colorOrange, 0,H, Offset=10); 
        PlotShapes(IIf(Short, shapeDownArrow, shapeNone),colorWhite, 0,H, Offset=-15);

    }

if(Status("action") == actionExplore)
    {
        SetOption("NodefaultColumns", True);

        AddTextColumn(Name(), "Symbol", 77, colorDefault, colorDefault, 120);
        AddColumn(DateTime(), "Date", formatDateTime, colorDefault, colorDefault, 96);
        AddTextColumn(trigger, "Signal", 77, fg, bg);
        AddColumn(C, "C. M. P.", 1.2, fg, colorDefault, 96);
    }



_SECTION_END();