+Dx with arrow by StockBond for Amibroker (AFL)

_SECTION_BEGIN("+DX");
r = Param("Periods", 14, 2, 200, 1 );
b= PDI(r);

EMA1= EMA(b,r);
EMA2= EMA(EMA1,1);
Difference= EMA1 - EMA2;
ZeroLagEMA= EMA1 + Difference;
PR= abs(ZeroLagEMA);

Plot(pr, " ", IIf(pr > Ref(pr,-1),colorBrightGreen,colorRed),styleDots);
PlotShapes(IIf(pr> Ref(pr,-1),shapeUpArrow,shapeNone),colorBrightGreen); 
PlotShapes(IIf(pr < Ref(pr,-1),shapeDownArrow,shapeNone),colorRed); 


Plot(40,"",colorRed, styleLine);
Plot(20,"",colorWhite, styleLine);


Title = EncodeColor(colorYellow)+  Title = Name()+ "======="+ EncodeColor(colorPink) 
+"+DX:=====: " + WriteVal(pr,format=1.2)+EncodeColor(colorWhite)+" == days :"+ WriteVal(r, format=1.2);


_SECTION_END();