Modified Divergence code :OBV leading doesn't tell leading what?Now colored red/green arrow shows OBV leading downmove/Upmove.
showvdiv=ParamToggle("Show OBV Leading", "No|Yes",defaultval=1 );
showpdiv=ParamToggle("Show OBV Lagging", "No|Yes",defaultval=1 );
barsused=Param("Period",5,3,200,1);
vdiv=(OBV()>Ref(HHV(OBV(),barsused),-1) AND c<Ref(HHV(c,barsused),-1)) OR (OBV()<Ref(LLV(OBV(),barsused),-1) AND c>Ref(LLV(c,barsused),-1)) ;
pdiv=(OBV()<Ref(HHV(OBV(),barsused),-1) AND c>Ref(HHV(c,barsused),-1)) OR (OBV()>Ref(LLV(OBV(),barsused),-1) AND c<Ref(LLV(c,barsused),-1)) ;
if(showvdiv)
{PlotShapes(shapesmallUpTriangle*vdiv,IIf((OBV()>Ref(HHV(OBV(),barsused),-1) AND c<Ref(HHV(c,barsused),-1)),colorgreen,colorRed),0,l,-12,0);}
if(showpdiv)
{PlotShapes(shapesmalldowntriangle*pdiv,IIf((OBV()<Ref(HHV(OBV(),barsused),-1) AND c>Ref(HHV(c,barsused),-1)),colorgreen,colorRed),0,h,-12,0);}