Автор |
Сообщение |
thekhovik
Зарегистрирован: 26.06.2008
Сообщения: 9
|
Помогите переписать индикатор из MS в AFL, это HiLo активатор Крауза:
MS
{name: GANN-HiLo}
HLd:=If(CLOSE>Ref(Mov(H,3,S),-1),
{then}1,
{else}If(CLOSE<Ref(Mov(L,3,S),-1),
{then}-1,
{else}0));
HLv:=ValueWhen(1,HLd<>0,HLd);
HiLo:=If(HLv=-1,
{then}Mov(H,3,S),
{else}Mov(L,3,S));
HiLo; |
|
|
Посмотреть профиль Отправить личное сообщение |
|
000
Site Admin
Зарегистрирован: 10.12.2007
Сообщения: 9106
|
Цеховик писал(а): |
Помогите переписать индикатор из MS в AFL, это HiLo активатор Крауза:
MS
{name: GANN-HiLo}
HLd:=If(CLOSE>Ref(Mov(H,3,S),-1),
{then}1,
{else}If(CLOSE<Ref(Mov(L,3,S),-1),
{then}-1,
{else}0));
HLv:=ValueWhen(1,HLd<>0,HLd);
HiLo:=If(HLv=-1,
{then}Mov(H,3,S),
{else}Mov(L,3,S));
HiLo; |
Держи. Это не адаптация кода метаса. Просто я давно делал. Пошарил на винте - нашел
Код: |
HiLoH = MA(H, 3);
HiLoL = MA(L, 3);
ReversUp = Cross(C, HiLoH);
ReversDown = Cross(HiLoL, C);
ReversUp = ExRem(ReversUp, ReversDown);
ReversDown = ExRem(ReversDown, ReversUp);
Direct = Flip(ReversUp, ReversDown);
DirectHiLo = Ref(Direct, -1);
HiLoH = IIf(NOT DirectHiLo, HiLoH, Null);
HiLoL = IIf(DirectHiLo, HiLoL, Null);
Plot(HiloH, "", colorGreen, styleStaircase);
Plot(HiloL, "", colorRed, styleStaircase);
Plot(C, "C", colorBlack, styleCandle);
|
|
_________________ ceterum censeo carthaginem esse delendam
Удачи. Олег. |
|
Посмотреть профиль Отправить личное сообщение Посетить сайт автора |
|
thekhovik
Зарегистрирован: 26.06.2008
Сообщения: 9
|
Спасибо большое, то что нужно! |
|
|
Посмотреть профиль Отправить личное сообщение |
|
|
|
Следующая тема
Предыдущая тема
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете голосовать в опросах Вы не можете вкладывать файлы Вы не можете скачивать файлы
|
|