// Downloaded From https://www.WiseStockTrader.com
//********Dedicated to my father*************

SetBarsRequired(sbrAll,sbrAll);

// calculate the trading volume
BV = IIf( (H==L), 0, (V*(C-L)/(H-L)) );
SV = IIf( (H==L), 0, (V*(H-C)/(H-L)));

// starting of the day

Bars_so_far_today = 1 + BarsSince( Day() != Ref(Day(), -1));

StartBar = ValueWhen(TimeNum() == 091500, BarIndex());

//total volume traded

TodayVolume = Sum(V,Bars_so_far_today);
 TBUYVOL=Sum(BV,Bars_so_far_today);
 TSELVOL=Sum (SV,Bars_so_far_today);
 SVbull= TBUYVOL>= TSELVOL;
 SVbear=TSELVOL>=TBUYVOL;

 PlotShapes(iif(SVbull,shapeUpArrow, shapeNone),colorGreen, 0, L, Offset=85);
PlotShapes(iif(SVbear,shapedownArrow, shapeNone),colorred, 0, L, Offset=-85);

Title= " Today Volume :"+WriteVal(TodayVolume/1000,2.2)+"  TBUYV :"+WriteVal(TBUYVOL/1000,2.2)+"  TSellV :"+WriteVal(TSELVOL/1000,2.2);