Indicador Coppock Curve
Publicado: 10 Mar 2009 13:10
Código para Visual Chart de la Curva de Coppock.
Saludos,
X-Trader
Saludos,
X-Trader
¿Dudas sobre trading? Plantea tus cuestiones sobre el funcionamiento del mercado, descarga indicadores y sistemas de trading y comparte tus operaciones con otros traders.
https://www.x-trader.net/foro/
Qué version usas de Visual Chart? Recuerda que lo programé con la 4.nuse2004 escribió:Hola X-TRADER, no logro hacer funcionar el indicador, podrias incorporarlo de nuevo cuando tengas un minutillo.
He leido sobre Coppock y parece que todo el mundo coincide.
Gracias por anticipado
Un saludo y buen dia
Código: Seleccionar todo
'¡¡ Parameters
'Parameters !!
'¡¡ PDV parameters
Dim AvSimpleDataPeriod As Long '30
Dim PriceROCAvSimpleDataPeriod As Long '20
Dim AvExponentialPriceROCAvSimpleDataPeriod As Long '30
Const Data As Long = 0
'PDV parameters !!
'¡¡ PDV declarations
Dim AvSimpleData As Long
Dim PriceROCAvSimpleData As Long
Dim AvExponentialPriceROCAvSimpleData As Long
'PDV declarations !!
Option Explicit
Public APP As OscUserApp
Implements Indicator
Public Sub Indicator_OnInitCalculate()
With APP
'¡¡ PDV initializations
AvSimpleData = .GetIndicatorIdentifier(AvSimple, Data, AvSimpleDataPeriod, PriceClose)
PriceROCAvSimpleData = .GetIndicatorIdentifier(PriceROC, AvSimpleData, PriceROCAvSimpleDataPeriod, PriceClose, 0#)
AvExponentialPriceROCAvSimpleData = .GetIndicatorIdentifier(AvExponential, PriceROCAvSimpleData, AvExponentialPriceROCAvSimpleDataPeriod, PriceClose)
.StartBar = 0
'PDV initializations !!
End With
End Sub
Public Sub Indicator_OnCalculateBar(ByVal Bar As Long)
With APP
'¡¡ PDV code
.SetIndicatorValue .GetIndicatorValue(AvExponentialPriceROCAvSimpleData), , 0
'PDV code !!
End With
End Sub
Public Sub Indicator_OnSetParameters(ParamArray ParamList() As Variant)
'¡¡ Parameters initialization
AvSimpleDataPeriod = ParamList(1)
PriceROCAvSimpleDataPeriod = ParamList(2)
AvExponentialPriceROCAvSimpleDataPeriod = ParamList(3)
'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