Comercio armónico - página 44

 

ziko,

y ahora el código para el GARTLEY 222, UN CÓDIGO MÁS SIMPLE QUE NO PRODUCE TANTAS SEÑALES, PERO ES MÁS FIABLE QUE EL GARTLEY

Entradas:

Longitud(100),

Fuerza(8),

Tolerancia(0.10),

BullColor(Blue),

BearColor(Red);

Variables:

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(Falso),

C2(Falso),

C3(Falso),

C4(Falso),

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);

Si P1Bar -1 y

P2Bar -1 y

T1Bar -1 y

T2Bar -1 Entonces Comienza

{Prueba de un 222 alcista}

{Trough X es T2}

T2 = Low[T2Bar];

{El pico A es P2}

P2 = Alto[P2Bar];

{El pico B es T1}

T1 = Low[T1Bar];

{El pico C es P1}

P1 = Alto[P1Bar];

{D es el punto de compra}

GD = Low[P1Bar]; {Pico C es P1}; {D es el punto de compra}

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

HLValid = P1 T2 y P1 > T1;

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

Si PTValid y HLValid e InZone Entonces Comienza

XA = P2 - T2;

AB = P2 - T1

BC = P1 - T1;

CD = P1 - GD;

AD = P2 - GD;

ABdXA = AB / XA; {AB debe ser el 61,8% de XA}

C1 = ABdXA > F1 - Tolerancia y ABdXA < F1 + Tolerancia;

BCdAB = BC / AB; {BC debe ser el 61,8-78,6% de AB}

C2 = BCdAB > F1 - Tolerancia y BCdAB < F2 + Tolerancia;

CDdBC = CD / BC; {CD debe ser 127-161,8% de BC}

C3 = CDdBC > F3 - Tolerancia y CDdBC < F4 + Tolerancia;

ADdXA = AD / XA; {AD debe ser el 78,6% de XA}

C4 = ADdXA > F2 - Tolerancia y ADdXA < F2 + Tolerancia;

Si C1 y C2 y C3 y C4 Entonces Comienza

TL1 = TL_New(Fecha[T2Bar], Hora[T2Bar], T2, Fecha[P2Bar], Hora[P2Bar], P2);

Si TL1 >= 0 Entonces Comienza

TL_SetColor(TL1, BullColor);

TL_SetStyle(TL1, Tool_Solid);

TL_SetSize(TL1, 2);

Fin;

TL2 = TL_New(Fecha[P2Bar], Hora[P2Bar], P2, Fecha[T1Bar], Hora[T1Bar], T1);

Si TL2 >= 0 Entonces Comienza

TL_SetColor(TL2, BullColor);

TL_SetStyle(TL2, Tool_Solid);

TL_SetSize(TL2, 2);

Fin;

TL3 = TL_New(Fecha[T1Bar], Hora[T1Bar], T1, Fecha[P1Bar], Hora[P1Bar], P1);

Si TL3 >= 0 Entonces Comienza

TL_SetColor(TL3, BullColor);

TL_SetStyle(TL3, Tool_Solid);

TL_SetSize(TL3, 2);

Fin;

TL4 = TL_New(Fecha[P1Bar], Hora[P1Bar], P1, Fecha, Hora, GD);

Si TL4 >= 0 Then Begin

TL_SetColor(TL4, BullColor);

TL_SetStyle(TL4, Tool_Solid);

TL_SetSize(TL4, 2);

Fin;

TL5 = TL_New(Fecha[T1Bar], Hora[T1Bar], T1, Fecha, Hora, GD);

If TL5 >= 0 Then Begin

TL_SetColor(TL5, BullColor);

TL_SetStyle(TL5, Tool_Dotted);

Fin;

TL6 = TL_New(Fecha[T2Bar], Hora[T2Bar], T2, Fecha, Hora, GD);

If TL6 >= 0 Then Begin

TL_SetColor(TL6, BullColor);

TL_SetStyle(TL6, Tool_Dotted);

Fin;

Fin;

Fin;

{Test para un 222 bajista}

{El pico X es P2}

{El pico A es T2}

{Pico B es P1}

{El pico C es T1}

{GD es el punto corto}

GD = Alto;

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

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

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

Si PTValid y HLValid e InZone Entonces Comienza

XA = P2 - T2;

AB = P1 - T2

BC = P1 - T1

CD = GD - T1

AD = GD - T2;

