Wilders Most Succesful Intraday Intraday

PM1 = Param("MA1",7.5,1,1500,1);
PM2 = Param("MA2",11,1,1500,1);

M1 = Wilders(Close,PM1);
M2 = Wilders(Close,PM2);
A = Cross(M1,M2);
B = Cross(M2,M1);


Hor1=Param(" LEFT/RIGHT",1,1,1660,1);
Ver1=Param(" UP DOWN",35,1,830,1);
FS1=Param(" Font Size",15,11,100,1);
GfxSelectFont("Tahoma", FS1, 200 );
GfxSetBkColor(colorBlack);
GfxSetTextColor(colorGold);
//GfxTextOut("EMA "+ PM1 + " "+ Prec(M1,2),Hor1,Ver1);
GfxSetTextColor(colorGreen);
//GfxTextOut("EMA "+ PM2 + " "+ Prec(M2,2),Hor1,Ver1+25);


Plot(M1," EMA: "+pm1,ParamColor("FAST EMA COLOR",colorBrightGreen));
Plot(M2," EMA: "+pm2,ParamColor("SLOW EMA COLOR",colorRed));
PlotShapes(IIf(A,shapeUpArrow,shapeNone),colorBrightGreen,0,L,Offset= -30);
PlotShapes(IIf(B,shapeDownArrow,shapeNone),colorRed,0,H,Offset = -30);
Filter = (A == 1) OR (B == 1);
AddColumn(A,"BUY/SELL",1,IIf(A,colorGreen,colorRed),colorWhite);
AddColumn(C,"CLOSE",1.2,colorGreen,colorWhite);
AddColumn(M1," EMA: "+PM1,1.2,ParamColor("FAST EMA COLOR",colorGreen),colorWhite);
AddColumn(M2," EMA: "+PM2,1.2,ParamColor("SLOW EMA COLOR",colorRed),colorWhite);

_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", colorDefault ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
_SECTION_END();