II Curso de Programación. Sistema Ejercicio 33

Esta semana publicamos el ejercicio 33 de nuestro 2º Curso de Programación para Visual Chart 5. Los ejercicios del 33 al 35 consistieron en ejemplos diferentes entre sí que abordaban varias cuestiones y que se servían como repaso a lo visto a lo largo del seminario.

Sistema Ejercicio 33: Sistema cruce canal de Keltner con TrailingStop.
Este ejercicio fue un ejemplo de estrategia que utiliza entradas en stop y que se apoya en el valor de las bandas del canal de Keltner  (valores por defecto en 30,10,2).

Ya hablamos con anterioridad de éste indicador. Si quieren conocerlo con más profundidad, accedan al siguiente enlace:

Acerca del Canal de Keltner

Sin embargo, lo más interesante del ejercicio es que incluye dos métodos de salida: un trailing stop (valor a 40) y un segundo canal de keltner más rápido (10,10,1.2). El objetivo es que la orden de salida se ejecute sobre el valor que reaccione antes. 

El interés del ejercicio, por tanto, se centra en la gestión de las órdenes de salida, ya que se trata de una estrategia en la que debemos controlar los stops de salida para que sólo envíe el mejor situado.


En la imagen, vemos dos negocios en los que cada uno de ellos cierra mediante un mecanismo de salida distinto: el negocio a largos del principio, cierra al tocar la banda inferior del canal de Keltner rápido. Mientras que el negocio a cortos siguiente, alcanza antes el trailing stop, debido a que se produce un aumento de la volatilidad que aleja en exceso a las bandas de Keltner. 


Gracias a ésta idea, tratamos de aumentar la tasa de fiabilidad de los puntos de salida.

Recapitulando, las reglas del sistema quedarían así:
1) Enviar orden de entrar largos en base a la banda superior del Keltner Lento.
2) Enviar orden de entrar cortos en base a la banda inferior del Keltner Lento.
3) Colocar un stop en base a la banda opuesta del Keltner Rápido.
4) Una vez alcance cierto margen de ganancia (según parámetro TrailingStop), activar un stop dinámico.
5) Modificar el stop de salida en base al precio más próximo de las dos condiciones anteriores.

Por último, el sistema lleva añadido un horario de operativa entre las 9:30 y las 19:00. Este sistema está pensado para que sea intradiario.

El diseño del sistema quedaría así:

Código PDV



Codigo VBA
(NOTA: Recuerden que el código aquí expuesto sólo incluye los métodos OnCalculateBar() y OnInitCalculate(). Tengan esto en cuenta a la hora de copiar el sistema).

'¡¡ Parameters
Dim Contratos As Long '1
Dim HoraIni As Integer '900
Dim HoraFin As Integer '1900
Dim Period As Integer '30
Dim Constant As Double '2
Dim Period2 As Integer '10
Dim Constant2 As Double '1.2
Dim TrailingStop As Double '40
'Parameters !!
Dim keltnerdata As DataIdentifier
Dim keltnerdata2 As DataIdentifier
Dim pricets As Double
Dim activats As Boolean
Option Explicit
Public APP As SysUserApp
Implements System
Public Sub System_OnInitCalculate()
With APP
keltnerdata = .GII(KELTNER, Data, Period, Constant)
keltnerdata2 = .GII(KELTNER, Data, Period2, Constant2)
pricets = 0
activats = False
End With
End Sub
Public Sub System_OnCalculateBar(ByVal Bar As Long)
With APP
Dim pos_abierta As Integer
Dim pentrada As Double

pos_abierta = .GetMarketPosition()
pentrada = .GetEntryPrice()

If (.Time >= HoraIni And .Time < HoraFin) Then
Dim keltnersup As Double
Dim keltnerinf As Double

keltnerinf = .GetIndicatorValue(keltnerdata, 0, 1)
keltnersup = .GetIndicatorValue(keltnerdata, 0, 3)

'entradas
If (pos_abierta <> 1 And .Close() < keltnersup) Then
.Buy AtStop, Contratos, keltnersup
End If
If (pos_abierta <> -1 And .Close() > keltnerinf) Then
.Sell AtStop, Contratos, keltnerinf
End If

