// 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);
BDMonth=(BDAccM- BDDistM);


ColorBM=IIf( BDMonth>O, colorBrightGreen ,colorRed) ;


Plot(BDMonth, "BDMth",colorBM, styleHistogram| styleThick)