defparam CALCULATEONLASTBARS=9000
//defaults variables/////
//i=200
//el=26
//x=31
//////////////////////////////////////////////////volume/////////////////////////////////
hi=high
l=low
c=close
v=volume
buying=v*((c-l)/close)/((hi-l)/close)
selling=v*((hi-c)/close)/((hi-l)/close)
//sv=selling
//bv=buying
if buying > selling then
aaa = buying
ra = 0
ga = 255
bbb = selling
rb = 255
gb = 0
else
aaa = selling
ra = 255
ga = 0
bbb = buying
rb = 0
gb = 255
endif
bi=barindex
//i=100
//define first time factor
factor=bi/i
//x=1
if bi=(i*factor) then
factor=round(factor)
endif
if factor<>factor[1] then
b=bi
endif
count=0
while b=b[1] do
count=count[1]+1
break
wend
//e1=10
e=pipsize
for ii= .000001 to count[1] do
if count[0]>.00001 then
//DRAWRECTANGLE((barindex[0]-count[0])+((posav[0]))/x, close[0]-(e/e1),(barindex[0]-count[0]), close[0]+(e/e1)) coloured(0,255,0)
DRAWRECTANGLE((barindex[0]-count[0])+(aaa/x), close[0]-(e/e1),(barindex[0]-count[0]), close[0]+(e/e1)) coloured(ra,ga,0)
//DRAWRECTANGLE((barindex[0]-count[0])+((negav1[0]))/x, close[0]-(e/(e1*3)),(barindex[0]-count[0]), close[0]+(e/(e1*3))) coloured(255,0,0)
DRAWRECTANGLE((barindex[0]-count[0])+(bbb/x), close[0]-(e/(e1*3)),(barindex[0]-count[0]), close[0]+(e/(e1*3))) coloured(rb,gb,0)
endif
break
break
next
return close
