Marney Volume Indicator

[kamus 10]

Hi,

 

Can someone convert below Multichart language to Metatrader MQL4 or MQL5

 

It is indicator from marney that given in fx magazine for july-september 2010.

 

thank you in advance.

 

Marney Volume Indicator

 

input: avgLen(10), mins.

in.session(1440), autobars(True),

upcolor(cyan), dncolor(red);

var: start(0), end1(0), end2(0),

x(0), p(-1), count(0), avg(0),

barsinday(0), DayNumber(0);

array: xv[199,1440](0);

if bartype < 2 then begin

start= (Sessionstarttime(1,1));

end1= (sessionendtime(1,1));

end2= (sessionendtime(1,2));

value1 = timetominutes(start);

value2 = timetominutes(end2);

if start > end2 then

value3 = 1440+(value2-value1);

if start < end2 then

value3 = -(value1-

value2);

if autobars = false then value3 =

mins.in.session;

barsinday = ceiling(value3/

barinterval);

if d<>d[1] then begin

if count=barsInDay then begin

p=iff(p<avgLen-1,p+1,0);

for x=1 to barsInDay

begin

xv[p,x]=ticks[barsInDay+1-x];

end;

end;

count=1;

end else count=count+1;

if xv[avgLen-1,count]>0 then

begin

avg=0;

for x=0 to avgLen-1 begin

avg=avg+xv[x,count];

end;

avg=avg/avgLen;

plot2(ticks,”ticks”,default

,1);

plot1(avg,”avg”,yellow,defau

lt,1);

end;

if close > open then setplotcolor

(2,upcolor);

if close < open then setplotcolor

(2,dncolor);

end;

if bartype > 1 then begin

avg =

averagefc(v,avglen);

plot2(v,”ticks”,default

,1);

plot1(avg,”avg”,yellow,

default,1);

if close > open then setplotcolor

(2,upcolor);

if close < open then setplotcolor

(2,dncolor);

end;

 

MARNEY RANGE INDICATOR

 

input: avgLen(10), mins.

in.session(1440), autobars(True),

upcolor(cyan), dncolor(red);

var: start(0), end1(0), end2(0),

x(0), p(-1), count(0), avg(0),

barsinday(0);

array: xr[50,1440](0);

if bartype < 2 then begin

start= (Sessionstarttime(1,1));

end1= (sessionendtime(1,1));

end2= (sessionendtime(1,2));

value1 = timetominutes(start);

value2 = timetominutes(end2);

if start > end2 then

value3 = 1440+(value2-value1);

if start < end2 then

value3 = -(value1-

value2);

if autobars = false then value3 =

mins.in.session;

barsinday = ceiling(value3/

barinterval);

if d<>d[1] then begin

if count=barsInDay then begin

p=iff(p<avgLen-1,p+1,0);

for x=1 to barsInDay begin

xr[p,x]=truerange[bar

sInDay+1-x];

end;

end;

count=1;

end else count=count+1;

if xr[avgLen-1,count]>0 then begin

avg=0;

for x=0 to avgLen-1 begin

avg=avg+xr[x,count];

end;

avg=avg/avgLen;

plot2(truerange,”range”,defau

lt,1);

plot1(avg,”avg”,yellow,

default,1);

end;

if close > open then setplotcolor

(2,upcolor);

if close < open then setplotcolor

(2,dncolor);

end;

if bartype > 1 then begin

avg = averagefc(trueran

ge,avglen);

plot2(truerange,”range”

,default,1);

plot1(avg,”avg”,yellow,

default,1);

if close > open then setplotcolor

(2,upcolor);

if close < open then setplotcolor

(2,dncolor);

end;