'salidas
Dim pstoptrail As Double
Dim pstopkeltner
If (pos_abierta = 1) Then
If (.GetBarsSinceEntry() = 0) Then
activats = False
End If
If (activats = False) Then
If (.Close() - pentrada >= TrailingStop) Then
activats = True
pricets = pentrada
End If
End If
If (activats = True) Then
If .Close() > pricets Then
pricets = .Close()
End If
pstoptrail = pricets - TrailingStop
End If
pstopkeltner = .GetIndicatorValue(keltnerdata2, 0, 1)
If (pstoptrail <> 0 And pstoptrail > pstopkeltner) Then
.ExitLong AtStop, Contratos, pstoptrail
Else
.ExitLong AtStop, Contratos, pstopkeltner
End If
ElseIf (pos_abierta = -1) Then
If (.GetBarsSinceEntry() = 0) Then
activats = False
End If
If (activats = False) Then
If (pentrada - .Close() >= TrailingStop) Then
activats = True
pricets = pentrada
End If
End If
If (activats = True) Then
If .Close() < pricets Then
pricets = .Close()
End If
pstoptrail = pricets + TrailingStop
End If
pstopkeltner = .GetIndicatorValue(keltnerdata2, 0, 3)
If (pstoptrail <> 0 And pstoptrail < pstopkeltner) Then
.ExitShort AtStop, Contratos, pstoptrail
Else
.ExitShort AtStop, Contratos, pstopkeltner
End If
End If
Else
If (pos_abierta = 1) Then
.ExitLong AtClose, Contratos
ElseIf (pos_abierta = -1) Then
.ExitShort AtClose, Contratos
End If
End If
End With
End Sub

Comentarios

Publicar un comentario

Entradas populares de este blog

El indicador Relative Strength Mansfield with Index

Imagen
Esta semana les invitamos desde nuestro blog a que prueben una de las últimas incorporaciones añadidas a nuestra extensa lista de indicadores públicos: el indicador Relative Strength Mansfield with Index. Podrán encontrar ésta herramienta dentro de la carpeta Visual Chart/Spread: Acerca del Relative Strength de Mansfield (RS Mansfield) El indicador Relative Strength Mansfield es uno de los indicadores clásicos de Visual Chart , que permite comparar la fuerza entre dos activos o entre un activo y un índice. A diferencia de otros indicadores de fuerza (como puede ser el RSI), los cuales sólo tienen en cuenta la velocidad y cambio de los precios dentro del mismo producto, éste indicador permite medir el verdadero comportamiento del activo respecto al conjunto del mercado o sector . Para ello, aplica la fórmula de fuerza relativa sobre la relación entre los precios del activo y los valores dados por un índice que represente al mercado o sector. Por defecto, el RS Mansfield se dise
Leer más

Trading Tools: Descarga de históricos para Visual Chart 6

Imagen
Las Trading Tools de Visual Chart son unas potentes herramientas basadas en la tecnología COM ( Component Object Model ) que permiten acceder a la información que se maneja desde el programa a través de cualquier entorno de desarrollo compatible con dicha tecnología. Es decir, que podemos desarrollar un programa cliente que utilice a Visual Chart como servidor de datos, pudiendo trabajar desde el programa cliente con los datos bursátiles que proporciona Visual Chart . El ejemplo más común de programa cliente compatible con esta tecnología es Microsoft Excel . A través de las macros de Microsoft, podemos diseñar sencillas herramientas que nos permitan manipular desde la famosa hoja de cálculo datos como precios en tiempo real, indicadores, información de estrategias, noticias, análisis técnico, información de la cuenta, etc... Un ejemplo de ello lo tenemos en la hoja Excel que publicamos en este artículo. Puede descargar la hoja desde el siguiente enlace: Ejemplo Descarga H
Leer más

KDJ - Indicador Stochastic %J

Imagen
El indicador KDJ es una variación del indicador clásico Estocástico. La diferencia entre un indicador y otro estriba en que el indicador KDJ incluye una línea extra denominada línea %J. Esta línea representa la divergencia entre el valor %D del estocástico frente al valor %K del mismo. Al igual que sucede con las líneas %K y %D, la línea %J oscila en torno a 0 y 100. Pero a diferencia de las dos primeras, el valor de %J puede superar estos niveles, llegando a estar por encima de 100 y por debajo de 0. Pueden descargar este indicador desde el siguiente enlace: Stochastic %J Comportamiento del indicador A la hora de analizar las señales de este indicador, nos fijamos principalmente en la línea J para la toma de decisiones, usando la línea K como secundaria y la línea D como el valor más estable o de confirmación. No obstante, la ruptura de la línea J sobre las otras dos líneas siempre coincide, ya que como hemos dicho, ésta línea representa la divergencia entre K y D. Al tratarse de un
Leer más