// Downloaded From https://www.WiseStockTrader.com
Per1 = Param("Per1",7,1,100,1);
RWH=(H-Ref(L,-Per1))/(ATR(Per1)*sqrt(Per1));
RWL=(Ref(H,-Per1)-L)/(ATR(Per1)*sqrt(Per1));
Pk=WMA((RWH-RWL),3);
MN=MA(Pk,Per1);
SD=StDev(Pk,Per1);
Val1=IIf(MN+(1.33*SD)>2.08,MN+(1.33*SD),2.08);
Val2=IIf(MN-(1.33*SD)<-1.92,MN-(1.33*SD),-1.92);
ln1=IIf(Pk>0,Val1,IIf(Pk<0,Val2,0));
Red=IIf(Ref(Pk,-1)>Pk,Pk,0);
Blue=IIf(Pk>Ref(Pk,-1),Pk,0);
Plot(Red,"Red",colorRed,styleHistogram);
Plot(Blue,"Blue",colorBlue,styleHistogram);
Plot(ln1,"ln",colorGreen,styleLine);