// Downloaded From https://www.WiseStockTrader.com
r1 = PDI(14);
r2 = MDI (14);


Period = Param("Period",20,1,100,1);
TI = WMA( 2*WMA((r1-r2),int(Period/2))- WMA((r1-r2),Period),int(sqrt(Period)));



for( i = 1 ; i < BarCount-2; i++ ) 
{
if (TI[i] <TI[i-1] &&TI[i] <TI[i+1])
 Lpml[i]=1; 
else
Lpml[i] =0;

if (TI[i] >TI[i-1] &&TI[i] >TI[i+1])
 Lpmh[i]=1;
else
Lpmh[i] =0;
}

GR =ExRem(LpmH,Lpmh);
RD =ExRem(Lpml,Lpml);

Plot( TI, _DEFAULT_NAME(), ParamColor( "Color", colorBlue ), ParamStyle("Style") );