Гармоническая торговля - страница 44

 

зико,

а теперь код для GARTLEY 222, более простой код, который не выдает столько сигналов, но более надежен, чем gartley

Входы:

Длина(100),

Сила(8),

Допуск(0.10),

BullColor(Blue),

BearColor(Red);

Переменные:

F1(0.618),

F2(0.786),

F3(1.27),

F4(1.618),

P1Bar(-1),

P2Bar(-1),

T1Bar(-1),

T2Bar(-1),

P1(0.0),

P2(0.0),

T1(0.0),

T2(0.0),

PTValid(False),

HLValid(False),

InZone(False),

GD(0.0),

XA(0.0),

AB(0.0),

BC(0.0),

CD(0.0),

AD(0.0),

C1(False),

C2(False),

C3(False),

C4(False),

ABdXA(0.0),

BCdAB(0.0),

CDdBC(0.0),

ADdXA(0.0),

TL1(-1),

TL2(-1),

TL3(-1),

TL4(-1),

TL5(-1),

TL6(-1);

P1Bar = SwingHighBar(1, High, Strength, Length);

P2Bar = SwingHighBar(2, High, Strength, Length);

T1Bar = SwingLowBar(1, Low, Strength, Length);

T2Bar = SwingLowBar(2, Low, Strength, Length);

Если P1Bar -1 и

P2Bar -1 и

T1Bar -1 и

T2Bar -1 Then Begin

{Тест на бычий уровень 222}

{Trough X - T2}

T2 = Low[T2Bar]

{Пик A - P2}

P2 = High[P2Bar];

{Trough B - T1}

T1 = Low[T1Bar];

{Пик C - P1}

P1 = High[P1Bar];

{D - точка покупки}

GD = Low;

PTValid = P1Bar < T1Bar и T1Bar < P2Bar и P2Bar < T2Bar;

HLValid = P1 T2 и P1 > T1;

InZone = GD T2 и P2 >= Highest(High, T2Bar);

If PTValid and HLValid and InZone Then Begin

XA = P2 - T2;

AB = P2 - T1;

BC = P1 - T1;

CD = P1 - GD;

AD = P2 - GD;

ABdXA = AB / XA; {AB должно составлять 61,8% от XA}.

C1 = ABdXA > F1 - Допуск и ABdXA < F1 + Допуск;

BCdAB = BC / AB; {BC должно составлять 61,8-78,6% от AB}

C2 = BCdAB > F1 - Допуск и BCdAB < F2 + Допуск;

CDdBC = CD / BC; {CD должно составлять 127-161,8% от BC}

C3 = CDdBC > F3 - Допуск и CDdBC < F4 + Допуск;

ADdXA = AD / XA; {AD должно составлять 78,6% от XA}

C4 = ADdXA > F2 - Допуск и ADdXA < F2 + Допуск;

If C1 and C2 and C3 and C4 Then Begin

TL1 = TL_New(Date[T2Bar], Time[T2Bar], T2, Date[P2Bar], Time[P2Bar], P2);

If TL1 >= 0 Then Begin

TL_SetColor(TL1, BullColor);

TL_SetStyle(TL1, Tool_Solid);

TL_SetSize(TL1, 2);

End;

TL2 = TL_New(Date[P2Bar], Time[P2Bar], P2, Date[T1Bar], Time[T1Bar], T1);

If TL2 >= 0 Then Begin

TL_SetColor(TL2, BullColor);

TL_SetStyle(TL2, Tool_Solid);

TL_SetSize(TL2, 2);

End;

TL3 = TL_New(Date[T1Bar], Time[T1Bar], T1, Date[P1Bar], Time[P1Bar], P1);

If TL3 >= 0 Then Begin

TL_SetColor(TL3, BullColor);

TL_SetStyle(TL3, Tool_Solid);

TL_SetSize(TL3, 2);

End;

TL4 = TL_New(Date[P1Bar], Time[P1Bar], P1, Date, Time, GD);

If TL4 >= 0 Then Begin

TL_SetColor(TL4, BullColor);

TL_SetStyle(TL4, Tool_Solid);

TL_SetSize(TL4, 2);

End;

TL5 = TL_New(Date[T1Bar], Time[T1Bar], T1, Date, Time, GD);

If TL5 >= 0 Then Begin

TL_SetColor(TL5, BullColor);

TL_SetStyle(TL5, Tool_Dotted);

End;

TL6 = TL_New(Date[T2Bar], Time[T2Bar], T2, Date, Time, GD);

If TL6 >= 0 Then Begin

TL_SetColor(TL6, BullColor);

TL_SetStyle(TL6, Tool_Dotted);

End;

End;

End;

{Тест на медвежий уровень 222}

{Peak X - P2}

{Впадина A - T2}

