// Downloaded From https://www.WiseStockTrader.com
TRH = IIf(Ref(C, -1) > H, Ref(C, -1), H);
TRL = IIf(Ref(C, -1) < L, Ref(C, -1), L);
ad = IIf(C > Ref(C, -1), C - TRL, IIf(C < Ref(C, -1), C - TRH, 0));
xAD = Cum(ad); 
nda = Wilders(EMA((xAD-Ref(xAD,-1)),14),7);
Plot(nda, "nda" , colorRed , styleLine);
ndi=0;
Plot(ndi, "ndi" , colorRed , styleLine);
Title="";
_SECTION_BEGIN("hv");
P = ParamField("Price field",-1);
Periods = Param("Periods", 40, 2, 300, 1, 10 );
Plot( TEMA( P, Periods ), _DEFAULT_NAME(), ParamColor( "Color", colorGrey40 ), ParamStyle("Style", styleDashed) );
_SECTION_END();