// 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) ;