Additional Info Add a Comment The Developer About Developer

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”,defau lt
,1);
plot1(avg,”avg”,yellow,de fau
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”,d efau
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;