_SECTION_BEGIN("PDR CRB obv");
TF = ParamList("TF", "15,Hr,D",2);
if( TF == "15" )
{
nd=(Minute()%15==0);
x = 2;
}
if( TF == "Hr" )
{
nd=Hour() != Ref(Hour(), -1);
x = 5;
}
if( TF == "D" )
{
nd=Day() != Ref(Day(), -1);
x = 30;
}
Ob = OBV();
prh = ValueWhen(nd,Ref(HighestSince(nd,ob),-1));
prl = ValueWhen(nd,Ref(LowestSince(nd,ob),-1));
crbh = ValueWhen(nd,Ref(HHV(ob,x),-1));
crbl = ValueWhen(nd,Ref(LLV(ob,x),-1));
if( ParamToggle("CRB cloud", "No|Yes", 1))
{Plot(crbh,"\nCRB H",colorBlack,stylenoreScale|styleNoLabel);
Plot(crbL,"\nCRB L",colorBlack,stylenoreScale|styleNoLabel);
PlotOHLC(crbl,crbh,crbl,crbl,"",ParamColor("CRB col",colorPaleBlue),stylenoreScale|styleNoLabel|styleCloud,0,0,0,-6);
}
if( ParamToggle("PD Range ", "No|Yes", 1))
PlotOHLC(prl,prh,prl,prl,"",ParamColor("PDR col",colordarkgrey),stylenoreScale|styleNoLabel|styleCloud,0,0,0,-7);
_SECTION_END();