INDICADORES : ESTRAPERLO CHIVATO

Y me dió por hacer un remake de uno de mis "indicadores",el Estraperlo.
El motivo, encontrar un código de un indicador llamado DiNapoli Macd & Divergence de mano de un forero apodado Dutchy en el foro alemán http://www.aktienboard.com/forum/f29/prorealtime-cmc-script-programmierung-t94783/172
Como sabeís , soy un plagiador de mierda , y no tardé en adueñarme de una parte de ese código,que entendí , detectaba alzas y bajas en el precio.
Así , me puse a reformar el indicador Estraperlo (mirar en etiquetas indicadores:estraperlo,cojones!)
incluyendo en esta versión un nuevo elemento al que he bautizado como barras chivatas.
Las barras chivatas nos avisan de un posible giro en el precio , al alza (barras verdes) o a la baja (barras rojas), de forma que puede ser un interesante complemento.
La primera versión de este indicador la visteís en este blog en el post ACCIONA CON UN INDICADOR RARO.
El problema de esta primera versión es que había que cambiar un parámetro (que había agregado para ello)
cada vez que cambiabamos de gráfico, por un problemilla con las escalas, lo cual era un auténtico coñazo
para alguien , que por ejemplo, mire los 35 valores del Ibex.
En el post de ACCIONA CON UN INDICADOR RARO 2ª PARTE , visteís el Estraperlo Chivato en una versión donde las barras chivatas  están incluidas dentro del Macd central, de esta forma el problema de las escalas desaparece ,en contra , hay menos visibilidad de las barras debido a la particularidad del Macd.
Su aspecto queda como veís en la afoto,donde aparecen las nomenclaturas que encontrareís en el cuadro de propiedades  en todos sus componentes....

Como soy muy tikismikis , esta versión tampoco me convencía .Así en estos días después de la publicación de este artículo, he seguido liado con encontrar alguna solución satisfactoria al puñetero tema de las escalas... y lo encontré en un código de un macd normalizado de la página francesa del fuera de serie...
http://hk-lisse.over-blog.com/
Por fin !, aquí teneís la versión definitiva del Estraperlo Chivato.

Para todo aquel que tenga curiosidad en testearlo o simplemente lo quiera tener porque queda bonito , totalmente gratis y a vuestra disposición, el código para la plataforma Prorealtime es :
------------------------------------------------------------------------------------------------------
REM ESTRAPERLO CHIVATO
REM programado por Miguel Angel Castillo. Octubre 2014
REM parte código basado en MACD DiNAPOLI DIVERGENCE by DUTCHY
REM y parte de código de Macd Normalisé by hk_lisse
REM variables m=media=10,zz=zz=3

valor1=ExponentialAverage[12](close)
valor2=ExponentialAverage[26](close)
valor3=valor1/valor2
valor4=ExponentialAverage[9](valor3)
mimacd=valor3/valor4-1
val1=Exponentialaverage[5](close)
val2=ExponentialAverage[13](close)
mmacd=val1/val2-1
se=WilderAverage[m](mmacd)
gd2=average[60](mmacd)
sd=1*STD[60](mmacd)
bollsup=gd2+sd
bollinf=gd2-sd

IF BARINDEX > 1 THEN

IF ZigZag[zz](Close)[2] < ZigZag[zz](Close)[1] AND ZigZag[zz](Close)[1] > ZigZag[zz](Close) THEN
Top = Close[1]
DiMD =mimacd[1]
IF Top <> Top[1] THEN
TwoPrevTop = PrevTop
PrevTop = Top[1]
Top = Top
TwoPrevDiMD = PrevDiMD
PrevDiMD = DiMD[1]
DiMD = DiMD
ENDIF
ENDIF

IF ZigZag[zz](Close)[2] > ZigZag[zz](Close)[1] AND ZigZag[zz](Close)[1] < ZigZag[zz](Close) THEN
Bottom = Close[1]
DiMDb =mimacd[1]
IF Bottom <> Bottom[1] THEN
TwoPrevBottom = PrevBottom
PrevBottom = Bottom[1]
Bottom = Bottom
TwoPrevDiMDb = PrevDiMDb
PrevDiMDb = DiMDb[1]
DiMDb = DiMDb
ENDIF
ENDIF
ENDIF

