IM: IBEX 35

Volvemos de nuevo a traer el Ibex 35 porque con tanta volatilidad a veces uno pierde la noción de las tendencias en función de sus plazos.



Como podemos ver en el gráfico semanal adjunto la tendencia general del selectivo español es BAJISTA. La Media Móvil Ponderada de 30 semanas está claramente descendente y el precio se encuentra muy por debajo de ella.



Es precisamente esa gran distancia con su MMP30 la que hacía intuir un rebote con el objetivo de acercarse un poco a ella. La vela envolvente que nos deja la semana que hoy cerramos es la muestra de que estamos en medio de ese rebote que debería continuar unos días más. Pero ojo, no nos dejemos engañar. La estructura de fondo es bajista a medio plazo y lo más probable es que continúe ese camino.



El MACD semanal se encuentra por debajo de cero marcando esa tendencia bajista claramente y apenas repuntando con el rebote actual.



Por su parte, el RSC Mansfield es el que nos da una lectura menos negativa y muestra la fortaleza relativa que tiene el Ibex 35 frente al Eurostoxx.



Las zonas de referencia a seguir en este rebote son los 8.800 puntos y los 9.400 que es la zona que delimita la MMP30 en su tendencia bajista. Teniendo en cuenta que la tendencia subyacente es descendente, es en esas zonas donde debemos estar atentos si queremos entrar cortos en el mercado. La falta de fuerza para superarlos, el giro de otros mercados europeos será el pistoletazo de salida para hacerlo.

Read More

F: CODIGO FUENTE INDICADOR MANSFIELD PARA VC5.

Para quien pueda ser de utilidad os adjunto el código fuente del indicador RSC Mansfield para Visual Chart 5.

Si alguien tiene dudas como instalarlo me lo comenta y con mucho gusto pongo los pasos.


'¡¡ Parameters
Dim Period As Long '52
Dim Factor As Double '10
'Parameters !!
Option Explicit
Public APP As OscUserApp
Implements Indicator
Public Sub Indicator_OnInitCalculate()
With APP
.StartBar = Period - 1
End With
End Sub
Public Sub Indicator_OnCalculateBar(ByVal Bar As Long)
With APP
Dim BasePrice#, i&, CountR#, R#, PR#
For i = (Period - 1) To 0 Step -1
R = 0
If .Close(i, Data2) <> 0 Then R = .Close(i, Data1) / .Close(i, Data2)
CountR = CountR + R
Next
If Period <> 0 Then BasePrice = CountR / Period
If BasePrice <> 0 Then PR = ((R / BasePrice) - 1) * Factor
.SetIndicatorValue PR, 1
.SetIndicatorValue 0, 2
End With
End Sub
Public Sub Indicator_OnSetParameters(ParamArray ParamList() As Variant)
'¡¡ Parameters initialization
Period = ParamList(1)
Factor = ParamList(2)
'Parameters initialization !!
End Sub
Public Sub Indicator_OnCalculateRange(ByVal StartBar As Long, ByVal FinalBar As Long)
Dim i As Long
i = APP.StartBar
If StartBar > i Then
i = StartBar
End If
While Not APP.ShouldTerminate And i <= FinalBar
APP.CurrentBar = i
Indicator_OnCalculateBar i
i = i + 1
Wend
End Sub
Private Sub OscUserAppInstance_OnConnection(ByVal Application As OscUserApp, ByVal MTDllInst As Object, Custom() As Variant)
Set APP = Application
End Sub

Read More

IM: IBEX 35

Mala pinta para los alcistas nos presenta el Ibex 35 tras el cierre semanal.

En el gráfico vemos como ha perdido la referencia de los 8.000 puntos, último bastión antes de dirigirse hacia la siguiente referencia de los 7.000.

Tanto la MMP30 semanas como el MACD semanal se encuentran zona de tendencia bajista y de momentos no hay signos de que nada vaya a cambiar por lo menos en el corto plazo. Por lo tanto, tan solo mantener posiciones bajistas en el selectivo español.

Read More