// Downloaded From https://www.WiseStockTrader.com
BDIn=IIf(C>O, V,0); BDOut=IIf(C< O,V,0);
BDAccW=Sum(BDIn, 5); BDAccM=Sum(BDIn, 21);
BDDistW=Sum( BDout,5); BDDistM=Sum( BDout,21) ;
BDWeek=(BDAccW- BDDistW);


ColorBW=IIf( BDWeek>O, colorBrightGreen ,colorRed) ;


Plot(BDWeek, "BDWk",colorBW, styleHistogram| styleThick) ;