IF ((Top >= PrevTop AND DiMD CROSSES UNDER PrevDiMD) OR (Top CROSSES OVER PrevTop AND DiMD <= PrevDiMD)) OR ((Top >= TwoPrevTop AND DiMD CROSSES UNDER TwoPrevDiMD) OR (Top CROSSES OVER TwoPrevTop AND DiMD <= TwoPrevDiMD)) THEN
DivergeBottom =-1
ELSIF ((Top <= PrevTop AND DiMD CROSSES OVER PrevDiMD) OR (Top CROSSES UNDER PrevTop AND DiMD >= PrevDiMD)) OR ((Top <= TwoPrevTop AND DiMD CROSSES OVER TwoPrevDiMD) OR (Top CROSSES UNDER TwoPrevTop AND DiMD >= TwoPrevDiMD)) THEN

ELSE
DivergeBottom = 0

ENDIF

IF ((Bottom >= PrevBottom AND DiMDb CROSSES UNDER PrevDiMDb) OR (Bottom CROSSES OVER PrevBottom AND DiMDb <= PrevDiMDb)) OR ((Bottom >= TwoPrevBottom AND DiMDb CROSSES UNDER TwoPrevDiMDb) OR (Bottom CROSSES OVER TwoPrevBottom AND DiMDb <= TwoPrevDiMDb)) THEN
ELSIF ((Bottom <= PrevBottom AND DiMDb CROSSES OVER PrevDiMDb) OR (Bottom CROSSES UNDER PrevBottom AND DiMDb >= PrevDiMDb)) OR ((Bottom <= TwoPrevBottom AND DiMDb CROSSES OVER TwoPrevDiMDb) OR (Bottom CROSSES UNDER TwoPrevBottom AND DiMDb >= TwoPrevDiMDb)) THEN
DivergeTop = 1
ELSE
DivergeTop = 0

ENDIF

RETURN  mimacd*100 AS " MACD",  DivergeTop COLOURED (0,150,50) AS "Chivatoalcista", DivergeBottom COLOURED (200,0,0) AS "Chivatobajista",mmacd*100 AS "LM",se*100 AS "S",bollsup*100 AS "BSUP",bollinf*100 AS "BINF"


------------------------------------------------------------------------------------------------------------
En el cuadro de variables:
m = media =10
zz = zz =3
El parámetro por defecto de la media es  10 , para zz (el parámetro de las barras chivatas) es 3.
Ambos se pueden modificar.
Ah! se me olvidaba, debeís configurar tanto el Macd como el chivato alcista y bajista en estilo histograma. Las barras chivatas vienen por defecto en color verde(alcista) y rojo(bajista).

nota: si este indicador os sirve de algo,solo os pido un pequeño reconocimiento , si al final resulta un mojón , no me hago responsable de las futuras pérdidas derivadas de su uso.

ACCIONA CON UN INDICADOR RARO 2ª PARTE

Pués ahí lo tenemos.En la jornada de hoy se ha tocado los entornos de los 55 euros, objetivo a corto por el gráfico del post anterior.
El indicador Estraperlo Chivato no dá muestras de cansancio todavía,sin embargo, hoy ha aparecido una vela Doji (patrón de reversión) .De todas formas , la entrada no fué mala.
Os pongo gráfico actualizado a cierre de hoy con el indicador en otra versión ,donde las barras chivatas aparecen directamente en el histograma del macd central...

En la versión anterior, había un problemilla con las escalas y aunque tenía puesto un parámetro para ello,había que ajustarlo continuamente cada vez que se cambiaba de valor, vamos..un coñazo!
En esta que veís, se solventa ese tema a cambio de menos claridad en la visión de las barras ya que a veces las barras del histograma macd se tornan muy pequeñas.
La publicación del código del Estraperlo Chivato será pública , paciencia...

