Автор |
Сообщение |
r-manager
Зарегистрирован: 02.04.2008
Сообщения: 17
|
Кажется это называется фракталами. Если не ошибаюсь, то с индикатора Аллигатор.
Полагаю, что есть уже написанный код. Не могли бы поделиться |
|
|
Посмотреть профиль Отправить личное сообщение |
|
диван
Зарегистрирован: 01.05.2008
Сообщения: 64
|
Код: |
/* The first set of lines are to set up the color coding for
the price bars */
outsidebar = Outside();
insidebar = H <Ref>= Ref(L,-1);
upbar = H > Ref(H,-1) AND L >= Ref(L, -1);
downbar = L < Ref(L,-1) AND H <Ref> 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> 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. */ |
|
_________________ Алексей |
|
Посмотреть профиль Отправить личное сообщение |
|
r-manager
Зарегистрирован: 02.04.2008
Сообщения: 17
|
Спасибо! Попробую разобраться. |
|
|
Посмотреть профиль Отправить личное сообщение |
|
диван
Зарегистрирован: 01.05.2008
Сообщения: 64
|
не за что |
_________________ Алексей |
|
Посмотреть профиль Отправить личное сообщение |
|
yanus
Гость
|
тут ошибка в коде:
Цитата: |
insidebar = H <Ref>= Ref(L,-1); |
какие правильные значения? |
|
|
|
|
000
Site Admin
Зарегистрирован: 10.12.2007
Сообщения: 9106
|
|
Посмотреть профиль Отправить личное сообщение Посетить сайт автора |
|
yanus
Гость
|
тамошний код почему то тоже битый....
нашел вроде рабочий. может кому и пригодиться:
Код: |
K = Param("K",5,1,25,1,0);
HPrice[0]=H[0];
LPrice[0]=L[0];
Trend[0]=0;
Reverse[0]=(1+K/100)*L[0];
for(i=1;i<BarCount>=0)
{
if (H[i] > HPrice[i-1])
HPrice[i] = H[i];
else
HPrice[i] = HPrice[i-1];
Reverse[i] = HPrice[i]*(1 - K/100);
if (L[i] <= Reverse[i])
{
Trend[i] = -1;
LPrice[i] = L[i];
Reverse[i] = LPrice[i]*(1 + K/100);
}
else
{
Trend[i]=Trend[i-1];
LPrice[i]=LPrice[i-1];
}
}
else
{
if (L[i] <LPrice>= Reverse[i])
{
Trend[i] = 1;
HPrice[i] = H[i];
Reverse[i] = HPrice[i]*(1 - K*.01);
}
else
{
Trend[i]=Trend[i-1];
HPrice[i]=HPrice[i-1];
{
}
}}}
Plot( Reverse,_DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") );
Plot(C, "C", colorBlack, styleCandle); |
|
|
|
|
|
Сергей
Зарегистрирован: 16.03.2008
Сообщения: 168
|
yanus писал(а): |
тамошний код почему то тоже битый....
нашел вроде рабочий. может кому и пригодиться:
Код: |
K = Param("K",5,1,25,1,0);
HPrice[0]=H[0];
LPrice[0]=L[0];
Trend[0]=0;
Reverse[0]=(1+K/100)*L[0];
for(i=1;i<BarCount>=0)
{
if (H[i] > HPrice[i-1])
HPrice[i] = H[i];
else
HPrice[i] = HPrice[i-1];
Reverse[i] = HPrice[i]*(1 - K/100);
if (L[i] <= Reverse[i])
{
Trend[i] = -1;
LPrice[i] = L[i];
Reverse[i] = LPrice[i]*(1 + K/100);
}
else
{
Trend[i]=Trend[i-1];
LPrice[i]=LPrice[i-1];
}
}
else
{
if (L[i] <LPrice>= Reverse[i])
{
Trend[i] = 1;
HPrice[i] = H[i];
Reverse[i] = HPrice[i]*(1 - K*.01);
}
else
{
Trend[i]=Trend[i-1];
HPrice[i]=HPrice[i-1];
{
}
}}}
Plot( Reverse,_DEFAULT_NAME(), ParamColor( "Color", colorCycle ), ParamStyle("Style") );
Plot(C, "C", colorBlack, styleCandle); |
|
Этот тоже битый, там где for |
|
|
Посмотреть профиль Отправить личное сообщение |
|
000
Site Admin
Зарегистрирован: 10.12.2007
Сообщения: 9106
|
Это все потому, что форум косячит, а как исправить я не знаю... Лучше коды прикреплять... |
_________________ ceterum censeo carthaginem esse delendam
Удачи. Олег. |
|
Посмотреть профиль Отправить личное сообщение Посетить сайт автора |
|
Сергей
Зарегистрирован: 16.03.2008
Сообщения: 168
|
Сергей писал(а): |
yanus писал(а): |
тамошний код почему то тоже битый.... |
нашел вроде рабочий. может кому и пригодиться: |
Янус прикрепи текстовик с кодом, код интересный, плиз |
|
|
Посмотреть профиль Отправить личное сообщение |
|
yanus
Гость
|
Сергей писал(а): |
Сергей писал(а): |
yanus писал(а): |
тамошний код почему то тоже битый.... |
нашел вроде рабочий. может кому и пригодиться: |
Янус прикрепи текстовик с кодом, код интересный, плиз |
прикрепил |
|
|
|
|
SERGEY V.
Зарегистрирован: 24.04.2008
Сообщения: 84
Откуда: Новосибирск
|
Вот еще есть фракталы. |
_________________ О сколько нам открытий чудных
Готовят просвещенья дух
И опыт, сын ошибок трудных,
И гений, парадоксов друг,
И случай, бог изобретатель.
А.С. Пушкин <1829> |
|
Посмотреть профиль Отправить личное сообщение |
|
|
|
Следующая тема
Предыдущая тема
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете голосовать в опросах Вы не можете вкладывать файлы Вы не можете скачивать файлы
|
|