sábado, 22 de noviembre de 2014

RSI ICHIMOKU CON BANDAS EN OHL

Pozí , Amparo !, como suele ser habitual , mi analista favorito , Carlos María http://labolsaporcarlosmaria.blogspot.com.es/  volvió a dar en el clavo con su recomendación de compra de OHL el Jueves pasado con un gráfico puesto en su blog , que era la sencillez misma...



Después del tirón al alza producido en la sesión de ayer , me ha dado por mirarlo y atreverme a "analizarlo".
Dice Jose Luis Cava que cuando no sepamos ver qué tendencia hay en un gráfico de precios, llamemos a un niño pequeño y nos lo dirá claramente.
Con esta premisa en mente, he trazado un canal bajista en el gráfico de OHL.
Desde la base de este, hemos tenido el rebote producido ayer , y ahora la pregunta es :
¿Puede proseguir el rebote ?
En esta ocasión , voy a utilizar el RSI ICHIMOKU del colega Carlos Rozas http://calatravoanalisistecnico.blogspot.com.es/  pero tuneao por mi menda a petición de un lector de este maravilloso blog.
La petición se produjo en los comentarios de VISCOFAN , SORPRESA Y CASUALIDAD , y consistía en añadir unas Bandas de volatilidad al RSI ICHIMOKU.
Como veís en el gráfico que os adjunto , la curva del RSI acaba de soprepasar la nube del ICHIMOKU, lo que significa una señal de compra y cuyo objetivo a corto si no se malea es...


El código del RSI ICHIMOKU con Bandas para la plataforma Prorealtime aparece en los comentarios del post ya mencionado, pero como sé que sois una panda de vagos , os lo pongo aquí para que no tengaís que buscarlo...

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

Rem RSIchimoku con Bandas by Calatravo_indicators
Rem variables predefinidas n=14, n1=22, d=22,p=40,s=Decimal=2
mirsi=RSI[14](close)
BollinguerMA=Average[p](mirsi)
IF barindex >= p-1 THEN
sumy2 = 0
sumy = 0
FOR i = 0 TO p-1 do
sumy2 = sumy2 + SQUARE(mirsi[i])
sumy = sumy + mirsi[i]
NEXT
STDDEV =SQRT(sumy2 / p - SQUARE(sumy / p))
ELSE
STDDEV = undefined
ENDIF
bolup=BollinguerMA+s*STDDEV
bolinf=BollinguerMA-s*STDDEV
a=highest[n](mirsi)
b=lowest[n](mirsi)
c=(a+b)/2

g=highest[n1](mirsi)
e=lowest[n1](mirsi)
f=(g+e)/2

return  c[d] as "Tenkan", f[d] as "Kijun",bolup as "BSUP",bolinf as "BINF",BollinguerMA as "BMED",RSI

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

2 comentarios:

  1. Respuestas
    1. Desde luego er Carlos es un crack.Yo por lo que me toca del comentario te doy las gracias.

      Eliminar