Poul Trade Forum: Индикаторы для MetaTrader 4

Если не сложно, прошу перевести еще два индикатора

/*[[
Name := SO
Author := Copyright © 2004, Aleksey Bykov
Link :=
Separate Window := Yes
First Color := White
First Draw Type := Line
First Symbol := 217
Use Second Data := No
Second Color := Red
Second Draw Type := Line
Second Symbol := 218
Minimum Chart Limits := 0
Maximum Chart Limits := 100
]]*/
Input: periodd(10),smooth(6),BarsCount(200);
Variable: shift(0),val(0),i(0),maxx(0),minn(0);

SetLoopCount(0);

for shift=0 to barscount
Begin
val=0;
for i=shift to shift+smooth-1
Begin
maxx=Close[Highest(MODE_CLOSE,i+periodd-1,periodd)];
minn=Close[Lowest (MODE_CLOSE,i+periodd-1,periodd)];
val=val+100*(close-minn)/(maxx-minn);
end;
val=val/smooth;
if val=0 then val=0.1;

SetIndexValue(shift,val*0.999);
end;

====================================================================================

/*[[
Name := Pivot Daily
Author := Copyright © 2004, MetaQuotes Software Corp.
Link := http://www.metaquotes.ru/
Separate Window := No
First Color := Blue
First Draw Type := Line
First Symbol := 217
Use Second Data := Yes
Second Color := Red
Second Draw Type := Line
Second Symbol := 218
]]*/
input: formula(0),show_comment(1),how_long(720),drw(1);

var: cnt(0),begin_bar(0),prev_day(0),cur_day(0),day_high(0),day_low(0),yesterday_high(0);
var: yesterday_low(0),yesterday_close(0),today_open(0),textvar(""),timeShift(0);
var: P(0),S(0),R(0),S0.5(0),R0.5(0),S1(0),R1(0),S1.5(0),R1.5(0),S2(0),R2(0),S2.5(0),R2.5(0),S3(0),R3(0) ;

for cnt = bars downto 0
{
SetIndexValue(cnt, 0);
SetIndexValue2(cnt, 0);
};

if Period > 240 then exit;
timeShift = 0;

if formula < 0 or formula > 3 then exit;

if how_long = -1 then
{
begin_bar = bars;
}
else
{
begin_bar = how_long;
};

for cnt = begin_bar downto 1
{
cur_day = TimeDay(time[cnt]);

if prev_day != cur_day then
{
yesterday_close = CLOSE[cnt+1];
today_open = OPEN[cnt];
yesterday_high = day_high;
yesterday_low = day_low;

P = (yesterday_high + yesterday_low + yesterday_close + today_open) / 4;
if formula = 1 then
{
R = P + P - yesterday_low;
S = P + P - yesterday_high;
}
else if formula = 2 then
{
R = P + yesterday_high - yesterday_low;
S = P - yesterday_high + yesterday_low;
}
else if formula = 3 then
{
R = P + P - yesterday_low - yesterday_low + yesterday_high;
S = P + P - yesterday_high - yesterday_high + yesterday_low;
};

day_high = HIGH[cnt];
day_low = LOW[cnt];

prev_day = cur_day;
};

day_high = max(day_high, HIGH[cnt]);
day_low = min(day_low, LOW[cnt]);

if formula = 0 then
{
//if drw = 1 then SetIndexValue(cnt, P);
if drw = 1 then SetIndexValue(cnt, 0);
}
else
{
if drw = 1 then
{
SetIndexValue(cnt, R);
SetIndexValue2(cnt, S);
};
};
textVar = TimeHour(time[0])+":"+TimeMinute(time[0])+" "+(60-Minute)+"R";
SetObjectText("Time",textVar,"Arial",8,White);
MoveObject("Time",OBJ_TEXT,time[25],P,time[0],P,DarkMagenta);
};

if show_comment = 1 then
{

P = (yesterday_high + yesterday_low + yesterday_close)/3; // + today_open) / 4;

R0.5=(P+R1)/2;
S0.5=(P+S1)/2;

R1 = (2*P)-yesterday_low;
S1 = (2*P)-yesterday_high;

R1.5=(R1+R2)/2;
S1.5=(S1+S2)/2;

R2 = P+(yesterday_high - yesterday_low);
S2 = P-(yesterday_high - yesterday_low);

R2.5=(R2+R3)/2;
S2.5=(S2+S3)/2;

R3 = (2*P)+(yesterday_high-(2*yesterday_low));
S3 = (2*P)-((2* yesterday_high)-yesterday_low);

MoveObject("R1_line",OBJ_HLINE,time[cnt],R1,time[cnt],R1,DarkGreen,1,STYLE_DOT);
MoveObject("R2_line",OBJ_HLINE,time[cnt],R2,time[cnt],R2,DarkGreen,1,STYLE_DOT);
MoveObject("R3_line",OBJ_HLINE,time[cnt],R3,time[cnt],R3,DarkGreen,1,STYLE_DOT);
MoveObject("P_line",OBJ_HLINE,time[cnt],P,time[cnt],P,DarkViolet,1,STYLE_DASH);
MoveObject("S1_line",OBJ_HLINE,time[cnt],S1,time[cnt],S1,DarkRed,1,STYLE_DOT);
MoveObject("S2_line",OBJ_HLINE,time[cnt],S2,time[cnt],S2,DarkRed,1,STYLE_DOT);
MoveObject("S3_line",OBJ_HLINE,time[cnt],S3,time[cnt],S3,DarkRed,1,STYLE_DOT);

SetObjectText("R1_txt","R1","Arial",8,DarkGreen);
MoveObject("R1_txt",OBJ_TEXT,time[25],R1,time[1],R1,DarkGreen);
SetObjectText("R2_txt","R2","Arial",8,DarkGreen);
MoveObject("R2_txt",OBJ_TEXT,time[25],R2,time[1],R2,DarkGreen);
SetObjectText("R3_txt","R3","Arial",8,DarkGreen);
MoveObject("R3_txt",OBJ_TEXT,time[25],R3,time[1],R3,DarkGreen);
SetObjectText("S1_txt","S1","Arial",8,DarkRed);
MoveObject("S1_txt",OBJ_TEXT,time[25],S1,time[1],S1,DarkRed);
SetObjectText("S2_txt","S2","Arial",8,DarkRed);
MoveObject("S2_txt",OBJ_TEXT,time[25],S2,time[1],S2,DarkRed);
SetObjectText("S3_txt","S3","Arial",8,DarkRed);
MoveObject("S3_txt",OBJ_TEXT,time[25],S3,time[1],S3,DarkRed);
};