ACCIONA CON UN INDICADOR RARO

Estos días atrás he hecho un remake del indicador Estraperlo, añadiendo un elemento, creo, interesante.
Unas barras alcistas (verdes) o bajistas (rojas),que nos indican posibles reversiones de la tendencia precedente.Les he llamado "chivatas" y el ingenio lo encontré en parte de un código de otro indicador de mano de un forero apodado Dutchy en el foro alemán http://www.aktienboard.com/forum/f29/prorealtime-cmc-script-programmierung-t94783/172
Decidí incorporarlo al mítico Estraperlo  y de momento lo tengo en observación con testeos varios.

A este punto quiero añadir,que yo no soy programador , tan solo un aficionadillo que un día le dió por mirarse los tutoriales de programación de indicadores de la plataforma Prorealtime y que básicamente soy un plagiador de códigos a los que modifico.

Buscando un valor que diera  compra a cierre de ayer por el "Estraperlo Chivato", he encontrado una combinación perfecta de señales en Acciona.
Tenemos una divergencia alcista en la curva del Estraperlo con un corte al alza sobre su media , al mismo tiempo que nos aparece una barra chivata alcista ...
De esta manera tenemos un plato rico, rico,rico ,con muchas posibilidades de seguir subiendo en principio hasta su próxima resistencia (en el entorno de los 55 euracos),un nada despreciable 4%...

Vamos a ver si esta vez estoy en sintonía con el mercado.
Recuerden: esto no es una recomendación de compra , tan solo un experimento propio.
Alejen este análisis de los niños.
Si tienen cualquier duda consulten con su farmacéutico.

INDICADORES : MEDIAMACD

Internet es lo que tiene, que si te pones a mirar, encuentras cosas que reclaman tu atención (páginas porno aparte).Eso mismo me pasó el otro día al echarle un vistazo a uno de mis blogs favoritos.
Del artículo de http://bolsayacciones.com/2014/10/media-de-200-es-operable-2/  de Jose Mon ,el cual os recomiendo que leaís antes de seguir, se me ocurrió la idea de plasmarlo todo en un indicador.
Jose nos explica como utilizando una media de 200 sesiones y un macd convencional , podemos utilizar ambos para definir un sistema tendencial , cuyas entradas o salidas se harán en función de que el precio esté por encima o por debajo de la media  utilizando las señales del macd como gatillo para incorporarse a la tendencia....

De esta idea surge el Mediamacd , formado por un  macd normal y corriente y una  media de 200 sesiones que aparece como una curva que vá por encima o por debajo de la linea cero del macd, al igual que lo hace el precio sobre esa media, con la diferencia de que en ella , aparte de trazar chartismo podemos encontrar divergencias...

Así podemos aplicar el sistema descrito ...

Para todo el que lo quiera ,sin pagar ni un duro, como sigue siendo costumbre, el código para la plataforma Prorealtime es :

---------------------------------------------------------------------------------------------------------

REM MEDIAMACD
REM basado en indicador GD-Diff de Smoke y artículo de bolsayacciones.com de Jose Mon
REM by Miguel Angel Castillo,Octubre 2014

gd = Average[200](customclose)
diff = CustomClose - gd
MMrapida = exponentialAverage[12](diff)
MMlenta = exponentialAverage[26](diff)

miMACD = (MMrapida - MMlenta)
Linea = exponentialAverage[9](miMACD)

return (miMACD-linea)*zoom as " MACD",(miMACD)*zoom as "SEÑAL",(linea)*zoom as "MEDMACD",diff as "MEDIA"


--------------------------------------------------------------------------------------------------------
En el apartado de variables :
zoom=zoom=3


nota: el parámetro zoom (por defecto=3) nos sirve para agrandar el macd y hacerlo más visible.

Ya podeís decir , tengo el Mediamacd (por que yo no soy tonto)

OHL EN EL BANCO DE PRUEBAS (FINAL)

