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





СообщениеДобавлено: Ср Апр 16, 2008 5:18 pm Ответить с цитатой Вернуться к началу

что-то не так!


Последний раз редактировалось: виктор (Вт Апр 22, 2008 8:07 am), всего редактировалось 1 раз
commenced
Советник


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

СообщениеДобавлено: Ср Апр 16, 2008 5:47 pm Ответить с цитатой Вернуться к началу

Строка с ошибкой выделена, возможно перед ней пропущена
; или скобока лишняя, код кинь чтоб можно было посмотреть ошибку, причинто дофига может быть. И кстати, что есть "место" откуда перетащил?

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





СообщениеДобавлено: Ср Апр 16, 2008 7:55 pm Ответить с цитатой Вернуться к началу

Юра!Я перетащил это из http://www.amibroker.com/library/formula.php?id=100.Это система Б.Вильямса применительно к Амиброкеру.
000
Site Admin


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

СообщениеДобавлено: Ср Апр 16, 2008 9:58 pm Ответить с цитатой Вернуться к началу

Пробуй
Код:

/* The first set of lines are to set up the color coding for
the price bars */

outsidebar = Outside();
insidebar = H <= Ref(H,-1) AND L >= Ref(L,-1);
upbar = H > Ref(H,-1) AND L >= Ref(L, -1);
downbar = L < Ref(L,-1) AND H <= Ref(H,-1);
barcolor=IIf(outsidebar, 1, IIf(downbar, 4, IIf(upbar,5, 6) ) );

/*The following builds the alligator lines*/
MaxGraph=12;
AlligatorBlue=Ref(Wilders( Avg,13),-8);
Graph0=AlligatorBlue;
AlligatorRed=Ref(Wilders(Avg,8),-5);
Graph1=AlligatorRed;
AlligatorGreen=Ref(Wilders(Avg,5),-3);
Graph2=AlligatorGreen;
Graph0Style=Graph1Style=Graph2Style=1+4;

Graph3=C; 
Graph3Style=64;

/*Red:* modified for Amibroker*/


/*
Graph3Color=22;  22 is the number for dark green
*/

Graph3BarColor=barcolor;

Graph2Color=27; /* 6 is green */
Graph1Color=5;  /* 5 is red color */
Graph0Color=7;  /* 7 is dark blue */
/*The following builds Fractal Up*/
var1=ValueWhen(
  (Ref(H,-2) > Ref(H, -4)) AND
  (Ref(H,-2) > Ref(H, -3)) AND
  (Ref(H,-2) > Ref(H, -1)) AND
  (Ref(H,-2) > H), Ref(H,-2),1);
FractalUp=HighestSince(var1>0,var1,1);
Graph4=FractalUp;
Graph4Color=3;  /* 6 is green */
Graph4Style=9;
/*The following builds Fractal Down*/
var2=
(Ref(L,-2) <= Ref(L, -1)) AND
(Ref(L,-2) <= Ref(L, 0)) AND
(Ref(L,-2) <= Ref(L, -3)) AND
(Ref(L,-2) <= Ref(L, -4));
FractalDown=ValueWhen( var2,Ref(L,-2),1);
Graph5=FractalDown;
Graph5Style=1;
Graph5Color=8;  /* red is 5 blue is 7 */
Graph5Style=9;
/*
Graph6=ma(c,17);
graph7=ma(c,50);
graph8=ma(c,200);
graph6Style=Graph7Style=graph8Style=12;
*/

/* Below are the buy sell signals for testing */

Buy = Cross(H,FractalUp+0.065) 
            AND  (C > AlligatorRed)                ; 

Sell= Avg < AlligatorGreen
        OR    (Ref(C,-2) < FractalUp
        AND (Ref(C,-1)<Ref(C,-2) )        )             ;



/* The following is Guru commentary coding  */
/* Guru Commentary */

WriteIf(Hold(Buy==1,10),
    "Buy signal bars ago  " +   WriteIf(Hold(Buy==1,10),
    WriteVal(BarsSince(Buy==1)),""),
    "No Buy Signal")  + "\n" +