{Пик B - P1}

{Trough C - T1}

{GD - короткая точка}

GD = High;

PTValid = T1Bar < P1Bar и P1Bar < T2Bar и T2Bar < P2Bar;

HLValid = T1 > T2 и P1 < P2 и T1 < P1;

InZone = GD > P1 и GD < P2 и T2 <= Lowest(Low, P2Bar);

If PTValid and HLValid and InZone Then Begin

XA = P2 - T2;

AB = P1 - T2;

BC = P1 - T1;

CD = GD - T1;

AD = GD - T2;

ABdXA = AB / XA; {AB должно составлять 61,8% от XA}.

C1 = ABdXA > F1 - Допуск и ABdXA < F1 + Допуск;

BCdAB = BC / AB; {BC должно составлять 61,8-78,6% от AB}

C2 = BCdAB > F1 - Допуск и BCdAB < F2 + Допуск;

CDdBC = CD / BC; {CD должно составлять 127-161,8% от BC}

C3 = CDdBC > F3 - Допуск и CDdBC < F4 + Допуск;

ADdXA = AD / XA; {AD должно составлять 78,6% от XA}

C4 = ADdXA > F2 - Допуск и ADdXA < F2 + Допуск;

If C1 and C2 and C3 and C4 Then Begin

TL1 = TL_New(Date[P2Bar], Time[P2Bar], P2, Date[T2Bar], Time[T2Bar], T2);

If TL1 >= 0 Then Begin

TL_SetColor(TL1, BearColor);

TL_SetStyle(TL1, Tool_Solid);

TL_SetSize(TL1, 2);

End;

TL2 = TL_New(Date[T2Bar], Time[T2Bar], T2, Date[P1Bar], Time[P1Bar], P1);

If TL2 >= 0 Then Begin

TL_SetColor(TL2, BearColor);

TL_SetStyle(TL2, Tool_Solid);

TL_SetSize(TL2, 2);

End;

TL3 = TL_New(Date[P1Bar], Time[P1Bar], P1, Date[T1Bar], Time[T1Bar], T1);

If TL3 >= 0 Then Begin

TL_SetColor(TL3, BearColor);

TL_SetStyle(TL3, Tool_Solid);

TL_SetSize(TL3, 2);

End;

TL4 = TL_New(Date[T1Bar], Time[T1Bar], T1, Date, Time, GD);

If TL4 >= 0 Then Begin

TL_SetColor(TL4, BearColor);

TL_SetStyle(TL4, Tool_Solid);

TL_SetSize(TL4, 2);

End;

TL5 = TL_New(Date[P1Bar], Time[P1Bar], P1, Date, Time, GD);

If TL5 >= 0 Then Begin

TL_SetColor(TL5, BearColor);

TL_SetStyle(TL5, Tool_Dotted);

End;

TL6 = TL_New(Date[P2Bar], Time[P2Bar], P2, Date, Time, GD);

If TL6 >= 0 Then Begin

TL_SetColor(TL6, BearColor);

TL_SetStyle(TL6, Tool_Dotted);

End;

End;

End;

Конец;

 

еще один в йене

 

индикатор zitko указывает на медвежий флет на gbp 30m

 

Вы понимаете, что я понимаю?

 
camisa:
индикатор zitko указывает на медвежий разворот на gbp 30m

Индикатор еще не завершен, он просто дает точки XABCD и печатает откат/расширение между этими точками, он не проверяет, соответствуют ли эти откат/расширение правилу паттерна или нет.

 
kamyar:
еще один по йене

этот паттерн является инавлидом,

согласно правилам линия AC 0.832 или 0.886, на данном графике это 1.09.

 
ziko123:
этот паттерн является инавлидным, согласно правилам линия AC 0.832 или 0.886, на данном графике это 1.09.

привет зико

спасибо за внимание, но мне интересно, на каком основании вы говорите, что шаблон недействителен. я буду очень рада, если вы разъясните это. ??????????

также посмотрите на картинку. может я ошиблась!!!????????

 

AC на моем графике показывает 1.09, позвольте мне проверить еще раз.

 

AC = (высокий(b)-низкий(c))/(высокий(b)-низкий(a))

= (118,57-118,22)/(118,57-118,25) = 1,093, а не 0,764

линия AC на вашем графике соединяет A с точкой, расположенной немного выше C

 
ziko123:
Причина, по которой мне нужны четко определенные правила, в том, что я начал разрабатывать индикатор для этих паттернов, я начал с медвежьей бабочки,

Я прилагаю индикатор,

вы можете протестировать его на более ранних графиках, опубликованных kamyar на прошлой неделе,

тестирую его на EURUSD, 4H и EURCAD, 4H.

отличный индикатор... отличная работа... спасибо.