If subasta=1 then
 b=close > low and volume > high
 ce=close < high and volume > low
 if b or ce then
  volp=volume
 else
  volp=0
 endif
endif
if subasta=0 then
 volp=volume
endif

if intradaybarindex=0 then
 if max(1, intradaybarindex) then
  startbar=barindex
  hh=high
  ll=low
 endif
endif


if high>hh then
 hh = high
 idate = date[DPVP]
endif

if low<ll or ll=0 then
 ll = low
 idate = date[DPVP]
endif

div = (hh-ll)/10
i=0
volsum=summation[300](volp)
while i<10 do
 lrange=ll+div*i
 hrange=lrange+div
 volbull=0
 for j = 1 to 300 do
  if close[j]>=lrange and close[j]<=hrange then
   if close[j]>open[j] then
    volbull=volbull+volp[j]
   else
    volbull=volbull+volp[j]
   endif
  endif
 next

 bullbar = round((volbull*300)/volsum)*2

 if PVP=1 then
  if  today-idate<DPVP then
   drawrectangle(startbar,(hrange+lrange)/2,startbar+bullbar,(hrange+lrange)/2) coloured(0,100,200,20)
  endif
 endif


 i=i+1
wend


//////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////
//Zone VWWAP

hlc2 = (high+low)/2
if day<>day[1] then
 vwapsum =hlc2*volp
 volumesum=volp
else
 vwapsum= (vwapsum[1]+hlc2*volp)
 volumesum= (volumesum[1]+volp)
endif

myvwap = vwapsum/volumesum

if close>myvwap[1] then
 r=0
 g=128
 b=0
else
 r=128
 g=0
 b=0

endif


starta= Hour>9
pva=hlc2*volp

if starta then
 flaga=1
 startvolp=cumsum(volp)
 startpva=cumsum(pva)
endif

if startvolp=0 then
 demona=1
else
 demona=cumsum(volp)-startvolp
endif
if flaga then
 sr=(cumsum(pva)-startpva)/demona
else
 sr=undefined
endif

if close>sr[1] then
 ra=102
 ga=102
 ba=102
else
 ra=102
 ga=102
 ba=102
endif


If vwap=1 then
 r=r
 g=g
 b=b
 a=255
else
 r=0
 g=128
 b=0
 a=0
endif

if VWAP=1 then
 ra=ra
 ga=ga
 ba=ba
 a=255
else
 r=0
 g=128
 b=0
 a=0
endif


return myvwap coloured (r,g,b,a) style(point,2)  as "CTVWAP Intradia",sr coloured (ra,ga,ba,a) style(point,3) as "VWAP SR Dinamic"