ESTRATEGIAS
49
‘¡¡ Summary
‘ Classification: Averages
‘Summary !!
‘¡¡ Parameters
Dim AvgPeriod As Integer ‘60
Dim AvgPrice As Price ‘PriceClose
‘Parameters !!
Dim EMAData() As DataIdentifier
Option Explicit
Public APP As OscUserApp
Implements Indicator
Public Sub Indicator_OnInitCalculate()
With APP
ReDim EMAData(7)
EMAData(0) = .GII(AvExponential, Data, AvgPeriod, AvgPrice)
EMAData(1) = .GII(AvExponential, EMAData(0), AvgPeriod, AvgPrice)
EMAData(2) = .GII(AvExponential, EMAData(1), AvgPeriod, AvgPrice)
EMAData(3) = .GII(AvExponential, EMAData(2), AvgPeriod, AvgPrice)
EMAData(4) = .GII(AvExponential, EMAData(3), AvgPeriod, AvgPrice)
EMAData(5) = .GII(AvExponential, EMAData(4), AvgPeriod, AvgPrice)
EMAData(6) = .GII(AvExponential, EMAData(5), AvgPeriod, AvgPrice)
EMAData(7) = .GII(AvExponential, EMAData(6), AvgPeriod, AvgPrice)
.SetLineName 1, “PEMA”
.StartBar = 0
End With
End Sub
Public Sub Indicator_OnCalculateBar(ByVal Bar As Long)
With APP
Dim EMA(7) As Double
Dim i As Integer
For i = 0 To 7
EMA(i) = .GIV(EMAData(i))
Next i
If EMA(7) <> NullValue Then
Dim PEMA As Double
Dim ipPosition As IndicatorPosition
PEMA = 8 * EMA(0) - 28 * EMA(1) + 56 * EMA(2) - 70 * EMA(3)
PEMA = PEMA + 56 * EMA(4) - 28 * EMA(5) + 8 * EMA(6) - EMA(7)
ipPosition = ipNeutral
If .Close > PEMA Then ipPosition = ipBull
If .Close < PEMA Then ipPosition = ipBear
.SetIndicatorValue PEMA, 1, 0, ipPosition
End If
End With
End Sub
Codigo de Programacion de media PEMA para Visual Chart 5
filtro para mejorar la precisión de la media exponencial.
La fórmula de la media sería la siguiente:
QEMA = 5 x EMA
1 Price
– 10 x EMA
2 EMA1
+ 10 x EMA
3 EMA2
– 5 x EMA
4 EMA3
+ EMA
5 EMA4
El movimiento de la media QEMA es muy particular, ya
que excede a los impulsos generados por el precio (a
el tiempo de reacción de la media doble, se pensó si
esta secuencia progresiva generaría paralelamente un
tiempo de reacción cada vez mejor. Esta reflexión será
la justificación de la creación de las medias QEMA y
PEMA.
QEMA (Quadruple Exponential Moving Average)
La primera de las medias que veremos recibe el nombre
de Quadruple Exponential Moving Average, o como es
conocida comúmente, QEMA.
Esta media cuadruple, como decimos, trata de ser un
El cruce de dos medias exponenciales (4 y 30)
nos sirve de medidor de la tendencia
