// Downloaded From https://www.WiseStockTrader.com
pr=Param("period",21,0,500,1);
x=Cum((IIf((MA((C-Ref(C,-1)),pr))>0,1,-1)* (MA((C-Ref(C,-1))^2,pr)+1)^.5)+(((C-Ref(C,-1))^2)+1)^.5*IIf((C>Ref(C,-1)),1,-1));
bpdl=(x-Ref(x,-pr))/(HHV(x,pr)-LLV(x,pr));

Plot(bpdl,"BPDL   " +pr,ParamColor( "BPDL color", colorBrightGreen ),ParamStyle("BPDL style",styleLine,maskAll ));

Clp=Param("Clip",0.675,0,1.5,0.001);
col=ParamColor( "Clip Color", colorGold );
Plot( 0+Clp, "",  col,styleDashed );
Plot( 0 ,"",  col,styleDashed );
Plot( 0-Clp, "",  col,styleDashed );