//VenturerVolHour v1.2
HourStart=SesStart //15
HourStop=SesStop //23
once SelEnd=0
once SelStart=0
once SesStart=0
once ConteggioVol=0
if BarColor<2 or BarColor>3 then
gr=0
gg=255
gb=0
rr=255
rg=0
rb=0
endif
if BarColor=2 then
gr=0
gg=100
gb=200
rr=150
rg=0
rb=255
endif
if BarColor=3 then
gr=0
gg=100
gb=200
rr=0
rg=100
rb=200
endif
OraBarra=openhour[0]
if OraBarra=HourStart and SelStart=0 then //Inizio sessione
SelStart=1
SelEnd=0
SesStart=1
ConteggioVol=1
endif
if OraBarra=HourStop and SelEnd=0 then
SelStart=0
SelEnd=1
endif
volp=volume
if SelStart=1 and SesStart=1 then
startbar=barindex
hh=high
ll=low
SesStart=0
PrevHour=openhour[0]
PrevMinute=0
endif
if openhour[0]<>PrevHour and SelStart=1 then
startbar=barindex
hh=high
ll=low
ConteggioVol=1
PrevHour=openhour[0]
PrevMinute=1
endif
if openminute[0]>=30 and SelStart=1 and PrevMinute=1 and HalfTime=1 then
startbar=barindex
hh=high
ll=low
ConteggioVol=1
PrevMinute=0
endif
if high>hh then
hh = high
endif
if low<ll or ll=0 then
ll = low
endif
div = (hh-ll)/BarNumbers
i=0
if SelStart=1 then
ConteggioVol=ConteggioVol+1
if ConteggioVol>300 then
ConteggioVol=300
endif
volsum=summation[ConteggioVol](volp)
while i<BarNumbers do
lrange=ll+div*i
hrange=lrange+div
volbull=0
for j = 1 to ConteggioVol do
if close[j]>=lrange and close[j]<=hrange then
if close[j]>open[j] then
volbull=volbull+volp[j]
r=gr
g=gg
b=gb
else
volbull=volbull+volp[j]
r=rr
g=rg
b=rb
endif
endif
next
bullbar = round((volbull*ConteggioVol)/volsum)*BarLength
drawrectangle(startbar,(hrange+lrange)/2,startbar+bullbar,(hrange+lrange)/2) coloured(r,g,b,BarOpacity)
i=i+1
wend
endif
return
