domingo, 8 de noviembre de 2015

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

23 comentarios:

  1. Hola Miguel, enhorabuena por tu mejora contínua! tienes las señales de entrada y de salida automatizadas para este indicador? Es decir, algún sistema en prorealtime?

    ResponderEliminar
    Respuestas
    1. No,esto es totalmente nuevo y de momento muy intuitivo

      Eliminar
  2. Una vez más, MUCHÍSIMAS GRACIAS!!!!!!!!!!!!!!!!!!!!!!!!!

    ResponderEliminar
  3. Muchas gracias monstruo!!!!!!

    ResponderEliminar
  4. gracias por tu tiempo y dedicación


    david.

    ResponderEliminar
  5. Buenas Crack, una consulta, la última linea del código me aparece con un warning a la izquierda. Y se subraya en rojo las dos apariciones del BY.

    RETURN SC*100 COLOURED BY col as "SC",SV*100 COLOURED BY col

    ResponderEliminar
    Respuestas
    1. Si,ocurre eso cuando se pone la expresión coloured by...pero no pasa nada,te admite el código perfectamente

      Eliminar
  6. Hola Miguel!
    interesantísimo tu gran trabajo. estoy copiando el indicador en mi proreal y me da la advertencia "Se espera un campo flotante conExponentialAverage"
    y no se carga el indicador. Por qué puede pasar esto?
    un saludo!
    Alejandro

    ResponderEliminar
  7. ¿ha introducido usted las variables en el cuadro de variables?

    ResponderEliminar
  8. Buenas Miguel, una duda más, utilizas algún Screener para detectar valores con posible rally trilero alcista? Gran trabajo el de tu blog.

    ResponderEliminar
    Respuestas
    1. pos no mire usted,no utilizo screener desos.
      Gracias por el elogio.

      Eliminar
  9. Hola he visto en el twitter del crack (Sr., Castillo) un estraperlo con chivatos que no repintan. ¿Alguien sabe cómo configuararlo o dónde buscarlo? Saludos.

    ResponderEliminar
    Respuestas
    1. Lo tengo yo,amigo Jesus y no ha sido publicado hasta ahora.cortesia de Miguel Leugim,es un estraperlo pro2.como no es ningún secreto de estado,por si usted lo quiere,tome nota,el código es :
      ----------------------------------------
      REM ESTRAPERLO PRO2
      //ESTRAPERLO PRO 2
      //Basado en el Estraperlo de Miguel Ángel Castillo. Octubre 2014
      //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
      //Parte de código de barras de rebote by jose7674 y Miguel Leugim
      //Modificado 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 aSC[1] and SC[1]>SC[2]
      alza2=SV>SV[1] and SV[1]>SV[2]
      baja2=SV 2 AND CPM > 0
      IF volumen THEN
      bvol = 1.2
      ELSE
      bvol = 0
      ENDIF

      //Indicador barras de rebote
      //Definimos el MACD
      rapida = exponentialaverage[1](close)
      lenta= exponentialaverage[50](close)
      miMACD = rapida - lenta
      //Definimos las BB
      BBm1 = average[70](miMACD)
      BBsup1 = BBm1 + 2*STD[70](miMACD)
      BBinf1 = BBm1 - 2*STD[70](miMACD)
      BBm2 = average[50](miMACD)
      BBsup2 = BBm2 + 2*STD[20](miMACD)
      BBinf2 = BBm2 - 2*STD[20](miMACD)
      //Definimos las condiciones de largos
      l1 = miMACD crosses over BBinf1
      l2 = miMACD crosses over BBinf2
      l3 = Stochastic[14,6](close) < 20
      //Definimos las condiciones para entrar cortos
      c1 = miMACD crosses under BBsup1
      c2 = miMACD crosses under BBsup2
      c3 = Stochastic[14,6](close) > 80

      //Buscar barras de largos
      if l1 and l3 then
      l3 = 2
      elsif l2 and l3 then
      l3 = 1.5
      else
      l3 = 0
      endif

      //Buscar barras de cortos
      if c1 and c3 then
      c3 = -2
      elsif c2 and c3 then
      c3 = -1.5
      else
      c3 = 0
      endif

      RETURN SC*100 COLOURED BY col1 as "SC",SV*100 COLOURED BY col1 as "SV", mmacd*100 AS "LM", se*100 AS "S", bollsup*100 AS "BSUP", bollinf*100 AS "BINF", bvol COLOURED (0,0,200) AS "Volumen", l3 COLOURED (0,150,0) as "ReboteLargos", c3 COLOURED (150,0,0) as "ReboteCortos", 0 as "Cero"

      ------------------------------------------------
      En el cuadro de variables:
      m = media = 10
      n = n = 40

      Un saludo.

      Eliminar
  10. Gracias Miguel, me da un error en filas 26 32 y 34 ... (ni idea),...

    ResponderEliminar
    Respuestas
    1. Me parece que no ha quedado bien el copiar-pegar que he hecho...mandame un correo y te lo mano por e-milio.

      Eliminar
  11. no encuentro tu correo, pásamelo o te digo el mío jmgonru@gmail.com

    ResponderEliminar
  12. Hola Miguel, a ver si me lo puedes enviar tb, te he enviado un emilio al gmail preguntado por "el que no repinta"

    Gracias por tu trabajo.

    David

    Saludos.

    ResponderEliminar
  13. Buenas, podrías enviarme a mi también el estraperlo pro 2? Es que lo pedo y también me salen errores alex2net@hotmail.com

    Gracias

    ResponderEliminar
    Respuestas
    1. OK. te lo mando en un ratito.
      Un saludo Alejandro.

      Eliminar
  14. Buenas tardes-noches Miguel Ángel, estoy haciendo pruebas con el estraperlo pro en real con acciones, podrías enviarme este que no repinta a mi correo electrónico? javier.gallardo70@gmail.com

    Muchas gracias anticipadas.

    ResponderEliminar
  15. hola buenas noches a mi tambien me da error me lo puedes enviar a eugarnu@hotmail.es muchas gracias

    ResponderEliminar