La caida sufrida por el título ha llegado a su final.
¿Que hoy OHL sea protagonista en las subidas diarias es razón para tan tajante
 afirmación ?, mejor lo vemos desmenuzado en la foto finish de cierre de mercado....

La señal bajista por corte de la curva del Vigia a su media (se produjo a cierre del día 15 de Septiembre),sigue vigente, pero....peeeeroooo, fijense en el peazo de patrón espejo que se está produciendo en el Vigia10 tuneao al que en esta ocasión he añadido el elemento de "manos fuertes" y "manos débiles" del indicador Konkorde.

Para los niños que esteis leyendo esto, os aclaro que el patrón espejo del Konkorde es un patrón muy potente de giro, que se produce justo en la posición de la foto,azul  encima de verde como si se tratara de un reflejo.
Vale, tenemos un patrón de giro alcista , pero la curva del  Vigia10 todavía no ha cortado al alza a su media, lo cual sería una señal de entrada, ¿lo cortará?...
Vamos a poner a prueba el indicador HAIKUIDATEN , que ,mira tú por donde, a cierre de hoy nos marca la formación de un patrón alcista de velas japonesas ,una envolvente alcista.
Patrón espejo por un lado y patrón envolvente alcista por el otro,considero que es momento de huir de los cortos .
Como siempre,será el mercado el encargado de callarme la boca en caso de equivocación  ó de darme la razón en caso de acierto.

INDICADORES : HAIKUIDATEN

Me encontraba rebuscando en Google , cuando por casualidad , como siempre, hallé una interesante página alemana de programación para la plataforma Prorealtime http://www.aktienboard.com/forum/f29/prorealtime-cmc-script-programmierung-t94783/215
Echando mano del traductor y paciencia , me topé con un indicador sumamente curioso ,colgado por un forero apodado Trader-Hawk, bajo el nombre de Candle Pattern , el indicador en cuestión era un detector de patrones de velas japonesas . Su aspecto visual así como su función me recordó enseguida al indicador del gran Blai5 http://www.blai5.net/www/  el Blai HAIKU.
Al descargarme el indicador alemán me dí cuenta de que siendo en esencia un indicador de patrones como el de Blai , este utilizaba otros patrones, y entonces se me ocurrió ¿ y si uniéramos los patrones de ambos en un solo indicador?.
Vaya por delante mi agradecimiento a Xavier García (Blai5) por su amabilidad y disponibilidad ,con el que me puse en contacto, siendo él, el que me animó a ello.
Empecé a la tarea ,pero todavía me faltaba otro detalle, ponerle un nombre molón a ese indicador que tenía en mente.
Para ello,recurrí al foro http://www.bolsacafe.com/  donde el ilustre forero Loquillo (como en otras ocasiones) fué mi fuente de inspiración.Ya que el indicador es un híbrido ,debía respetar a ambos,así que  por un lado tenía la hermosa palabra HAIKU (forma de poesía tradicional japonesa) y por otro lado  un homenaje a la figura mítica de los mercados , el cuidata, pero bajo un toque germánico ,algo así como KUIDATEN.
El HAIKUIDATEN tiene este aspecto...

Tiene la peculiaridad de que cuando avanzamos el cursor por encima de una de sus barras,nos muestra cúal es el patrón encontrado,tal como veís aquí...

Sin más dilación ,! totalmente gratis ,oiga !,para todo aquel que tenga interés por testearlo o simplemente tenerlo para vacilar con los colegas , aquí os pongo su código para la plataforma Prorealtime :

--------------------------------------------------------------------------------------------------------

REM HAIKUIDATEN
REM programado por Miguel Angel Castillo - Octubre 2014
REM indicador mixto basado en el indicador BlaiHaiku de Blai5 y
// el indicador Candle pattern de Trader-Hawk.

REM  Martillo- Hombre colgado (HHM)

IF close > open and (open - low) > (2 *(close - open)) and (2 *(high - close)) < (close - open) THEN
HHM = 1

ELSIF close < open and (close - low) > (2 *(open - close)) and (2 *(high - open)) < (open - close) THEN
HHM = -1

