ESTRATEGIAS
53
utiliza el índice de disparidad como método de liquida-
ción. Este sistema está basado en las señales del cruce
del MACD con su Media de Señal, de modo que cada vez
que el MACD supera a su media, envía una nueva orden
de entrada. El sistema aguanta la posición mientras el
precio no alcance su nivel máximo de pérdidas (5%) o
bien cuando el índice cruce el nivel de la banda superior.
Si el punto de entrada no es bueno, el índice no podrá
ayudarnos a mejorar los resultados, pero si la entrada
se efectúa durante un rallie alcista, el sistema aguantará
con la posición abierta prácticamente hasta que finalice
o se agote la subida, consiguiendo un nivel óptimo de
ganancias.
‘¡¡ Summary
‘ Classification: Pivots
‘Summary !!
‘¡¡ Parameters
Dim PriceSource As Price ‘PriceClose
Dim DIXLength As Integer ‘20
Dim LevelsLength As Integer ‘100
‘Parameters !!
Dim AvData As DataIdentifier
Option Explicit
Public APP As OscUserApp
Implements Indicator
Public Sub Indicator_OnInitCalculate()
With APP
AvData = .GetIndicatorIdentifier(AvExponential, Data,
DIXLength, PriceSource)
.SetLineName 1, “DIX”
.SetLineName 2, “ZeroLine”
.SetLineName 3, “GridLevel”
.SetLineName 4, “-GridLevel”
.StartBar = (DIXLength + LevelsLength)
End With
End Sub
Public Sub Indicator_OnCalculateBar(ByVal Bar As Long)
With APP
Dim DIX As Double
Dim Grid() As Double
Dim ipposition As IndicatorPosition
ReDim Grid(1)
DIX = DIX_Function(0)
Call GetHighest_Lowest_DIX(LevelsLength, Grid(0), Grid(1))
ipposition = ipNeutral
If DIX > Grid(0) Then ipposition = ipBull
If DIX < Grid(1) Then ipposition = ipBear
.SetIndicatorValue DIX, 1, 0, ipposition
.SetIndicatorValue 0, 2
.SetIndicatorValue Grid(0), 3
.SetIndicatorValue Grid(1), 4
Dim i As Integer
For i = 3 To 4
.SetBarRepresentation 0, i, irBars
If i = 3 Then .SetBarColor 0, i, RGB(0, 255, 0)
If i = 4 Then .SetBarColor 0, i, RGB(255, 0, 0)
.SetBarWidth 0, i, 4
Next i
End With
End Sub
Private Sub GetHighest_Lowest_DIX(Length As Integer, ByRef
Highest As Double, ByRef Lowest As Double)
With APP
Dim h As Double
Dim l As Double
Dim j As Integer
Dim DIXaux As Double
For j = DIXLength + Length To DIXLength Step -1
DIXaux = DIX_Function(j)
If (h = 0 Or DIXaux > h) Then h = DIXaux
If (l = 0 Or DIXaux < l) Then l = DIXaux
Next j
Highest = h
Lowest = l
End With
End Sub
Private Function DIX_Function(nbars As Integer) As Double
With APP
Codigo de Programacion de Disparity Index para Visual Chart 5
Conclusiones
Uno de los aspectos más interesantes de éste indicador
radica en su sencillez.
Gracias a esto, podemos determinar de una forma rá-
pida si los instrumentos financieros que estemos investi-
gando se aproximan a cotas de máxima desviación.
Independientemente del uso que demos a esta in-
formación, el poder filtrar los distintos productos y cen-
trarnos en aquellos que generen las correspondientes
señales de desviación proporciona una ventaja a tener en
cuenta, ya que como hemos visto la formación de estos
eventos tenderá, en mayor o menor medida, a procesos
de giro o consolidación de tendencias.
«
Entre el 2009 y el 2012 la tendencia bajista es constante,
de ahí que el índice no demuestre puntos de inflexión