WriteIf(Hold(Sell==1,10),
    "Sell signal bars ago  " +   WriteIf(Hold(Sell==1,10),
    WriteVal(BarsSince(Sell==1)),""),
    "No Sell Signal")  ;

/* End of commentary code */

/* The following lines of code set up a sell on the last day if in an open position*/
barnumber = Cum( 1 );
lastbar = barnumber == LastValue( barnumber );
Sell = Sell OR LASTBAR;

Filter = Cross(H,FractalUp+0.065)  OR Cross(L,FractalDown-0.065) ; 

NumColumns = 5;
Column0 = IIf(Buy==1,1,-1);
Column0Format = 1.2;
Column0Name = "Buy+1,Sell-1";WriteIf(Buy==1,"  Buy","  Sell" );
Column1 = FractalUp;
Column1Name = "FractalUp";Column1 = FractalUp; WriteVal(FractalUp);
Column1Format = 1.2;

Column2 = FractalDown;
Column2Name = "Fractal Down";
Column2Format = 1.2;
Column3 = MA(V,3)/EMA(V,17);
Column3Name = "MAV(3/17)";
Column3Format=1.2;
Column4 = C;
Column4Name = "Today's Close ";
Column4Format=1.2;


/* removes redundant buy and sell signals */
Buy=ExRem(Buy,Sell);
Sell=ExRem(Sell,Buy);


first=1; 

/* First is the number of days for each ROC interval for reviewing performance */
/* To use this filter always make the current day at least 3*first days before the current date
    for meaningful results */
/*
numcolumns = 7;
column0 = C;
column0format = 1.2;
column0name = "Close";
column1 = ref(C, 1+first);
column1name = "Close+i ";
column1format = 1.2;
column2 = ref(C,1+first*2);
column2name = "Close+i*2   ";
column2format = 1.2;
column3 =  ref(C,1+first*3);
column3name = "Close+i*3 ";
column3format = 1.2;
column4= ref(C,first*1+1)  -  C;
column4name="ROC+i";
column4format = 1.2;
column5=  ref(C,first*2+1)  -  C;
column5name="ROC+2i";
column5format = 1.2;
column6=  ref(C,first*3+1)  -  C;
column6name="ROC+3i";
column6format = 1.2;
*/
/*  End of Exploration Code. */

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





СообщениеДобавлено: Чт Апр 17, 2008 6:56 am Ответить с цитатой Вернуться к началу

Олег!Я перетащил код,но при этом перед ним появляется вот такая бяка:Обычный термин.Список определений.....При кликекнопки применения эта бяка закрашивается желтым цветом,авнизу появляется ремарка:Ln:1,Col:2:Error30.Syntax error.Как быть?
commenced
Советник


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

СообщениеДобавлено: Чт Апр 17, 2008 7:13 am Ответить с цитатой Вернуться к началу

виктор писал(а):
Олег!Я перетащил код,но при этом перед ним появляется вот такая бяка:Обычный термин.Список определений.....При кликекнопки применения эта бяка закрашивается желтым цветом,авнизу появляется ремарка:Ln:1,Col:2:Error30.Syntax error.Как быть?


Скопировал код Олега все пучком, ты как перетаскиваеш, копируеш код, открываеш формулу эдитор и вставляеш туда, после чего жмеш кнопку апли индикатор?

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





СообщениеДобавлено: Чт Апр 17, 2008 7:49 am Ответить с цитатой Вернуться к началу

Юра!Я выделил то,что нужно перетащить,перетащил в окно формулы-эдитор, кликнул сохранить,затем применить и получаю те бяки,о которых я уже писал.Что не так?
commenced
Советник


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

СообщениеДобавлено: Чт Апр 17, 2008 8:01 am Ответить с цитатой Вернуться к началу

виктор писал(а):
Юра!Я выделил то,что нужно перетащить,перетащил в окно формулы-эдитор, кликнул сохранить,затем применить и получаю те бяки,о которых я уже писал.Что не так?


Скопируй на форум то что вставляеш в окно формулы-эдитор.

_________________
Юра

