Los artículos y estudios de jose7674 en su blog http://jose7674.blogspot.com.es/ fueron mi inspiración para el desarrollo del estraperlo que posteriormente derivó en el estraperlo chivato .
Habiéndole perdido el rastro a este hombre , fué una grata sorpresa encontrarlo en los comentarios de "test para estraperlo chivato" en este mismo blog.
Ahí me comentó que tenía algo parecido a las barras chivatas...y ahí quedó la cosa.
Hace unos días,recibí un correo donde Jose me enviaba su indicador :
Un Detector de Divergencias Macd , cuyo aspecto en forma de histograma , nos representa mediante barras la localización de divergencias alcistas o bajistas,tal que así...
El Detector de Divergencias Macd está construido para los parámetros de un Macd 5,13,1 y como podeís ver en gráfico , nos marca las divergencias en esta configuración...
Demos las gracias a jose7674 ( y yo especialmente por permitirme publicarlo), por cedernos este código de libre acceso para la plataforma Prorealtime , sin tener que pagar ni un duro.
------------------------------------------------------------------------------------------------------
/// Detector de divergencias
///Por jose7674
///La variable N es el numero de barras hacia atras que utilizamos para encontrar una divergencia
///MACD 5-131
miMACD = exponentialAverage[5](close) - exponentialAverage[13](close)
cero = 0
////Comenzamos el detector
IF (BarIndex > 10+1+N) THEN
IF (miMACD[1]>miMACD AND miMACD[1]>miMACD[2]) THEN
extremum2=miMACD[1]
extremum1=highest[N](miMACD)
preciomax2=close[1]
preciomax=Highest[N](close)
ENDIF
IF (miMACD[1]<miMACD AND miMACD[1]<miMACD[2]) THEN
extremum22=miMACD[1]
extremum11=lowest[N](miMACD)
preciomin2=close[1]
preciomin=lowest[N](close)
ENDIF
REM aseguramos que el maximo actual es inferior al maximo de las N barras previas
IF(extremum2<extremum1 AND preciomax2>preciomax[1]) THEN
signal = -1
ELSE
signal = 0
ENDIF
IF(extremum22>extremum11 AND preciomin2<preciomin[1]) THEN
signal = 1
ENDIF
ENDIF
Return cero as "0", signal as "Divergencia"
/// Si Divergencia = 1, hay divergencia alcista. Si D =-1, divergencia bajista
///FIN
-----------------------------------------------------------------------------------------------------
En el cuadro de variables:
N = periodo divergencia= 20
nota:el periodo por defecto es 20,según su propio autor,también podríamos aplicar 15.
Valores más pequeños , nos darán más falsas señales.
A probarlo mangurrianes...
