II Curso de Programación. Sistemas Temas 2 y 3.

Continuamos con la publicación de los sistemas de ejemplo que estamos elaborando a través de nuestro 2º Curso de Programación para Visual Chart 5.

Sistema Tema 2: Ruptura niveles de soporte y resistencia

Con éste sistema tratamos de explicar cómo desarrollar sistemas con órdenes de entrada en stop. Para ello, nos basamos en el uso de dos funciones que nos facilitan el precio de los últimos niveles de soporte y resistencia en base a una distancia determinada: Estas funciones son GetHighest y GetLowest.


Las reglas del sistema eran las siguientes:
1. Comprar al tocar un nivel de resistencia.
2. Vender al tocar un nivel de soporte.

Además, incluimos la condición de que fuera un sistema intradia (sólo operativo durante un intervalo horario).

Por último, incluimos la opción de que la distancia para calcular los niveles de resistencia y soporte fueran independientes: 
1. El cálculo de los niveles de resistencia iría en base a las últimas T barras (T = 20).
2. El cálculo de los niveles de soporte iría en base a las últimas P barras (P = 50).



El desarrollo de éste sistema sería el siguiente:

Código PDV

Código VBA

'¡¡ Parameters
Dim HoraInicio As Integer '900
Dim HoraFin As Integer '1930
Dim T As Integer '20
Dim P As Integer '50
'Parameters !!
Option Explicit
Public APP As SysUserApp
Implements System
Public Sub System_OnInitCalculate()
With APP
End With
End Sub
Public Sub System_OnCalculateBar(ByVal Bar As Long)
With APP
    If (.Time() >= HoraInicio And .Time() < HoraFin) Then
        Dim myprice As Double
        myprice = .GetHighest(Data, PriceHigh, T)
        If (.Close() < myprice) Then
            If (.GetMarketPosition() <> 1) Then
                .Buy AtStop, 1, myprice
            End If
        End If
        myprice = .GetLowest(Data, PriceLow, P)
        If (.Close() > myprice) Then
            If (.GetMarketPosition() <> -1) Then
                .Sell AtStop, 1, myprice
            End If
        End If
    Else
        If (.GetMarketPosition() = 1) Then
            .ExitLong AtClose, 1
        Else
            .ExitShort AtClose, 1
        End If
    End If
End With
End Sub

Sistema Tema 3: Ruptura inversa niveles de soporte y resistencia (antitendencia).

El siguiente sistema que diseñamos era exactamente igual que el visto anteriormente, con la salvedad de que en esta ocasión se trata de un sistema antitendencial, ya que opera en sentido opuesto a la dirección del precio.

Las reglas eran las siguientes:
1. Vender al tocar un nivel de resistencia.
2. Comprar al tocar un nivel de soporte.

En este caso, veíamos un ejemplo de sistema en el que se utilizaban órdenes de entrada limitadas.

Además, incluimos en el sistema un control de pérdidas, puesto que al ser un sistema con mucho riesgo, es necesario controlar las posibles señales falsas.

La regla de salida era la siguiente:
1. Si estamos abiertos, esperamos X barras.
2. Pasadas X barras:
- Si es compra entonces Cerrar si Cierre < Precio Entrada.
- Si es venta entonces Cerrar si Cierre > Precio Entrada.


El desarrollo de éste sistema sería el siguiente:

Código PDV
Código VBA

'¡¡ Parameters
Dim NBarras As Integer '5
Dim NBEspera As Integer '10
'Parameters !!
Dim esperacompra As Boolean
Dim esperaventa As Boolean
Option Explicit
Public APP As SysUserApp
Implements System
Public Sub System_OnInitCalculate()
With APP
    esperacompra = False
    esperaventa = False
