Список форумов AmiSite.ru AmiSite.ru
Форум по Ами
 FAQ  •  Поиск  •  Пользователи  •  Группы   •  Регистрация  •  Профиль  •  Войти и проверить личные сообщения  •  Вход
 Как перенести систему из метаса в ами? Следующая тема
Предыдущая тема
Начать новую тему  Ответить на тему
Автор Сообщение
Fox



Зарегистрирован: 18.06.2009
Сообщения: 2

СообщениеДобавлено: Пт Июн 19, 2009 1:14 pm Ответить с цитатой Вернуться к началу

Есть некая системка в метасе, хочется перенести ее в ами и автоматизировать. Помогите перевести, а то че-то перерыл тонну инфы, но так и не понял как это сделать.
Вот
Код:

F1:=ValueWhen(1,H<Ref(H,-2) AND Ref(H,-1)<Ref(H,-2) AND Ref(H,-3)<Ref(H,-2) AND Ref(H,-4)<Ref(H,-2),Ref(H,-2));
F2:=ValueWhen(1,L>Ref(L,-2) AND Ref(L,-1)>Ref(L,-2) AND Ref(L,-3)>Ref(L,-2) AND Ref(L,-4)>Ref(L,-2),Ref(L,-2));

a:=Cross(H,F1);
b:=Cross(F2,L);

state:=If(BarsSince(a)<BarsSince(b),1,0);

state>Ref(state,-1)
Посмотреть профиль Отправить личное сообщение
000
Site Admin


Зарегистрирован: 10.12.2007
Сообщения: 9106

СообщениеДобавлено: Пт Июн 19, 2009 1:26 pm Ответить с цитатой Вернуться к началу

Смогу ответить не раньше понедельника.

_________________
ceterum censeo carthaginem esse delendam
Удачи. Олег.
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
commenced
Советник


Зарегистрирован: 08.04.2008
Сообщения: 643
Откуда: от "Верблюда"

СообщениеДобавлено: Сб Июн 20, 2009 10:19 pm Ответить с цитатой Вернуться к началу

Fox писал(а):
Есть некая системка в метасе, хочется перенести ее в ами и автоматизировать. Помогите перевести, а то че-то перерыл тонну инфы, но так и не понял как это сделать.
Вот
Код:

F1:=ValueWhen(1,H<Ref(H,-2) AND Ref(H,-1)<Ref(H,-2) AND Ref(H,-3)<Ref(H,-2) AND Ref(H,-4)<Ref(H,-2),Ref(H,-2));
F2:=ValueWhen(1,L>Ref(L,-2) AND Ref(L,-1)>Ref(L,-2) AND Ref(L,-3)>Ref(L,-2) AND Ref(L,-4)>Ref(L,-2),Ref(L,-2));

a:=Cross(H,F1);
b:=Cross(F2,L);

state:=If(BarsSince(a)<BarsSince(b),1,0);

state>Ref(state,-1)


Зачем она тебе, посмотри внимательно условие a:=Cross(H,F1); т.е.H>ref(h,-2), но при этом F1:=ValueWhen(1,H<Ref(H,-2).....

_________________
Юра
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Bublgam



Зарегистрирован: 05.01.2009
Сообщения: 7

СообщениеДобавлено: Вс Июн 21, 2009 2:04 pm Ответить с цитатой Вернуться к началу

Fox писал(а):

Код:

F1:=ValueWhen(1,H<Ref(H,-2) AND Ref(H,-1)<Ref(H,-2) AND Ref(H,-3)<Ref(H,-2) AND Ref(H,-4)<Ref(H,-2),Ref(H,-2));
F2:=ValueWhen(1,L>Ref(L,-2) AND Ref(L,-1)>Ref(L,-2) AND Ref(L,-3)>Ref(L,-2) AND Ref(L,-4)>Ref(L,-2),Ref(L,-2));

a:=Cross(H,F1);
b:=Cross(F2,L);

state:=If(BarsSince(a)<BarsSince(b),1,0);

state>Ref(state,-1)


SetBarsRequired(100000,100000);
GraphXSpace=18;
SetChartOptions(1,chartShowArrows|chartShowDates,chartGridMiddle);

Plot(Close,"",colorBlack,styleCandle);

F1 = ValueWhen(H<Ref(H,-2) AND Ref(H,-1)<Ref(H,-2) AND Ref(H,-3)<Ref(H,-2) AND Ref(H,-4)<Ref(H,-2),Ref(H,-2));
F2 = ValueWhen(L>Ref(L,-2) AND Ref(L,-1)>Ref(L,-2) AND Ref(L,-3)>Ref(L,-2) AND Ref(L,-4)>Ref(L,-2),Ref(L,-2));

a = Cross(H,F1);
b = Cross(F2,L);

state = IIf(BarsSince(a)<BarsSince(b),1,0);

sts = IIf(state>Ref(state,-1),1,0);

PlotShapes(shapeHollowSmallDownTriangle * sts,colorRed,0,High,-10);
Посмотреть профиль Отправить личное сообщение
Fox



Зарегистрирован: 18.06.2009
Сообщения: 2

СообщениеДобавлено: Пн Июн 22, 2009 11:09 am Ответить с цитатой Вернуться к началу

commenced

ну я же написал, что для примера ... мне просто чтоб понять Smile

Bublgam

спасибо большое, дальше попробую сам доковырять задумку
Посмотреть профиль Отправить личное сообщение
000
Site Admin


Зарегистрирован: 10.12.2007
Сообщения: 9106

СообщениеДобавлено: Пн Июн 22, 2009 11:47 am Ответить с цитатой Вернуться к началу

Подзабыл я метас. Sad
По моему просто вот так. Но это только для лонгов.
Код:

F1 = ValueWhen(H<Ref(H,-2) AND Ref(H,-1)<Ref(H,-2) AND Ref(H,-3)<Ref(H,-2) AND Ref(H,-4)<Ref(H,-2),Ref(H,-2));
F2 = ValueWhen(L>Ref(L,-2) AND Ref(L,-1)>Ref(L,-2) AND Ref(L,-3)>Ref(L,-2) AND Ref(L,-4)>Ref(L,-2),Ref(L,-2));

Buy = Cross(H,F1);
Sell = Cross(F2,L);

Не знаю знаю только нафиг вообще это

state:=If(BarsSince(a)<BarsSince(b),1,0);
state>Ref(state,-1)

_________________
ceterum censeo carthaginem esse delendam
Удачи. Олег.
Посмотреть профиль Отправить личное сообщение Посетить сайт автора
Показать сообщения:      
Начать новую тему  Ответить на тему


 Перейти:   



Следующая тема
Предыдущая тема
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Вы не можете вкладывать файлы
Вы не можете скачивать файлы


Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Часовой пояс: GMT + 3

File Attachment © by Meik Sievertsen