// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("BB Band");
p= Param("p",7,2,50,1);
p= Optimize("p",p,2,50,1);

x=((C+2*StDev(C,p)-MA(C,p))/(4*StDev(C,p)))*100;
Plot(x,"Osc",colorYellow,5);
b=50;
k=60;
n=0.95;
r=HHV(x,k);
e=LLV(x,k);
Plot(e+(r-e*n),"O/B",colorBlue,5);
Plot(r-(r-e*n),"O/S",colorRed,5);
Plot(IIf(x>e+(r-e*n),100,IIf(x<r-(r-e*n),0,50)),"BL",colorGreen,5);
_SECTION_END();
      SetChartBkColor(ParamColor("Panel color ",colorBlack)); 

_SECTION_BEGIN("Background_Setting"); 
SetChartBkGradientFill( ParamColor("BgTop", colorBlack), 
ParamColor("BgBottom", colorBlack),ParamColor("titleblock",colorTeal )); 
_SECTION_END();