Последний раз редактировалось: commenced (Чт Апр 17, 2008 8:27 am), всего редактировалось 1 раз
Посмотреть профиль Отправить личное сообщение Отправить e-mail
commenced
Советник


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

СообщениеДобавлено: Чт Апр 17, 2008 8:07 am Ответить с цитатой Вернуться к началу

Все разобрался замени все A на Avg и будет счастье. Smile

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


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

СообщениеДобавлено: Чт Апр 17, 2008 8:10 am Ответить с цитатой Вернуться к началу

Я же уже заменил.

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


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

СообщениеДобавлено: Чт Апр 17, 2008 8:12 am Ответить с цитатой Вернуться к началу

000 писал(а):
Я же уже заменил.


Так он похоже не заметил разницу и впихнуть хочет именно с сайта.

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





СообщениеДобавлено: Чт Апр 17, 2008 9:06 am Ответить с цитатой Вернуться к началу

Юра и Олег,спасибо!Я смог увидеть разницу меж кодом Олега и кодом с сайта.Сам я заменить a на avg не смог сразу, а потому воспользуюсь кодом Олега.Теперь у меня вопрос: как(пошагово) вставить код Олега в поле формула-эдитор? Использование drag&drop приводит к появлению ремарки:синтакс-ошибка 30.
commenced
Советник


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

СообщениеДобавлено: Чт Апр 17, 2008 9:19 am Ответить с цитатой Вернуться к началу

виктор писал(а):
Юра и Олег,спасибо!Я смог увидеть разницу меж кодом Олега и кодом с сайта.Сам я заменить a на avg не смог сразу, а потому воспользуюсь кодом Олега.Теперь у меня вопрос: как(пошагово) вставить код Олега в поле формула-эдитор? Использование drag&drop приводит к появлению ремарки:синтакс-ошибка 30.


Перестаеш относиться к индюку как к произведению искуства и делаеш с ним то что сделал бы с вордовским документом. Еще есть подсказка в моем вопросе тебе чуть выше. Smile Перечитал твой пост, ты что текстовые файлы копировать не умеш?

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





СообщениеДобавлено: Чт Апр 17, 2008 3:11 pm Ответить с цитатой Вернуться к началу

Олег и Юра! Спасибо.Билл Вильямс заработал.Правда осталась одна непонятность:почему Олегов код пришлось заводить через ворд, а перетаскивание с сайта форума приводило к синтакс-ошибке 30.Но это мелочь.Много чего до конца не ясно.Главное-система Б.Вильямса на моем мониторе благодаря вам!
commenced
Советник


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

СообщениеДобавлено: Чт Апр 17, 2008 3:55 pm Ответить с цитатой Вернуться к началу

виктор писал(а):
Олег и Юра! Спасибо.Билл Вильямс заработал.Правда осталась одна непонятность:почему Олегов код пришлось заводить через ворд, а перетаскивание с сайта форума приводило к синтакс-ошибке 30.Но это мелочь.Много чего до конца не ясно.Главное-система Б.Вильямса на моем мониторе благодаря вам!


Когда я имел ввиду ворд я имел ввиду порядок действий и принцып дейстий мыши, а не копирование через вордовский документ, это как бы можно делать, но зачем. теперь сделай тож самое, но пропустив ворд, мне так кажется что ты в начале не весь код выделял при копировании. Так, чета меня смущает твое слово перетаскивать, ты выделял код и перетаскивал чтоли, попробуй выделить, потом правая кнопка мышки, потом жми копировать, потом ставь указатель мышки в открытое окно формула-эдитор, жмеш левую кнопку(активируеш курсов в окне) потом опять правую выбираеш Paste все. Кстати, а как ты параметры системы менять собираешся и еще у меня сложилось впечатление что система написана под робот и тестить без изменений ее нельзя, но это лучше к Олегу я пока не доконца разобрался.

_________________
Юра
Посмотреть профиль Отправить личное сообщение Отправить e-mail
Показать сообщения:      
Начать новую тему  Ответить на тему


 Перейти:   



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


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

File Attachment © by Meik Sievertsen