Знающим Omega PowerEditor 2000 i язык

*Коля*

Кто знает как переписать етот индикатор под Omega TradeStation PowerEditor 2000i язык. Он очень красиво показывает дивергенции, но вот как переписать его из языка TS7 на Omega TradeStation - ето вопрос.

https://www.tradestationworld.com/discussions/DATA/200321693558_OscDivergence.gif

https://www.tradestationworld.com/discussions/topic.asp?TOPIC_ID=7005

****************************************************
Inputs: Indicator(SlowDClassic(5,5)), PivotStrength(5), HiDivergeColor(Red), LoDivergeColor(Green), DivergeWidth1234(2),
SlopToLeft(4), SlopToRight(2);

Variables: HPivBreakSub1(0), LPivBreakSub1(0), HPivPointBackSub1(0), LPivPointBackSub1(0),
HPivBreakSub2(0), LPivBreakSub2(0), HiDivCount(0), LoDivCount(0), LoopCount(0);

HPivPointBackSub1 = KenMROFC(15,SGPivotHighBar(PivotStrength) of Data1 = PivotStrength , 50) of data1 + PivotStrength;
LPivPointBackSub1 = KenMROFC(16,SGPivotLowBar(PivotStrength) of Data1 = PivotStrength , 50) of data1 + PivotStrength;

If Time > Time[1] then
begin
HiDivCount = 0;
LoDivCount = 0;

If KenMROFC(1,SGPivotHighBar(PivotStrength) =PivotStrength , 50)+PivotStrength >= Pivotstrength AND
KenMROFC(2,SGPivotHighBar(PivotStrength)=PivotStrength ,50)+PivotStrength H[KenMROFC(3,SGPivotHighBar(PivotStrength)=PivotStrength,50)+PivotStrength] then
HPivBreakSub1 = 1
else
IF SGPivotHighBar(PivotStrength) >= PivotStrength AND SGPivotHighBar(PivotStrength) = Highest(C,KenMROFC(5,SGPivotHighBar(PivotStrength)=PivotStrength,50)+PivotStrength+ SlopToLeft) then
HPivBreakSub1 = 1
else
IF SGPivotHighBar(PivotStrength) >= PivotStrength AND SGPivotHighBar(PivotStrength) = Highest(MedianPriceWeighted,KenMROFC(7, SGPivotHighBar(PivotStrength)=PivotStrength,50)+PivotStrength + SlopToLeft) then
HPivBreakSub1 = 1
else
HPivBreakSub1 = -1;
end;

If Time > Time[1] then
begin
If KenMROFC(8,SGPivotLowBar(PivotStrength)=PivotStrength , 50)+PivotStrength >= PivotStrength AND
KenMROFC(9, SGPivotLowBar(PivotStrength)=PivotStrength, 50)+PivotStrength time[1] then begin
If LPivBreakSub1 = 1 AND LPivBreakSub2 = -1 then begin
LoDivCount = LoDivCount + 1;
end;
end;

plot1(Indicator,"Indicator");
If HiDivCount = 1 then begin
SetPlotColor[1](1, HiDivergeColor);
SetPlotWidth[1](1, DivergeWidth1234);
End;

If LoDivCount = 1 then begin
SetPlotColor[1](1, LoDivergeColor);
SetPlotWidth[1](1, DivergeWidth1234);
End;
******************************************************
Inputs: Strength(NumericSimple);

Variables: Count(1), RightSwitch(False), LeftSwitch(False);

Count = 1;
RightSwitch = False;
LeftSwitch = False;

While Count =H[Strength + Count] then begin
Count = Count +1;
RightSwitch = TRUE;
end
else begin
RightSwitch = False;
Count = Strength + 1;
end;
end;

Count = 1;
While Count = H[Strength - Count] then begin
Count = Count + 1;
LeftSwitch = True;
end
else begin
LeftSwitch = False;
Count = Strength +1;
end;
end;

If LeftSwitch = True AND RightSwitch = True then
SGPivotHighBar = Strength
else
SGpivotHighBar = SGPivotHighBar[1] + 1;

RightSwitch = False;
LeftSwitch = False;
****************************************************
Inputs: Strength(NumericSimple);

Variables: Count(1), RightSwitch(False), LeftSwitch(False);

Count = 1;
RightSwitch = False;
LeftSwitch = False;

While Count

**

**

Colon

Не вникая в подробности текста, видно что идет обращение к функции KenMROFC(). Этой функции в EasyLanguage PowerEditor - нет. Пока не будет загружена эта функция - работать не будет

Colon

Я проверил формулы.
НИЧЕГО переписывать не надо. В редактор переносишь один индикатор и четыре функции.
Все работает. Wink

Удачи.

*Коля*

Colon, зделай ехпорт этого индикатора, если он у тебя работает и если, конечно, нетрудно, и пошли мне в e-mail aleksej21@mail.ru

А то я пытался его запустит, но мне ничего невышло.
KenMROFC() - я на этой функции застрял.

Colon

Принимай

*студент*

2Colon откуда переносишь???