ESTRAPERLO TRILERO

Esto es más rápido que las versiones de los windows.
No hace apenas dos semanas que apareció el estraperlo remix y ya hay otra modificación.

Las diferencias respecto al estraperlo remix son las siguientes:
El Oscilador Macd de Carlos Rozas cambia de color dando señales que coinciden con su operativa con este indicador http://calatravoanalisistecnico.blogspot.com.es/2015/05/acerinox-y-acciona-dando-senal.html  y al mismo tiempo mantiene la misma visualización del estraperlo original

Con una variación gilipollas en la parte del código de barras del capital proporcional medio programado por Miguel Leuguim , se consigue mostrar prácticamente en su totalidad , las barras de volumen climático del volumen climático trilero

El aspecto visual y su nomenclatura queda de esta forma :

SC = sobrecompra en indicador Oscilador Macd
SV =sobrevenya en indicador Oscilador Macd
VT= barras de volumen climático trilero
C= curva del estraperlo
S = señal
BSUP = banda superior
BINF = banda inferior

Y ahora, sin más dilación...

¡ con garra , con fuerza ! , el código para Prorealtime es...

------------------------------------------------------------------------------------------------------
//ESTRAPERLO TRILERO
//Creado por  Miguel Ángel Castillo basado en el Estraperlo. Octubre 2015
//Parte de código de Macd Normalisé by hk_lisse
//Parte de código de Macd de Carlos Rozas
//Parte de código de Capital Proporcional Medio by Javier Alfayate
//Revisado por Miguel Leugim (sud_miguel@hotmail.com). Octubre 2015

//Indicador estraperlo
val1=Exponentialaverage[5](close)
val2=ExponentialAverage[13](close)
mmacd=val1/val2-1
se=ExponentialAverage[m](mmacd)
gd2=average[60](mmacd)
sd=1*STD[60](mmacd)
bollsup=gd2+sd
bollinf=gd2-sd

//Oscilador Macd
valor1=ExponentialAverage[12](close)
valor2=ExponentialAverage[26](close)
a=valor1/valor2-1
b=exponentialaverage[50](highest[n](a))
c=exponentialaverage[50](lowest[n](a))

if a>b then
SC=a-b
else
SC=0
endif
if a<c then
SV=a-c
else
SV=0
endif

alza=a>a[1]and a [1]<a[2]
baja=a<a[1]and a[1]>a[2]
if alza then
col=1
elsif baja then
col=-1
endif

//Indicador Capital Proporcional Medio como Volumen Climático Trilero
capital = volume * close
volmax = highest[200](capital)
vol = ((capital*100/volmax)*4/5)
volmed = Average[10](vol)
CPM = (vol - volmed)
volumen = capital / (Average[10](capital)[1]) > 2 AND CPM > 0
IF volumen THEN
bvol = 1.2
ELSE
bvol = 0
ENDIF


RETURN SC*100 COLOURED BY col  as "SC",SV*100 COLOURED BY col as "SV", bvol COLOURED (255,0,0) as "VT", 0 as "Cero",mmacd*100 as "C",se*100 as "S",bollsup*100 as "BSUP",bollinf*100 as "BINF"

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

En el cuadro de variables:

m = media = 20
n = n =50

Poner en estilo histograma las abreviaciones SC,SV,VT
Elegir colores positivo/negativo para SC/SV


nota : podeís ver la utilización virtual de este indicador por mi parte en twitter :
MiguelAngel@castillomorenom