INDICADORES : ESTRAPERLO CHIVATO

Y me dió por hacer un remake de uno de mis "indicadores",el Estraperlo.
El motivo, encontrar un código de un indicador llamado DiNapoli Macd & Divergence de mano de un forero apodado Dutchy en el foro alemán http://www.aktienboard.com/forum/f29/prorealtime-cmc-script-programmierung-t94783/172
Como sabeís , soy un plagiador de mierda , y no tardé en adueñarme de una parte de ese código,que entendí , detectaba alzas y bajas en el precio.
Así , me puse a reformar el indicador Estraperlo (mirar en etiquetas indicadores:estraperlo,cojones!)
incluyendo en esta versión un nuevo elemento al que he bautizado como barras chivatas.
Las barras chivatas nos avisan de un posible giro en el precio , al alza (barras verdes) o a la baja (barras rojas), de forma que puede ser un interesante complemento.
La primera versión de este indicador la visteís en este blog en el post ACCIONA CON UN INDICADOR RARO.
El problema de esta primera versión es que había que cambiar un parámetro (que había agregado para ello)
cada vez que cambiabamos de gráfico, por un problemilla con las escalas, lo cual era un auténtico coñazo
para alguien , que por ejemplo, mire los 35 valores del Ibex.
En el post de ACCIONA CON UN INDICADOR RARO 2ª PARTE , visteís el Estraperlo Chivato en una versión donde las barras chivatas  están incluidas dentro del Macd central, de esta forma el problema de las escalas desaparece ,en contra , hay menos visibilidad de las barras debido a la particularidad del Macd.
Su aspecto queda como veís en la afoto,donde aparecen las nomenclaturas que encontrareís en el cuadro de propiedades  en todos sus componentes....

Como soy muy tikismikis , esta versión tampoco me convencía .Así en estos días después de la publicación de este artículo, he seguido liado con encontrar alguna solución satisfactoria al puñetero tema de las escalas... y lo encontré en un código de un macd normalizado de la página francesa del fuera de serie...
http://hk-lisse.over-blog.com/
Por fin !, aquí teneís la versión definitiva del Estraperlo Chivato.

Para todo aquel que tenga curiosidad en testearlo o simplemente lo quiera tener porque queda bonito , totalmente gratis y a vuestra disposición, el código para la plataforma Prorealtime es :
------------------------------------------------------------------------------------------------------
REM ESTRAPERLO CHIVATO
REM programado por Miguel Angel Castillo. Octubre 2014
REM parte código basado en MACD DiNAPOLI DIVERGENCE by DUTCHY
REM y parte de código de Macd Normalisé by hk_lisse
REM variables m=media=10,zz=zz=3

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

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
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

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
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
ELSE
DivergeTop = 0

ENDIF

RETURN  mimacd*100 AS " MACD",  DivergeTop COLOURED (0,150,50) AS "Chivatoalcista", DivergeBottom COLOURED (200,0,0) AS "Chivatobajista",mmacd*100 AS "LM",se*100 AS "S",bollsup*100 AS "BSUP",bollinf*100 AS "BINF"


------------------------------------------------------------------------------------------------------------
En el cuadro de variables:
m = media =10
zz = zz =3
El parámetro por defecto de la media es  10 , para zz (el parámetro de las barras chivatas) es 3.
Ambos se pueden modificar.
Ah! se me olvidaba, debeís configurar tanto el Macd como el chivato alcista y bajista en estilo histograma. Las barras chivatas vienen por defecto en color verde(alcista) y rojo(bajista).

nota: si este indicador os sirve de algo,solo os pido un pequeño reconocimiento , si al final resulta un mojón , no me hago responsable de las futuras pérdidas derivadas de su uso.