13-30 EMA Crossover Trading System - Amibroker AFL Code

Click Image To Enlarge. Please Rate And Comment.

SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " +
WriteVal( V, 1.0 ) +" {{VALUES}}", 
O, H, L, C, SelectedValue( ROC( C, 1 )) ));

// This part will plot the EMA value And type of user choice

EMAstyle=ParamStyle("MAType",styleLine,maskAll );
LTEMAcolor=ParamColor("LT EMA Colour" ,colorRed);
STEMAcolor=ParamColor("ST EMA Colour",colorGreen);
LTEMAPeriod=Param("LTEMA Period",30); 
STEMAPeriod=Param("STEMA Period",13); 
Plot(EMA(Close,STEMAPeriod),"EMA of "+STEMAPeriod+" Days" , STEMAcolor, EMAstyle, Null, Null ); 
Plot(EMA(Close,LTEMAPeriod), "EMA of "+LTEMAPeriod+" Days", LTEMAcolor, EMAstyle, Null, Null ); 
//Plot(SAR(.02,.2),"SAR",colorBlue,maskAll,Null,Null);

// This part will plot Closing price with barstyle choosen by user

ChartStyl=ParamStyle("Chart Type", styleBar,maskAll );
Chartcolor=ParamColor("Chart Colour",colorGreen); 
Plot(Close,"Debdulal",Chartcolor,ChartStyl);

// This part will find the buy and sell point in the chart

SellTRIGGER=MACD(12,26)<= Signal(12,26,9);
Buy=Cross(MACD(12,26),Signal(12,26,9));
Sell=(EMA(Close,LTEMAperiod)>EMA(Close,STEMAperiod)) AND SellTRIGGER;

//Buy= MACD(12,26)>=Signal(12,26,9);
//Sell=MACD(12,26)<Signal(12,26,9);
//Sell=Cross(EMA(Open,Operiod),EMA(Close,Cperiod))AND MACD(12,26)<Signal(12,26,9);

Buy     = ExRem(Buy, Sell);
Sell    = ExRem(Sell, Buy);
Signalshape=Buy*shapeUpArrow + Sell*shapeDownArrow;
PlotShapes( Signalshape, IIf( Buy, colorGreen, colorRed ),0, IIf( Buy, Low, High ) );
pos = 1.5*ATR(15);
for( i = 0; i < BarCount; i++ ) {
       if( Buy[i] ) PlotText( "Buy\n@" + Close[i], i, Low[i] - pos[i], colorGreen );
       if( Sell[i] ) PlotText( "sell\n@" + Close[i], i, Low[i] + pos[i], colorRed );
 }