OHL EN EL BANCO DE PRUEBAS

La señal incipiente bajista que dió el indicador Vigia10 se convirtió en una señal bajista en toda regla , la cual se mantiene todavía.
En el gráfico actualizado a cierre de hoy de OHL os pongo una batería de indicadores que me ayudan en mi visión general del movimiento del título....

El indicador superior, el Vigia10 , nos muestra el movimiento bajista al corte de su media (en color rojo),que sirvió de gatillo, el cual se está desarrollando sin síntomas aún de cambio.
El indicador siguiente, el RSI ICHIMOKU con Bandas , es el RSI ICHIMOKU de Carlos Rozas
http://calatravoanalisistecnico.blogspot.com.es/  al que, mediante la petición de un anónimo en los comentarios del post anterior de Viscofan , me he atrevido a añadirle unas Bandas.
La curva del RSI acaba de dar un pequeño corte por debajo de la nube, lo que se interpreta como una señal bajista.
El indicador inferior ,es el Volumen Positivo Volumen Negativo , un ingenioso indicador cuyo código para la plataforma Prorealtime , lo teneís de la mano del gran Tetsuo en esta página...
http://www.finanzaonline.com/forum/analisi-tecnica-t-s-e-psicologia-del-trading/1076231-prorealtime-formule-indicatori-etc-continua-print.html  nos muestra como el Volumen negativo   es mucho mayor que el Volumen Positivo (ambos en media de 10 sesiones), lo que tampoco deja dudas del movimiento...
OHL sigue bajista.

nota: el código del RSI ICHIMOKU con Bandas apareció en los comentarios del anterior post,con la única pega de que en ocasiones ,la curva del RSI se perdía al cruzarse con la nube del Ichimoku.
Cambiando una variable de sitio en el último reglón del código está solucionado y queda tal que así:
------------------------------------------------------------------------------------------------------

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

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