// Downloaded From https://www.WiseStockTrader.com
Periods=Param("Periods",15,2,100);
Smooth1=Param("Smooth1",3,1,100);
Smooth2=Param("Smooth2",3,1,100);
HH=HHV(Ref(H,-1),Periods);
LL=LLV(Ref(L,-1),Periods);
StoMom=100*EMA(EMA(C-0.5*(HH+LL),Smooth1),Smooth2)/
(0.5*EMA(EMA(HH-LL,Smooth1),Smooth2));
Plot(StoMom,_DEFAULT_NAME(),ParamColor("Color",ColorCycle));
PlotGrid(80,colorRed);
PlotGrid(0,colorLightGrey);
PlotGrid(-80,colorLightGrey);