End With
End Sub
Public Sub System_OnCalculateBar(ByVal Bar As Long)
With APP
    Dim myprice As Double
  
    If (.GetMarketPosition() = 1) Then
        esperacompra = False
        If (.GetBarsSinceEntry() > NBEspera) Then
            If (.Close() < .GetEntryPrice()) Then
                .ExitLong AtClose, 1
                esperaventa = True
            End If
        End If
    End If
    If (.GetMarketPosition() = -1) Then
        esperaventa = False
        If (.GetBarsSinceEntry() > NBEspera) Then
            If (.Close() > .GetEntryPrice()) Then
                .ExitShort AtClose, 1
                esperacompra = True
            End If
        End If
    End If
  
    myprice = .GetLowest(Data, PriceLow, NBarras)
  
    If (.Close() > myprice And Not esperaventa) Then
        If (.GetMarketPosition() <> 1) Then
            .Buy AtLimit, 1, myprice
        End If
      
    End If
  
    myprice = .GetHighest(Data, PriceHigh, NBarras)
  
    If (.Close() < myprice And Not esperacompra) Then
        If (.GetMarketPosition() <> -1) Then
            .Sell AtLimit, 1, myprice
        End If
    End If
End With
End Sub

Comentarios

Publicar un comentario

¡Gracias!

Entradas populares de este blog

Como consultar el GAP % de un conjunto de valores

Imagen
Visual chart V ofrece la posibilidad de añadir a las tablas de cotizaciones numerosos campos adicionales, estando estos clasificados por categorías (campos de tiempo real, valor de indicadores, datos fundamentales,  rating  etc.) Para el Mercado Continuo, está disponible el campo Gap Porcentual que muestra porcentualmente la diferencia de la apertura con respecto al cierre de la sesión  anterior. Para disponer de este dato en una tabla de cotizaciones, añádelo en la cabecera de la misma siguiendo estas indicaciones. 1.        Abrir la tabla donde deseamos incorporar el campo que nos facilitará la información sobre el  Gap porcentual. Para el ejemplo utilizaremos la tabla que contiene los valores del mercado continuo. Como se puede ver en la imagen, utilizando el comando Tabla (CTRL +T) del menú Nuevo ,  se visualiza la ventana de inicio donde encontrarás las tablas agrupadas por mercados. Dentro de la carpeta Madrid Stock Exchange ...
Leer más

Bollinger Volatility Oscillator N

Imagen
Dentro del listado de indicadores públicos de Visual Chart, podemos encontrar el indicador Bollinger Volatility Oscillator . Este indicador se basa en el oscilador de Volatilidad de Bollinger , dando un resultado porcentual del mismo calculado en proporción a los valores máximos y mínimos de dicho indicador. En concreto, el Bollinger Volatility asigna los valores 100 y 0 a las cifras máxima y mínima respectivamente generadas por el Bollinger Volatility a lo largo del histórico . Para el resto de cifras, calcula el valor proporcional conveniente. Gracias a la colaboración de uno de nuestros usuarios, observamos un inconveniente en este método para calcular el oscilador que puede alterar los resultados y por tanto la utilidad del mismo: Si a lo largo del histórico que estamos estudiando ha habido algún movimiento fuera de lo común , tanto a la baja como al alza, el indicador cogerá a partir de entonces este valor de referencia, de modo que el resto de resultados quedarán en proporción a ...
Leer más

MANEJO DE PLANTILLAS. Eliminar plantilla de un gráfico activa

Imagen
Como sabemos, Visual Chart permite diseñar plantillas gráficas, las  cuales permitirán agilizar la tarea a la hora de configurar nuestros gráficos, de manera que podemos aplicar simultáneamente diferentes herramientas de análisis utilizando alguna de estas plantillas pre-configuradas. Para aplicar una plantilla, es necesario ir al menú  Plantillas  del menú  Gráfico  y pulsar sobre  Aplicar plantilla. A continuación seleccionar en el cuadro de diálogo la plantilla que deseamos usar (tal y como se muestra en la imagen anterior). En este caso aplicaremos la plantilla seleccionada. Para poder eliminarla del gráfico, la única opción es pulsar sobre éste con el botón derecho del ratón, y desde el menú contextual hacer clic sobre la opción Plantillas y a continuación Quitar plantilla. Hay que tener en cuenta que esta opción no estará habilitada, si nuestras configuración es la de aplicar una plantilla por de defecto al abrir nuevos gráficos. ...
Leer más