SetBarsRequired(sbrAll,sbrAll);

TenkanSen = (HHV(H,9) + LLV(L,9))/2;
KijunSen  = (HHV(H,26)+ LLV(L,26))/2; 
Color_bars =  IIf(Close > KijunSen AND TenkanSen > KijunSen, colorBlue,
              IIf(Close > KijunSen AND TenkanSen < KijunSen,colorCustom11, // Light blue
              IIf(Close < KijunSen AND TenkanSen < KijunSen, colorRed,
              IIf(Close < KijunSen AND TenkanSen > KijunSen, colorCustom12, colorYellow)))); // Darkred & yellow means TenkanSen = KijunSen
Plot( C, "Close", Color_bars, styleBar|styleNoTitle); // TK bars

// calculate the trading volume
// 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;

SVbull = ExRem( SVbull, SVbear );
SVbear = ExRem( SVbear, SVbull );

PlotShapes(IIf(SVbull,shapeUpArrow, shapeNone),colorGreen, 0, L, Offset=-35);
PlotShapes(IIf(SVbear,shapeDownArrow, shapeNone),colorRed, 0, L, Offset=-55);

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