MACD 3 en 1

• 06/20/2016 at 2:26 PM #9602
  Pere

  Aquí os dejo el MACD, incluyendo otros dos indicadores: el Elder Impulse System y el Zero Lag (divergencias del MACD publicado en http://www.prorealcode.com/prorealtime-indicators/macd-divergences-from-price/). Es realmente un 3 en 1. Lo único que yo he hecho es unificar los 3 indicadores en uno solo, para tener toda la información a mano.

  Si queréis más información sobre estrategias con este indicador, me podéis contactar.

  Las salidas elderimpulsebuy, elderimpulsesell y elderimpulsechange hay que ponerlas en histograma. Las 3 primeras ya vienen coloreadas, y las bullishmacddivergence y bearishmacddivergence se ponen en línea para que no se sobrepongan al histograma del MACD. Pueden colorearse con unas nuevas zonas de color.

  /////////////////MACD IMPULSE ELDER//// // variables // pc, fast ma, 12 // pl, slow ma, 26 // ps, signal, 9 // p, exp ma EIS, 18 // set first three as histograms pc=12 pl=26 ps=9 p=13//periodos EIS aa=exponentialaverage[p](close) cc=MACD[pc,pl,ps](close) if aa > aa[1] and cc>cc[1] Then dd =cc*2 else dd=0 endif if aa<aa[1] and cc < cc[1] then ee=cc*2 else ee=0 endif if ( aa <aa[1] and cc > cc[1]) or (aa>aa[1] and cc<cc[1]) then ff=cc*2 else ff=0 endif REM MACD hh=exponentialaverage[pc](close) - exponentialaverage[pl](close) REM Signal hh1=exponentialaverage[ps](hh) // DIVERGENCES ZeroLag MACD adapted from HK-LISSE RSI divergences code EMAshort1 = exponentialaverage[pc](close) EMAshort2 = exponentialaverage[pc](EMAshort1) DifferenceShort = EMAshort1 - EMAshort2 ZeroLagShort = EMAshort1 + DifferenceShort EMAlong1 = exponentialaverage[pl](close) EMAlong2 = exponentialaverage[pl](EMAlong1) DifferenceLong = EMAlong1 - EMAlong2 ZeroLagLong = EMAlong1 + DifferenceLong ZeroLagMACD = ZeroLagShort - ZeroLagLong signal1=ExponentialAverage[ps](ZEROLAGMACD) signal2=ExponentialAverage[ps](signal1) DIFFERENCE2=signal1-signal2 SignalMACD=signal1+DIFFERENCE2 x = ZeroLagMACD y = SignalMACD // BEARISH DIVERGENCES MACD hi=max(hi,x) hico=max(hico,max(high,high[1])) if x crosses under y then sto2b=sto1b sto1b=hi hi=0 p3b=p1b p2b=max(p1b,hico1) p1b=max(highest[3](high),hico) if p2b=p1b then p2b=max(p3b,p4b) endif hico=0 hico1=0 endif if x<y then p4b=hico1 hico1=max(hico1,high) endif if p1b>p2b and sto1b<sto2b and x crosses under y and x<x[1] then signB= -2 else signB= 0 endif // BULLISH MACD DIVERGENCES lo=min(lo,x) lowco=min(lowco,min(low,low[1])) if x CROSSES OVER y then sto2h=sto1h sto1h=lo lo=100 p3h=p1h p2h=min(p1h,lowco1) p1h=min(lowest[3](low),lowco) if p2h=p1h then p2h=min(p3h,p4h) endif lowco=100000 lowco1=100000 endif if x>y then p4h=lowco1 lowco1=min(lowco1,low) endif if p1h<p2h and sto1h > sto2h and x crosses over y and x>x[1] then signH= 2 else signH= 0 endif return dd COLOURED(0,255,0) as "elder impulsebuy", ee COLOURED(255,0,0) as "elder impulsesell", ff coloured(0,0,255) as "elder impulsechange", hh as "macd", hh1 as "signal macd", signH as "Bullish MACD Divergence", signB as "Bearish MACD Divergence" , 0 as " zero "

  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 97 98 99 100 101 102 103 104 105 106 107 108 109 110

  /////////////////MACD IMPULSE ELDER//// //  variables // pc, fast ma, 12 // pl, slow ma, 26 // ps, signal, 9 // p, exp ma EIS, 18 // set first three as histograms pc=12 pl=26 ps=9 p=13//periodos EIS aa=exponentialaverage[p](close) cc=MACD[pc,pl,ps](close) if aa > aa[1]  and cc>cc[1] Then dd =cc*2 else dd=0 endif if aa<aa[1] and cc < cc[1] then ee=cc*2 else ee=0 endif if ( aa <aa[1] and cc > cc[1]) or (aa>aa[1] and cc<cc[1])  then ff=cc*2 else ff=0 endif REM MACD hh=exponentialaverage[pc](close) - exponentialaverage[pl](close)   REM Signal hh1=exponentialaverage[ps](hh)   // DIVERGENCES ZeroLag MACD adapted from HK-LISSE RSI divergences code   EMAshort1 = exponentialaverage[pc](close) EMAshort2 = exponentialaverage[pc](EMAshort1) DifferenceShort = EMAshort1 - EMAshort2 ZeroLagShort = EMAshort1 + DifferenceShort   EMAlong1 = exponentialaverage[pl](close) EMAlong2 = exponentialaverage[pl](EMAlong1) DifferenceLong = EMAlong1 - EMAlong2 ZeroLagLong = EMAlong1 + DifferenceLong   ZeroLagMACD = ZeroLagShort - ZeroLagLong   signal1=ExponentialAverage[ps](ZEROLAGMACD) signal2=ExponentialAverage[ps](signal1) DIFFERENCE2=signal1-signal2   SignalMACD=signal1+DIFFERENCE2 x = ZeroLagMACD y = SignalMACD   //  BEARISH DIVERGENCES MACD hi=max(hi,x) hico=max(hico,max(high,high[1]))   if x crosses under y then sto2b=sto1b sto1b=hi hi=0 p3b=p1b p2b=max(p1b,hico1) p1b=max(highest[3](high),hico) if p2b=p1b then p2b=max(p3b,p4b) endif hico=0 hico1=0 endif if x<y then p4b=hico1 hico1=max(hico1,high) endif if p1b>p2b and sto1b<sto2b and x crosses under y and x<x[1] then signB= -2 else signB= 0 endif   // BULLISH MACD DIVERGENCES lo=min(lo,x) lowco=min(lowco,min(low,low[1]))   if x CROSSES OVER y  then sto2h=sto1h sto1h=lo lo=100 p3h=p1h p2h=min(p1h,lowco1) p1h=min(lowest[3](low),lowco) if p2h=p1h then p2h=min(p3h,p4h) endif lowco=100000 lowco1=100000 endif if x>y then p4h=lowco1 lowco1=min(lowco1,low) endif if p1h<p2h and sto1h > sto2h and x crosses over y and x>x[1]  then signH= 2 else signH= 0 endif return dd COLOURED(0,255,0) as "elder impulsebuy", ee COLOURED(255,0,0) as "elder impulsesell", ff coloured(0,0,255) as "elder impulsechange", hh as "macd", hh1 as "signal macd", signH as "Bullish MACD Divergence", signB as "Bearish MACD Divergence" , 0 as " zero "

   

  

  Pere

  Participant

  Topics: 20

  Replies: 97

  Been thanked: 20 times
  06/20/2016 at 4:32 PM #9605
  Nicolas

  Gracias Petrus. Tal vez podrías explicar un poco cómo usarlo? Debido a que hay un montón de color 🙂
  También, se debe adaptar el MACD a cualquier instrumento, ya que no se vea bien para pares de divisas, por ejemplo.

   

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20828

  Been thanked: 4738 times
  06/20/2016 at 6:16 PM #9611
  Pere

  Sin problema. Lo único que pasa es que no tengo demasiada experiencia, aunque explicaré buenamente lo que he podido apreciar.

  Yo lo uso exclusivamente para el DAX, y en timeframes de 1 y 5 minutos, aunque supongo que en tiempos superiores también funcionará. Con divisas no tengo experiencia ninguna, o sea que si tú dices que no lo ves correcto, pues así será.

  Sobre el MACD no creo que haya mucho que explicar. Yo no lo utilizo como único indicador, evidentemente, pero es un buen complemento para detectar divergencias, y en eso ayuda también el detector automático de las mismas.

  Cuando el histograma sube, aunque sea negativo, es momento de largos, aunque repito que no es el indicador que da la entrada. Lo interesante son las barras con colores: según el Elder Impulse System, si la barra es azul, es indiferente, aunque puede ayudar viendo la tendencia anterior. Si la barra es roja, prohíbe los largos y recomienda los cortos, y si la barra es verde, prohíbe los cortos y recomienda los largos. Yo espero a ver dos o tres velas seguidas verdes para entrar largos, o rojas para cortos. El Elder Impulse System es una combinación de momentum y tendencia.

  El momento ideal para largos es cuando el histograma va subiendo, la vela se pone verde justo por encima del cero y encima hay una divergencia. Lo mismo para cortos, pero al revés. Conviene confirmar las divergencias visualmente. Naturalmente, cuanto más altas van siendo las barras del histograma, más va subiendo el precio. Si estás largo y una barra se pone roja, conviene salir.

  Sé que es muy simple, pero conforme voy practicando con este indicador (junto con otros), a mí me funciona.

  

  Pere

  Participant

  Topics: 20

  Replies: 97

  Been thanked: 20 times
  06/20/2016 at 7:41 PM #9615
  Nicolas

  Gracias por la explicación, puedo añadirlo a la biblioteca con su perfil como autor?

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20828

  Been thanked: 4738 times
  06/20/2016 at 9:16 PM #9617
  Pere

  Sí, claro, sin problema.

  

  Pere

  Participant

  Topics: 20

  Replies: 97

  Been thanked: 20 times
  06/21/2016 at 9:49 AM #9635
  Nicolas

  http://www.prorealcode.com/prorealtime-indicators/macd-impulse-elder-divergences/

   

   

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20828

  Been thanked: 4738 times
  12/05/2018 at 8:41 PM #86380
  Callmebuddy

  Buenas tardes.

  Quiero incluir en mi buscador la condición que el MACD no tenga divergencias. Podríais darme alguna indicación de cómo programarlo?

   

  Mil gracias

  

  Callmebuddy

  Participant

  Topics: 1

  Replies: 11

  Been thanked: 0 times
  12/06/2018 at 9:45 AM #86403
  Nicolas

  Si MACD no tiene divergencias, significa que las 2 variables “signH” y “signH” tienen valores en 0.

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20828

  Been thanked: 4738 times
  08/12/2019 at 6:53 PM #104635
  varbeti

  Buenas tardes.

  ¿Podría alguien convertir (o explicar cómo hacerlo) este indicador en un screener para buscar acciones que tengan una divergencia en los últimos, por ejemplo, 100 días)?

  Gracias.

   

  Hello.

  Could anybody convert (or explain how to do it) this indicator into a screener so that it can find stocks with a divergence within the last, for instance, 100 days?

  Thank you.

  

  varbeti

  Participant

  Topics: 0

  Replies: 1

  Been thanked: 0 times
• Author
  Posts