Divergences MACD Screener

• 11/02/2020 at 9:54 AM #149256
  Lily Rios

  Buenos dias, me gustaria saber como transformar este indicador en un proscreener.
  saludos.
  https://www.prorealcode.com/prorealtime-indicators/macd-divergences-on-price-and-indicator/

  

  Lily Rios

  Participant

  Topics: 1

  Replies: 2

  Been thanked: 0 times
  12/22/2020 at 4:16 AM #154818
  robertogozzi

  Ahí tienes:

  /////////////////////////////////////////////////////////// // MACD divergences on price //by Jose Callao // twitter @jose7674 // attach this indicator to the chart N=40///N is the number of bars to look back for a divergence. Normal values are 20-40. Must be the same in both indicators //using any other indicator is as easy as changing the values miMACD = exponentialAverage[12](close) - exponentialAverage[26](close) Signal = 0 IF (BarIndex > 10+1+N) THEN //we look for bearish divergences IF (miMACD[1]>miMACD AND miMACD[1]>miMACD[2]) THEN extremum2=miMACD[1] extremum1=highest[N](miMACD) preciomax2=close[1] preciomax=Highest[N](close) IF(extremum2<extremum1 AND preciomax2>preciomax[1]) THEN for i=1 to N if close[i]=preciomax[1] then //zz=i Signal = 2 //drawsegment (barindex[1], close[1], barindex[zz], close[zz]) coloured(200,0,0) endif next endif endif //we look for bullish divergences IF (miMACD[1]<miMACD AND miMACD[1]<miMACD[2]) THEN extremum22=miMACD[1] extremum11=lowest[N](miMACD) preciomin2=close[1] preciomin=lowest[N](close) IF(extremum22>extremum11 AND preciomin2<preciomin[1]) THEN for i2=1 to N if close[i2]=preciomin[1] then //zz2=i2 Signal = 1 //drawsegment(barindex[1], close[1], barindex[zz2], close[zz2]) coloured(0,200,0) endif next endif endif endif SCREENER[Signal](Signal AS "1=↑, 2=↓")

  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

  /////////////////////////////////////////////////////////// // MACD divergences on price //by Jose Callao // twitter @jose7674 // attach this indicator to the chart N=40///N is the number of bars to look back for a divergence. Normal values are 20-40. Must be the same in both indicators //using any other indicator is as easy as changing the values miMACD = exponentialAverage[12](close) - exponentialAverage[26](close) Signal = 0 IF (BarIndex > 10+1+N) THEN //we look for bearish divergences IF (miMACD[1]>miMACD AND miMACD[1]>miMACD[2]) THEN extremum2=miMACD[1] extremum1=highest[N](miMACD) preciomax2=close[1] preciomax=Highest[N](close) IF(extremum2<extremum1 AND preciomax2>preciomax[1]) THEN for i=1 to N if close[i]=preciomax[1] then //zz=i Signal = 2 //drawsegment (barindex[1], close[1], barindex[zz], close[zz]) coloured(200,0,0) endif next endif endif //we look for bullish divergences IF (miMACD[1]<miMACD AND miMACD[1]<miMACD[2]) THEN extremum22=miMACD[1] extremum11=lowest[N](miMACD) preciomin2=close[1] preciomin=lowest[N](close) IF(extremum22>extremum11 AND preciomin2<preciomin[1]) THEN for i2=1 to N if close[i2]=preciomin[1] then //zz2=i2 Signal = 1 //drawsegment(barindex[1], close[1], barindex[zz2], close[zz2]) coloured(0,200,0) endif next endif endif endif SCREENER[Signal](Signal AS "1=↑, 2=↓")

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17188

  Been thanked: 4064 times
  12/22/2020 at 10:02 AM #154859
  Lily Rios

  Buenos dias, el código al parecer no esta completo.

  En la linea 33 falta un operador igual mayor o menor : IF (miMACD[1] extremum22=miMACD[1]….

  En la linea 38 también falta algún operador para la variable preciomin2: IF(extremum22>extremum11 AND preciomin2 for i2=1 to N

  En la linea 45 la función next muestra error derivados de los errores anteriores.

  saludos,

  

  Lily Rios

  Participant

  Topics: 1

  Replies: 2

  Been thanked: 0 times
  12/22/2020 at 10:13 AM #154862
  robertogozzi

  El problema es causado por la palabra REM, que significa comentar, reemplazarlo con RME o lo que sea, incluso si no está al principio.

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17188

  Been thanked: 4064 times
  12/22/2020 at 11:25 AM #154878
  Lily Rios

  Gracias por corregirlo, ahora si funciona estupendamente.

  

  Lily Rios

  Participant

  Topics: 1

  Replies: 2

  Been thanked: 0 times
  10/25/2021 at 9:34 AM #180297
  betty

  buenos dias!

  si quisiesmos hacer lo mismo con el rsi, seria suficiente sustituir la palabra MACD por RSI ?? igual es una tonteria de pregunta pero no se de programacion.

  Y si quisiesemos sumar los dos?

  

  betty

  Participant

  Topics: 1

  Replies: 2

  Been thanked: 0 times
  10/25/2021 at 10:17 AM #180301
  robertogozzi

  Sí, puede dejar el nombre de la variable como está, solo cambie el indicador:

  miMACD = RSI[14](close)

  1	miMACD = RSI[14](close)

  Puedes crear otro con el Momentum, o con Willims R%, etc.

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17188

  Been thanked: 4064 times
  05/22/2023 at 2:30 PM #215017
  Nicolas

  Según lo solicitado, aquí está el código que combina este filtro: https://www.prorealcode.com/prorealtime-market-screeners/evening-morning-stars-screener/ con el código de divergencias publicado anteriormente:

  //Author: Boursomaniac //Date: 19-02-2017 // Data Set-up BaseCandle = 0 Open0 = Open[BaseCandle] Close0 = Close[BaseCandle] Open1 = Open[BaseCandle + 1] Close1 = Close[BaseCandle + 1] Open2 = Open[BaseCandle + 2] Close2 = Close[BaseCandle + 2] Open3 = Open[BaseCandle + 3] Close3 = Close[BaseCandle + 3] // Control height DojiBody = ABS(Close1-Open1) HeightLong = 7*DojiBody // ++++++++++EVENING STAR++++++++++++ // Calcul height candelstick 2 and 2 CandleElong0 = ABS(Close0-Open0) CandleElong2 = ABS(Close0-Open0) // Validate Candlestick color + position CandleE0 = Open0 > Close0 And Open0 < Close1 AND (CandleElong0>=HeightLong) CandleE1 = Open1>Open0 AND Close1>Close0 AND Close1>Close2 AND Open1>Open2 CandleE2 = Open2 < Close2 And Close2 > Close3 And Open3 < Close3 AND (CandleElong2>=HeightLong) EvStar = CandleE0 AND CandleE1 AND CandleE2 // ++++++++++MORNING STAR++++++++++++ // Calcul height candelstick 2 and 2 CandleMlong0 = ABS(Close0-Open0) CandleMlong2 = ABS(Close0-Open0) // Validate Candlestick color + position CandleM0 = Open0 < Close0 And Open0 > Close1 AND (CandleMlong0>=HeightLong) CandleM1 = Open1<Open0 AND Close1<Close0 AND Open1<Open2 AND Close1<Close2 CandleM2 = Open2 > Close2 And Close2 < Close3 And Open3 > Close3 AND (CandleMlong2>=HeightLong) //Morning Star MornStar = CandleM0 AND CandleM1 AND CandleM2 Condition = (EvStar Or MornStar) /////////////////////////////////////////////////////////// // MACD divergences on price //by Jose Callao // twitter @jose7674 // attach this indicator to the chart N=40///N is the number of bars to look back for a divergence. Normal values are 20-40. Must be the same in both indicators //using any other indicator is as easy as changing the values miMACD = exponentialAverage[12](close) - exponentialAverage[26](close) Signal = 0 IF (BarIndex > 10+1+N) THEN //we look for bearish divergences IF (miMACD[1]>miMACD AND miMACD[1]>miMACD[2]) THEN extremum2=miMACD[1] extremum1=highest[N](miMACD) preciomax2=close[1] preciomax=Highest[N](close) IF(extremum2<extremum1 AND preciomax2>preciomax[1]) THEN for i=1 to N if close[i]=preciomax[1] then //zz=i Signal = 2 //drawsegment (barindex[1], close[1], barindex[zz], close[zz]) coloured(200,0,0) endif next endif endif //we look for bullish divergences IF (miMACD[1]<miMACD AND miMACD[1]<miMACD[2]) THEN extremum22=miMACD[1] extremum11=lowest[N](miMACD) preciomin2=close[1] preciomin=lowest[N](close) IF(extremum22>extremum11 AND preciomin2<preciomin[1]) THEN for i2=1 to N if close[i2]=preciomin[1] then //zz2=i2 Signal = 1 //drawsegment(barindex[1], close[1], barindex[zz2], close[zz2]) coloured(0,200,0) endif next endif endif endif SCREENER[Condition and signal] (Signal AS "1=↑, 2=↓")

  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

  //Author: Boursomaniac //Date: 19-02-2017   // Data Set-up BaseCandle = 0 Open0 = Open[BaseCandle] Close0 = Close[BaseCandle] Open1 = Open[BaseCandle + 1] Close1 = Close[BaseCandle + 1] Open2 = Open[BaseCandle + 2] Close2 = Close[BaseCandle + 2] Open3 = Open[BaseCandle + 3] Close3 = Close[BaseCandle + 3]   // Control height DojiBody = ABS(Close1-Open1) HeightLong = 7*DojiBody   // ++++++++++EVENING STAR++++++++++++ // Calcul height candelstick 2 and 2 CandleElong0 = ABS(Close0-Open0) CandleElong2 = ABS(Close0-Open0)   // Validate Candlestick color + position CandleE0 = Open0 > Close0 And Open0 < Close1 AND (CandleElong0>=HeightLong) CandleE1 = Open1>Open0 AND Close1>Close0 AND Close1>Close2 AND Open1>Open2 CandleE2 = Open2 < Close2 And Close2 > Close3 And Open3 < Close3 AND (CandleElong2>=HeightLong)   EvStar = CandleE0 AND CandleE1 AND CandleE2     // ++++++++++MORNING STAR++++++++++++ // Calcul height candelstick 2 and 2 CandleMlong0 = ABS(Close0-Open0) CandleMlong2 = ABS(Close0-Open0) // Validate Candlestick color + position CandleM0 = Open0 < Close0 And Open0 > Close1 AND (CandleMlong0>=HeightLong) CandleM1 = Open1<Open0 AND Close1<Close0 AND Open1<Open2 AND Close1<Close2 CandleM2 = Open2 > Close2 And Close2 < Close3 And Open3 > Close3 AND (CandleMlong2>=HeightLong)   //Morning Star MornStar =  CandleM0 AND CandleM1 AND CandleM2   Condition = (EvStar Or MornStar)   /////////////////////////////////////////////////////////// // MACD divergences on price //by Jose Callao // twitter @jose7674 // attach this indicator to the chart N=40///N is the number of bars to look back for a divergence. Normal values are 20-40. Must be the same in both indicators //using any other indicator is as easy as changing the values miMACD = exponentialAverage[12](close) - exponentialAverage[26](close) Signal = 0 IF (BarIndex > 10+1+N) THEN //we look for bearish divergences IF (miMACD[1]>miMACD AND miMACD[1]>miMACD[2]) THEN extremum2=miMACD[1] extremum1=highest[N](miMACD) preciomax2=close[1] preciomax=Highest[N](close) IF(extremum2<extremum1 AND preciomax2>preciomax[1]) THEN for i=1 to N if close[i]=preciomax[1] then //zz=i Signal = 2 //drawsegment (barindex[1], close[1], barindex[zz], close[zz]) coloured(200,0,0) endif next endif endif //we look for bullish divergences IF (miMACD[1]<miMACD AND miMACD[1]<miMACD[2]) THEN extremum22=miMACD[1] extremum11=lowest[N](miMACD) preciomin2=close[1] preciomin=lowest[N](close) IF(extremum22>extremum11 AND preciomin2<preciomin[1]) THEN for i2=1 to N if close[i2]=preciomin[1] then //zz2=i2 Signal = 1 //drawsegment(barindex[1], close[1], barindex[zz2], close[zz2]) coloured(0,200,0) endif next endif endif endif       SCREENER[Condition and signal] (Signal AS "1=↑, 2=↓")

  1 user thanked author for this post.

  lee

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20863

  Been thanked: 4774 times
  05/22/2023 at 3:04 PM #215021
  lee

  Thank you so much Nicolas for taking the time to combine these 2 screeners, I very much appreciate it. Hope this is useful for other traders also.

  Many thanks again.

  

  lee

  Participant

  Topics: 0

  Replies: 1

  Been thanked: 0 times
• Author
  Posts