Mago Estraperlo -Indicador-

• 09/25/2018 at 11:17 AM #81275
  Rosameri

  Desearia la configuración de este indicador para PRT. Alguien lo conoce?

  Gracias

  

  Rosameri

  Participant

  Topics: 1

  Replies: 1

  Been thanked: 0 times
  09/25/2018 at 12:13 PM #81278
  Nicolas

  Lo siento pero no sé cuál es el indicador “mago estraperlo”, ¿podría definirlo por nosotros? ¿Y compartir algunas capturas de pantalla de cómo se ve? Gracias por adelantado.

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20828

  Been thanked: 4738 times
  09/25/2018 at 1:28 PM #81280
  jcisneros

  Ahí te lo bajas. Tienes que compartir en twitter es de exitobursatil

  https://www.exitobursatil.com/indicador-mago-estraperlo-como-funciona/

   

   

  

  jcisneros

  Participant

  Topics: 0

  Replies: 2

  Been thanked: 0 times
  09/25/2018 at 1:49 PM #81282
  Nicolas

  Por favor, agrega el código original por ti mismo, por lo que no podré traducirlo. Gracias.

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20828

  Been thanked: 4738 times
  09/25/2018 at 3:24 PM #81288
  Rosameri

  Muchísimas gracias Nicolas y JCisneros.

  Ya os contaré mi experiencia con este indicador.

  Saludos.

   

  

  Rosameri

  Participant

  Topics: 1

  Replies: 1

  Been thanked: 0 times
  09/27/2018 at 7:14 AM #81398
  Nicolas

  Me gustaría ayudar, pero sin ningún código para traducir, ¿cómo lo hago? 🙂

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20828

  Been thanked: 4738 times
  11/08/2018 at 12:27 PM #84416
  Raspoutine

  Buenos dias

  El indicador estraperlo consta de :
  Un Macd con la configuración 5,13,1 que aparece en el recuadro de propiedades como LM(linea macd), que aparece como una linea (en los gráficos que os muestro es la linea negra gruesa).
  Un Macd Histograma con la configuración estándar 12,26,9, centrado, de manera que su linea cero coincide con la linea cero del Macd 5,13,1.
  Una linea de señal que aparece en el recuadro de propiedades como S , que se basa en una media Wilder por defecto en 10 periodos (aunque es configurable al periodo que elijaís) que corta al LM.
  Y unas Bandas de Bollinguer (Bollsup y Bollinf en recuadro de propiedades) de 60 periodoscon una desviación estándar de 1.

  la fuente por estraperlo : http://bolsatrilera.blogspot.com/2014/03/indicadores-estraperlo.html

   

  Estraperlo

  //En el cuadro de variables b=Media=10 Rem Estraperlo a=MACD[12,26,9](close) 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 mimacd=MACDline[5,13,1](close) se=WilderAverage[b](mimacd) gd2=average[60](mimacd) sd=1*STD[60](mimacd) bollsup=gd2+sd bollinf=gd2-sd RETURN a coloured by col as "MACD",mimacd as "LM",se as "S",bollsup as "Bollsup",bollinf as "bollinf"

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

  //En el cuadro de variables b=Media=10 Rem Estraperlo   a=MACD[12,26,9](close) 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   mimacd=MACDline[5,13,1](close) se=WilderAverage[b](mimacd) gd2=average[60](mimacd) sd=1*STD[60](mimacd) bollsup=gd2+sd bollinf=gd2-sd   RETURN a coloured by col as "MACD",mimacd as "LM",se as "S",bollsup as "Bollsup",bollinf as "bollinf"

   

  Otra fuente que viene de tradingview

  Tradingview / Biais5 Mago Estraperlo

  //@version=2 study("Biais5 Mago Estraperlo") //Variables length = input(20, minval=1,title="BB Length") src = input(close, title="Source") mult = input(2.0, minval=0.001, maxval=50,title="BB Multiplier") fast = input(5, minval=1,title="Fast MACD") slow = input(13, minval=1,title="Slow MACD") media = input(10, minval=1,title="Media MACD") sensible = input(1.6, title="Sensibilidad CPM Climatico") //Capital Medio Proporcional capital = volume * src volmax = highest(capital, 60) vol = ((capital*100/volmax)*4/5) volmed = ema(vol, 60) CPM = (vol - volmed) //Plot Capital Medio Proporcional Climático bvol = iff(CPM/10 > sensible,CPM/10,0) plot(bvol, color =bvol > 0 ? #01FF0B : #FF1A15, style=columns) // Atlas Mini basis = sma(src, length) dev = mult * stdev(src, length) upper = basis + dev lower = basis - dev dbb = sqrt((upper-lower)/upper)*20 dbbmed = ema(dbb,120) factor = dbbmed*4/5 atl = dbb-factor all = atl>0?0:2*atl //Plot Atlas Mini plot(all, style=columns, color=blue) plot(atl*2, linewidth=3, color=blue) // Cálculo de la Curva de Estraperlo y Señal MACD val1 = ema(src, fast) val2 = ema(src, slow) estraperlo = val1/val2-1 signal = sma(estraperlo, media) tendencia = (estraperlo * 100 - signal * 100) // Plot Estraperlo y señal MACD ColorTendencia = iff(tendencia > 0, green,iff(tendencia < 0, red,blue)) plotEstraperlo = plot(series=(estraperlo * 100), color=green, linewidth=3) plotSignal = plot(series=(signal * 100), color=red, linewidth=3) // Color de relleno fill(plot1=plotEstraperlo, plot2=plotSignal, color=ColorTendencia, transp = 50) // Raya Horizontal plot(0, color=black)

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55

  //@version=2 study("Biais5 Mago Estraperlo")   //Variables length    = input(20, minval=1,title="BB Length") src       = input(close, title="Source") mult      = input(2.0, minval=0.001, maxval=50,title="BB Multiplier") fast      = input(5, minval=1,title="Fast MACD") slow      = input(13, minval=1,title="Slow MACD") media     = input(10, minval=1,title="Media MACD") sensible  = input(1.6, title="Sensibilidad CPM Climatico")   //Capital Medio Proporcional capital = volume * src volmax = highest(capital, 60) vol = ((capital*100/volmax)*4/5) volmed = ema(vol, 60) CPM = (vol - volmed)   //Plot Capital Medio Proporcional Climático bvol = iff(CPM/10 > sensible,CPM/10,0) plot(bvol, color =bvol > 0 ? #01FF0B : #FF1A15, style=columns)   // Atlas Mini basis = sma(src, length) dev = mult * stdev(src, length) upper = basis + dev lower = basis - dev dbb = sqrt((upper-lower)/upper)*20 dbbmed = ema(dbb,120) factor = dbbmed*4/5 atl = dbb-factor all = atl>0?0:2*atl   //Plot Atlas Mini plot(all, style=columns, color=blue) plot(atl*2, linewidth=3, color=blue)   // Cálculo de la Curva de Estraperlo y Señal MACD val1 = ema(src, fast) val2 = ema(src, slow) estraperlo = val1/val2-1 signal = sma(estraperlo, media) tendencia = (estraperlo * 100 - signal * 100)   // Plot Estraperlo y señal MACD ColorTendencia = iff(tendencia > 0, green,iff(tendencia < 0, red,blue)) plotEstraperlo = plot(series=(estraperlo * 100), color=green, linewidth=3) plotSignal     = plot(series=(signal * 100), color=red, linewidth=3)   // Color de relleno fill(plot1=plotEstraperlo, plot2=plotSignal, color=ColorTendencia, transp = 50)   // Raya Horizontal plot(0, color=black)

   

  que tenga un buen día

   

  

  Raspoutine

  Participant

  Topics: 0

  Replies: 3

  Been thanked: 0 times
  11/08/2018 at 2:36 PM #84427
  Nicolas

  Merci raspoutine, ¿cree que la versión de vista comercial debería convertirse? El código no parece calcular el indicador de la misma manera que el código PRT que también compartiste. Eso sería una buena adición a nuestra biblioteca 🙂

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20828

  Been thanked: 4738 times
  12/15/2018 at 7:52 PM #87195
  estdi

  Hola Nicolas ,

  Podrías traducir  a Prorealtime  el código en el párrafo anterior  “Biais5 Mago Estraperlo” de la plataforma  Tradingview

  Muchas Gracias por adelantado.

  que tenga un buen día.

   

   

   

  

  estdi

  Participant

  Topics: 0

  Replies: 1

  Been thanked: 0 times
  09/23/2020 at 7:18 AM #145027
  Raspoutine

  Hola

  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.

  source: http://bolsatrilera.blogspot.com/search/label/ESTRAPERLO%20PRO

  Eestraperlo pro

  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"

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96

  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

  

  Raspoutine

  Participant

  Topics: 0

  Replies: 3

  Been thanked: 0 times
  12/21/2022 at 1:58 PM #206145
  ebohe007

  hola alguien me puede ayudar? veo que para poder tener el mago estraperlo pro necesito el indicador de dinapoli divergence, pero sin embargo no lo encuentro por ningun lado, me lo podian facilitar o decirme donde lo puedo localizar? graicas.

  

  ebohe007

  Participant

  Topics: 1

  Replies: 1

  Been thanked: 0 times
• Author
  Posts