ELSE
HHM = 0

ENDIF
REM  Estrella matutina-martillo invertido (SSIH)

IF close > open and (high - close) > (2 *(close - open)) and (2 *(open - low)) < (close - open) THEN
SSIH = 2

ELSIF close < open and (high - open) > (2 *(open - close)) and (2 *(close - low)) < (open - close) THEN
SSIH = -2

ELSE
SSIH = 0

ENDIF

REM Doji(Doji)

IF open < close and (high - close) > (3 *(close - open)) and (open - low) > (3 * (close - open)) THEN
Doji = 3

ELSIF open > close and (high - open) > (3 *(open - close)) and (close - low) >(3 * (open - close)) THEN
Doji = -3

ELSE
Doji = 0

ENDIF

REM Harami (HARA)

IF close[1]<open[1]and open<close and open>=close[1]and close<=open[1]and high[1]>high and low[1]<low THEN
HARA=4
ELSIF close[1]>open[1]and open>close and open<=close[1]and close>=open[1]and high[1]>high and low[1]<low THEN
HARA=-4
ELSE
HARA=0
ENDIF

REM Envolvente (ENVOL)

IF close[1]<open[1]and range>0 and open<low[1]and close>high[1] THEN
ENVOL=5
ELSIF close[1]>open[1]and open>high[1]and close<low[1] THEN
ENVOL=-5
ELSE
ENVOL=0
ENDIF

REM Penetrante alcista-Cubierta nube oscura (PACNO)
IF close[1]<close[2]and close[2]<close[3]and open[1]>close[1]and open<close and open<close[1]and low<low[1] THEN
PACNO=6
ELSIF close[1]>close[2]and close[2]>close[3]and open[1]<close[1]and open>close and open>close[1]and high>high[1] THEN
PACNO=-6
ELSE
PACNO=0
ENDIF

RETURN PACNO as "Penetrante alcista-Cubierta nube oscura",Doji as "Doji",SSIH as "Estrella matutina-Martillo invertido",HARA as "Harami",HHM as "Martillo-Hombre colgado",ENVOL as "Envolvente"

----------------------------------------------------------------------------------------------------------

En el cuadro de propiedades configurarlo todo en estilo histograma y elegir colores alcista y bajista.

GRIFOLS , POR LOS SUELOS

Los detractores de los indicadores técnicos , argumentan que estos no sirven para nada ,van atrasados y no nos dicen nada que el precio no indique.
Lamento no estar de acuerdo.
Debemos tomar a los indicadores como una referencia ,como una brújula en el mapa del precio , pero es que a veces hay más...
En ocasiones un indicador se anticipa a la evolución futura del precio , y es aquí donde entra su faceta predictiva.
En el gráfico que os pongo hoy ,tenemos una poderosa divergencia alcista en el indicador Vigia10 del gran Blai5 http://www.blai5.net/www/
Si bien es cierto que la curva de Vigia aún no ha cortado al alza a su media dando una señal de compra,considero que esta es una de las veces en la que se puede producir el efecto anticipatorio de un indicador.
Vamos a cotejar el gráfico de precios y alejándonos de figuritas estrambóticas y subjetivas como banderines , triángulos y demás, vamos a tomar como referencia a una de las figuras clave del análisis técnico : el doble suelo.
Tengo marcado en Grifols un doble suelo ferpecto , es un patrón básico.¿será el doble suelo un nivel desde el que el título rebote?
Por un lado,tenemos esa divergencia alcista famosa y por otro lado,he incluido el indicador manipulación de Josep Hervás , que me está resultando muy útil en el corto plazo.
Curiosamente,esta última semana , las "manos fuertes" han estado entrando tímidamente en el valor...
Como esto del trading se compagina con una gestión de riesgo , la propuesta de operación es sencilla:
Posicionarse largo intentando anticiparnos a mercado y poner un stop losser un poquito por debajo de ese nivel de doble suelo a cierre de mercado, por si las moscas...
El ratio beneficio/pérdida  merece la pena.