ESTRAPERLO PRO

Me encontraba ensimismado viendo como crecían las visitas a este blog , cuando me dió por mirar el correo y encontré admirado a alguien que no solo se había fijado en el estraperlo chivato , sino que me mandaba un estraperlo modificado.

Mi aumentado ego no podía imaginar que a alguien se le ocurriera aportar algo nuevo con este indicador pero Miguel Leugim había ido más allá, dándome una lección de humildad.

Miguel me envió el código para la plataforma Prorealtime del que denominó estraperlo pro con un gráfico como este...

El estraperlo pro es una nueva vuelta de tuerca que incorpora elementos que a mi modo de ver presentan una mejora respecto al original.

Se incluyen unas barras de volumen (en color azul) usando el CPM (capital proporcional medio) de Javier Alfayate, con la peculiaridad de que cuando aparecen de forma aislada nos indican volúmenes climáticos  y cuando aparecen más de una de manera consecutiva, nos están indicando una acumulación o una distribución.
Las barras chivatas contienen un trozo de código añadido y la curva del estraperlo cambia de color entorno a una media de 50 periodos ,mostrándonos una tendencia filtrada.

El estraperlo pro incluye de esta manera mucha más información y más completa.

Gracias a la amabilidad de Miguel ,os pongo a vuestra disposición el código  para vuestro uso y disfrute y sin tener que pagar ni un duro...

-------------------------------------------------------------------------------------------------------

REM ESTRAPERLO PRO
REM Programado por Miguel Angel Castillo. Octubre 2014
REM Parte código basado en MACD DiNAPOLI DIVERGENCE by DUTCHY
REM Parte de código de Macd Normalisé by hk_lisse
REM Parte de código de Capital Proporcional Medio by Javier Alfayate
REM Modficado por sud_miguel@hotmail.com Febrero 2015

REM Indicador estraperlo
valor1=ExponentialAverage[12](close)
valor2=ExponentialAverage[26](close)
valor3=valor1/valor2
valor4=ExponentialAverage[9](valor3)
mimacd=valor3/valor4-1
val1=Exponentialaverage[5](close)
val2=ExponentialAverage[13](close)
mmacd=val1/val2-1
se=WilderAverage[m](mmacd)
gd2=average[60](mmacd)
sd=1*STD[60](mmacd)
bollsup=gd2+sd
bollinf=gd2-sd

a=mimacd*150
alza1=a>a[1]and a [1]<a[2]
baja1=a<a[1]and a[1]>a[2]
if alza1 then
col1=1
elsif baja1 then
col1=-1
endif

if close>WeightedAverage[c] then
col2=1
elsif close<WeightedAverage[c] then
col2=-1
endif

REM Indicador Capital Proporcional Medio
capital = volume * close
volmax = highest[200](capital)
vol = ((capital*100/volmax)*4/5)
volmed = ExponentialAverage[50](vol)
CPM = (vol - volmed)
volumen = capital / (Average[20](capital)[1]) > 2 AND CPM > 0
IF volumen THEN
bvol = 1.2
ELSE
bvol = 0
ENDIF

REM Indicador Dinapoli Divergence
IF BARINDEX > 1 THEN
IF ZigZag[zz](Close)[2] < ZigZag[zz](Close)[1] AND ZigZag[zz](Close)[1] > ZigZag[zz](Close) THEN
Top = Close[1]
DiMD = mimacd[1]
IF Top <> Top[1] THEN
TwoPrevTop = PrevTop
PrevTop = Top[1]
Top = Top
TwoPrevDiMD = PrevDiMD
PrevDiMD = DiMD[1]
DiMD = DiMD
ENDIF
ENDIF

IF ZigZag[zz](Close)[2] > ZigZag[zz](Close)[1] AND ZigZag[zz](Close)[1] < ZigZag[zz](Close) THEN
Bottom = Close[1]
DiMDb = mimacd[1]
IF Bottom <> Bottom[1] THEN
TwoPrevBottom = PrevBottom
PrevBottom = Bottom[1]
Bottom = Bottom
TwoPrevDiMDb = PrevDiMDb
PrevDiMDb = DiMDb[1]
DiMDb = DiMDb
ENDIF
ENDIF
ENDIF

IF ((Top >= PrevTop AND DiMD CROSSES UNDER PrevDiMD) OR (Top CROSSES OVER PrevTop AND DiMD <= PrevDiMD)) OR ((Top >= TwoPrevTop AND DiMD CROSSES UNDER TwoPrevDiMD) OR (Top CROSSES OVER TwoPrevTop AND DiMD <= TwoPrevDiMD)) THEN
DivergeBottom =-1.8
ELSIF ((Top <= PrevTop AND DiMD CROSSES OVER PrevDiMD) OR (Top CROSSES UNDER PrevTop AND DiMD >= PrevDiMD)) OR ((Top <= TwoPrevTop AND DiMD CROSSES OVER TwoPrevDiMD) OR (Top CROSSES UNDER TwoPrevTop AND DiMD >= TwoPrevDiMD)) THEN
DivergeBottom = -1.8
ELSE
DivergeBottom = 0
ENDIF

IF ((Bottom >= PrevBottom AND DiMDb CROSSES UNDER PrevDiMDb) OR (Bottom CROSSES OVER PrevBottom AND DiMDb <= PrevDiMDb)) OR ((Bottom >= TwoPrevBottom AND DiMDb CROSSES UNDER TwoPrevDiMDb) OR (Bottom CROSSES OVER TwoPrevBottom AND DiMDb <= TwoPrevDiMDb)) THEN
DivergeTop = 1.8
ELSIF ((Bottom <= PrevBottom AND DiMDb CROSSES OVER PrevDiMDb) OR (Bottom CROSSES UNDER PrevBottom AND DiMDb >= PrevDiMDb)) OR ((Bottom <= TwoPrevBottom AND DiMDb CROSSES OVER TwoPrevDiMDb) OR (Bottom CROSSES UNDER TwoPrevBottom AND DiMDb >= TwoPrevDiMDb)) THEN
DivergeTop = 1.8
ELSE
DivergeTop = 0
ENDIF

RETURN a COLOURED BY col1 AS "MACD", mmacd*100 COLOURED BY col2 AS "LM", se*100 AS "S", bollsup*100 AS "BSUP", bollinf*100 AS "BINF", DivergeTop COLOURED (0,150,0) AS "Chivatoalcista", DivergeBottom COLOURED (150,0,0) AS "Chivatobajista", bvol COLOURED (0,0,150) AS "Volumen"

-----------------------------------------------------------------------------------------------------

En cuadro de variables:

m = 20
zz = 3
c = 50

Ahora solo os queda probarlo, no teneís excusa, ya me contareís...