ABdXA = AB / XA; {AB debe ser el 61,8% de XA}

C1 = ABdXA > F1 - Tolerancia y ABdXA < F1 + Tolerancia;

BCdAB = BC / AB; {BC debe ser el 61,8-78,6% de AB}

C2 = BCdAB > F1 - Tolerancia y BCdAB < F2 + Tolerancia;

CDdBC = CD / BC; {CD debe ser 127-161,8% de BC}

C3 = CDdBC > F3 - Tolerancia y CDdBC < F4 + Tolerancia;

ADdXA = AD / XA; {AD debe ser el 78,6% de XA}

C4 = ADdXA > F2 - Tolerancia y ADdXA < F2 + Tolerancia;

Si C1 y C2 y C3 y C4 Entonces Comienza

TL1 = TL_New(Fecha[P2Bar], Hora[P2Bar], P2, Fecha[T2Bar], Hora[T2Bar], T2);

Si TL1 >= 0 Entonces Comienza

TL_SetColor(TL1, BearColor);

TL_SetStyle(TL1, Tool_Solid);

TL_SetSize(TL1, 2);

Fin;

TL2 = TL_New(Fecha[T2Bar], Hora[T2Bar], T2, Fecha[P1Bar], Hora[P1Bar], P1);

Si TL2 >= 0 Entonces Comienza

TL_SetColor(TL2, BearColor);

TL_SetStyle(TL2, Tool_Solid);

TL_SetSize(TL2, 2);

Fin;

TL3 = TL_New(Fecha[P1Bar], Hora[P1Bar], P1, Fecha[T1Bar], Hora[T1Bar], T1);

Si TL3 >= 0 Entonces Comienza

TL_SetColor(TL3, BearColor);

TL_SetStyle(TL3, Tool_Solid);

TL_SetSize(TL3, 2);

Fin;

TL4 = TL_New(Fecha[T1Bar], Hora[T1Bar], T1, Fecha, Hora, GD);

If TL4 >= 0 Then Begin

TL_SetColor(TL4, BearColor);

TL_SetStyle(TL4, Tool_Solid);

TL_SetSize(TL4, 2);

Fin;

TL5 = TL_New(Fecha[P1Bar], Hora[P1Bar], P1, Fecha, Hora, GD);

Si TL5 >= 0 Then Begin

TL_SetColor(TL5, BearColor);

TL_SetStyle(TL5, Tool_Dotted);

Fin;

TL6 = TL_New(Fecha[P2Bar], Hora[P2Bar], P2, Fecha, Hora, GD);

Si TL6 >= 0 Then Begin

TL_SetColor(TL6, BearColor);

TL_SetStyle(TL6, Tool_Dotted);

Fin;

Fin;

Fin;

Fin;

 

otro en jpy

 

el indicador de zitko apunta a un contratiempo bajista en el gbp 30m

 

¿Comprendes lo que yo?

 
camisa:
el indicador de zitko apunta a un buttelfly bajista en gbp 30m

El indicador aún no está completo, sólo da puntos XABCD e imprime los retrocesos/expansiones entre estos puntos, no comprueba si estos retrocesos/expansiones cumplen la regla del patrón o no.

 
kamyar:
otro en jpy

este patrón es inavlid,

según las reglas la línea AC 0.832 o 0.886 , en este gráfico es 1.09.

 
ziko123:
este patrón es inavlid, de acuerdo con las reglas de la línea de CA 0,832 o 0,886 , en este gráfico es 1,09.

hola ziko

Gracias por tu atención, pero me pregunto cuál es la razón por la que dices que el patrón es inválido. Me encantaría que lo aclararas ??????????

también mira la foto, tal vez me he equivocado. ????????

 

El AC en mi gráfico muestra 1,09, déjame comprobarlo de nuevo

 

AC = (alto(b)-bajo(c))/(alto(b)-bajo(a))

= (118,57-118,22)/(118,57-118,25) = 1,093 no 0,764

la línea AC de tu gráfico conecta A con un punto ligeramente superior a C

 
ziko123:
La razón por la que necesito unas reglas bien definidas es que empecé a desarrollar un indicador para estos patrones, empecé con la mariposa bajista,

Adjunto el indicador,

u puede probar con los gráficos anteriores publicados por kamyar la semana pasada,

probarlo con EURUSD,4H y EURCAD,4H

excelente indicador ... excelente trabajo ... gracias