Líneas horizontales según MACD

• 06/22/2024 at 4:41 PM #234224
  dratzither

  Querría obtener una línea horizontal en el precio cada vez que MACD alcance un máximo y después un mínimo o viceversa (soporte en verde, resistencia en rojo), ¿es posible programarlo?

  Actualmente pongo las líneas a mano, pero cuando a veces necesito ver el ajuste por dividendos y estas líneas mueven la referencia.

  Gracias

  

  dratzither

  Participant

  Topics: 1

  Replies: 4

  Been thanked: 0 times
  06/22/2024 at 9:44 PM #234228
  druby

  Pruebe esto, vea si dibuja líneas en la posición correcta. Si necesitas un cambio, trata de ser específico.

  La variable llamada “línes” limitaba el número de líneas dibujadas.
  “Lastbars” limitaba el número de barras utilizadas en los cálculos. Cero significa usar todas las barras. 100 significa comenzar en el compás 100.

   

   

  defparam drawonlastbaronly = true lastbars = 0 lines = 7 once below = 0 once above = 1 once id = 0 // indicators iMacd = MACDline[12,26,9](close) iSignal = MACDSignal[12,26,9](close) if barindex > min(30,lastbars) then // conditions xover = below if iMacd > iSignal then xover = above if iMacd crosses over iSignal then id = id + 1 endif endif if xover = above then if iMacd > iMacd[1] then $hi[id] = barindex endif endif if xover = below then if iMacd < iMacd[1] then $lo[id] = barindex endif endif endif // drawing if islastbarupdate then for i = max(0,lastset($hi)-lines+1) to lastset($hi) hi = high[$hi[i]] x1 = barindex-$hi[i] y1 = high[x1] x2 = 0 y2 = y1 drawsegment(barindex[x1],y1,barindex[x2]+5,y2) coloured("red")style(dottedline,1) //drawtext(i,barindex[x2]+11,y1) coloured("red") drawtext(y1,-120,y1) anchor(right,xshift,value) coloured("red") next for i = max(0,lastset($lo)-lines+1) to lastset($lo) x1 = barindex - $lo[i] y1 = low[x1] x2 = 0 y2 = y1 drawsegment(barindex[x1],y1,barindex[x2]+5,y2) coloured("lime")style(dottedline,1) //drawtext(i,barindex[x2]+12,y1) coloured("lime") drawtext(y1,-50,y1)anchor(right,xshift,value) coloured("lime") next endif //drawtext(xover,barindex,20)anchor(bottom,index,yshift)coloured("yellow") return

  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

  defparam drawonlastbaronly = true   lastbars = 0 lines = 7   once below = 0 once above = 1 once id = 0   // indicators iMacd   = MACDline[12,26,9](close) iSignal = MACDSignal[12,26,9](close)   if barindex > min(30,lastbars) then   // conditions   xover = below if iMacd > iSignal then xover = above   if iMacd crosses over iSignal then id = id + 1 endif endif     if xover = above then if iMacd > iMacd[1] then $hi[id] = barindex endif endif   if xover = below then if iMacd < iMacd[1] then $lo[id] = barindex endif endif   endif   // drawing if islastbarupdate then   for i = max(0,lastset($hi)-lines+1) to lastset($hi) hi = high[$hi[i]] x1 = barindex-$hi[i] y1 = high[x1] x2 = 0 y2 = y1   drawsegment(barindex[x1],y1,barindex[x2]+5,y2) coloured("red")style(dottedline,1) //drawtext(i,barindex[x2]+11,y1) coloured("red") drawtext(y1,-120,y1) anchor(right,xshift,value) coloured("red") next   for i = max(0,lastset($lo)-lines+1) to lastset($lo) x1 = barindex - $lo[i] y1 = low[x1] x2 = 0 y2 = y1   drawsegment(barindex[x1],y1,barindex[x2]+5,y2) coloured("lime")style(dottedline,1) //drawtext(i,barindex[x2]+12,y1) coloured("lime") drawtext(y1,-50,y1)anchor(right,xshift,value) coloured("lime") next   endif   //drawtext(xover,barindex,20)anchor(bottom,index,yshift)coloured("yellow")   return

  2 users thanked author for this post.

  Iván, dratzither

  

  druby

  Participant

  Topics: 1

  Replies: 355

  Been thanked: 268 times
  06/23/2024 at 5:53 AM #234230
  dratzither

  Muchas gracias, es exactamente lo que buscaba.

  Si quisiera cambiar el timeframe para que las líneas fuesen siempre en base al MACD mensual (aunque cambie la vista a diario o semanal),  ¿dónde tendría que ponerlo?

  

  dratzither

  Participant

  Topics: 1

  Replies: 4

  Been thanked: 0 times
  06/23/2024 at 10:56 AM #234231
  druby

  Su solicitud no es fácil de implementar. El comando “Período de tiempo” no es compatible con los tres “períodos de tiempo”.

  Además, el código escrito necesitaría muchos cambios para mostrarse correctamente en los otros marcos temporales.

  Actualmente, la única solución que se me ocurre es derivar un MACD mensual personalizado a partir del marco temporal del gráfico y, a partir de ahí, calcular las líneas.

  No es una solución rápida. Lo investigaré.

  Si alguien tiene una solución, que se sume.

  

  druby

  Participant

  Topics: 1

  Replies: 355

  Been thanked: 268 times
  06/26/2024 at 9:49 AM #234358
  dratzither

  He probado a multiplicar los iMACD e iSIGNAL por 365/12/7, es una aproximación pero cuanto más te alejas de la fecha actual menos preciso es respecto al timeframe mensual.

  

  dratzither

  Participant

  Topics: 1

  Replies: 4

  Been thanked: 0 times
  06/27/2024 at 1:09 AM #234395
  druby

  Hola… Prueba esta versión.
  Solo funciona en marcos temporales de 1 día, 1 semana y 1 mes.

  Los mejores resultados se obtienen con las unidades 1 mes = 25, 1 semana = 1000 y 1 fecha = 10 000.

  Compara las líneas con lo que dibujarías.

  Si detectas algún problema, publícalo y lo analizaré.

   

   

  macd hi lo range v2.00

  lines = 5 // 0 or positve integer, smaller than lines drawn! error = 1 // display error message if barindex = 0 then once below = 0 once above = 1 once Hid = 0 once Lid = 0 $hi[0]=0 $lo[0]=0 gTF = getTimeframe if gtf = 86400 then // 1day m = 30.416667 // days 365/12 days/month 10,000 units TF=1 elsif gtf = 604800 then // 1week m = 4.333334 // weeks 365/52 weeks/month 1000 units TF=2 elsif gtf >= 2419200 and gtf <= 2678400 then // 1 month 25units m = 1 // months TF=0 else TF = -1 if error = 1 then Drawtext("Monthly,<br> Weekly, <br> Daily <br> Timeframes only!"/* */ ,0,0,monospaced,bold,30) /* */ coloured("red") anchor(middle,xshift,yshift) endif endif a = 12 * m b = 26 * m c = 9 * m endif if barindex > b and TF >= 0 then iMacd = MACDline[max(1,a),max(1,b),max(1,c)](close) iSignal = MACDSignal[max(1,a),max(1,b),max(1,c)](close) // is macd line crosses above if iMacd > iSignal and iMacd [1] < iSignal[1] then Hid = Hid + 1 HH=high HHb = barindex xOver = above endif // is macd line crosses below if iMacd < iSignal and iMacd [1] > iSignal[1] then Lid = Lid + 1 LL = low LLb = barindex xOver = below endif // highs if xover = above then if high > HH then HH = high HHb = barindex endif endif if openmonth <> openmonth[1] then $hi[Hid] = HHb endif // lows if xover = below then if low < LL then LL = low LLb = barindex endif endif if openmonth <> openmonth[1] then $lo[Lid] = LLb endif if islastbarupdate then // drawing highs for i = max(0,lastset($hi)-lines+1) to lastset($hi) x1 = barindex-$hi[i] y1 = high[x1] x2 = 0 y2 = y1 drawsegment(barindex[x1],y1,barindex[x2]+5,y2) coloured("red")style(dottedline,1) drawtext(y1,-120,y1+5) anchor(right,xshift,value) coloured("red") next // drawing lows for i = max(0,lastset($lo)-lines+1) to lastset($lo) x1 = barindex - $lo[i] y1 = low[x1] x2 = 0 y2 = y1 drawsegment(barindex[x1],y1,barindex[x2]+5,y2) coloured("lime")style(dottedline,1) drawtext(y1,-50,y1)anchor(right,xshift,value) coloured("lime") next endif endif return /**/

  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 111 112 113

  lines = 5  // 0 or positve integer, smaller than lines drawn! error = 1  // display error message   if barindex = 0 then once below = 0 once above = 1 once Hid = 0 once Lid = 0 $hi[0]=0 $lo[0]=0   gTF = getTimeframe   if gtf = 86400 then       // 1day m = 30.416667          // days   365/12 days/month     10,000 units TF=1 elsif gtf = 604800 then   // 1week m = 4.333334           // weeks  365/52 weeks/month   1000 units TF=2 elsif gtf >= 2419200 and gtf <= 2678400 then // 1 month  25units m = 1                  //  months TF=0 else TF = -1 if error = 1 then Drawtext("Monthly,<br> Weekly,  <br> Daily    <br> Timeframes only!"/* */  ,0,0,monospaced,bold,30) /* */  coloured("red") anchor(middle,xshift,yshift) endif endif   a = 12 * m b = 26 * m c = 9  * m   endif   if barindex > b and TF >= 0 then   iMacd   =   MACDline[max(1,a),max(1,b),max(1,c)](close) iSignal = MACDSignal[max(1,a),max(1,b),max(1,c)](close)   // is macd line crosses above if iMacd > iSignal and iMacd [1] < iSignal[1] then Hid = Hid + 1 HH=high HHb = barindex xOver = above endif   // is macd line crosses below if iMacd < iSignal and iMacd [1] > iSignal[1] then Lid = Lid + 1 LL = low LLb = barindex xOver = below endif   // highs if xover = above then if high > HH then HH = high HHb = barindex endif endif   if openmonth <> openmonth[1] then $hi[Hid] = HHb endif   // lows if xover = below then if low < LL then LL = low LLb = barindex endif endif   if openmonth <> openmonth[1] then $lo[Lid] = LLb endif     if islastbarupdate then   // drawing highs for i = max(0,lastset($hi)-lines+1) to lastset($hi)   x1 = barindex-$hi[i] y1 = high[x1] x2 = 0 y2 = y1   drawsegment(barindex[x1],y1,barindex[x2]+5,y2) coloured("red")style(dottedline,1) drawtext(y1,-120,y1+5) anchor(right,xshift,value) coloured("red") next   // drawing lows   for i = max(0,lastset($lo)-lines+1) to lastset($lo) x1 = barindex - $lo[i] y1 = low[x1] x2 = 0 y2 = y1   drawsegment(barindex[x1],y1,barindex[x2]+5,y2) coloured("lime")style(dottedline,1) drawtext(y1,-50,y1)anchor(right,xshift,value) coloured("lime") next endif   endif return /**/

   

  

  druby

  Participant

  Topics: 1

  Replies: 355

  Been thanked: 268 times
  06/27/2024 at 10:26 AM #234422
  dratzither

  En algunos tickers fallan algunas líneas. Por ejemplo en el ticker HOME (BME):

  • Las líneas en 16 y 14 no se generan en base al MACD
  • en mensual dibuja unas líneas entre 2020 y 2022 que en semanal no aparecen

  Trabajo con zonas visibles de 145U (145 meses y 145 semanas), no sé si tendrá algo que ver.

  Gracias por tu dedicación.

  

  dratzither

  Participant

  Topics: 1

  Replies: 4

  Been thanked: 0 times
  06/27/2024 at 2:56 PM #234438
  druby

  Hola..
  La imagen 1 muestra el número predeterminado en las barras visibles, tanto para el gráfico semanal como para el mensual, y también se representan mediante rectángulos azules. Las líneas del gráfico semanal se alinean con las líneas correspondientes del gráfico mensual. Sin embargo, algunas líneas mensuales parecen faltar en el gráfico semanal. En la parte inferior de los gráficos, se encuentran el código MACD y el MACD de acciones, todos para el gráfico mensual.

  Imagen 2: El gráfico semanal se amplía en el eje x para mostrar todas las barras. La línea vertical representa el punto de inicio de la línea faltante más reciente. Sin embargo, al observar el código MACD, aún no está definido y no se puede detectar el punto de cruce para esa línea.

  Imagen 3: Se amplía el gráfico mensual para mostrar todas las barras. La línea vertical se mueve al inicio del gráfico semanal y se refleja en el gráfico mensual. Las otras líneas faltantes no solo no están cubiertas por el código MACD semanal, sino que esas barras ni siquiera están presentes.

  Para que el gráfico semanal represente todas las líneas mensuales, tiene que haber suficientes datos históricos cargados para capturar el código MACD de cruce, que luego dibuja su línea.

  En 145 unidades, eso significa que se cargaron 650 barras históricas y se necesitan 150 barras para calcular el inicio de la señal MACD. Y luego esperar el cruce.

  En este momento, la única solución es aumentar los datos históricos hasta que se representen todas las líneas requeridas.

  No se muestra, noté que dos líneas no coincidían en absoluto. Esto se debió a que, cuando recorrí las matrices para dibujar las líneas, comenzó en el índice cero, y esto no era válido y debería haber comenzado en ‘1’.

  Además, para el gráfico diario, habrá un escenario similar, pero se necesitan incluso más barras para representar todas las líneas mensuales.

  Espero que esto explique lo que está sucediendo.

   

   

  macd hi lo range v2.01

  once iMacd = undefined once iSignal = undefined lines = 5 // 0 or positve integer, smaller than lines drawn! error = 1 // display error message if barindex = 0 then once below = 0 once above = 1 once Hid = 0 once Lid = 0 $hi[0]=0 $lo[0]=0 gTF = getTimeframe if gtf = 86400 then // 1day m = 30.416667 // days 365/12 days/month 10,000 units TF=1 elsif gtf = 604800 then // 1week m = 4.333334 // weeks 365/52 weeks/month 1000 units TF=2 elsif gtf >= 2419200 and gtf <= 2678400 then // 1 month 25units m = 1 // months TF=0 else TF = -1 if error = 1 then Drawtext("Monthly,<br> Weekly, <br> Daily <br> Timeframes only!"/* */ ,0,0,monospaced,bold,30) /* */ coloured("red") anchor(middle,xshift,yshift) endif endif a = 12 * m b = 26 * m c = 9 * m endif if barindex > b and TF >= 0 then iMacd = MACDline[max(1,a),max(1,b),max(1,c)](close) iSignal = MACDSignal[max(1,a),max(1,b),max(1,c)](close) // is macd line crosses above if iMacd > iSignal and iMacd [1] < iSignal[1] then Hid = Hid + 1 HH=high HHb = barindex xOver = above endif // is macd line crosses below if iMacd < iSignal and iMacd [1] > iSignal[1] then Lid = Lid + 1 LL = low LLb = barindex xOver = below endif // highs if xover = above then if high > HH then HH = high HHb = barindex endif endif if openmonth <> openmonth[1] then $hi[Hid] = HHb endif // lows if xover = below then if low < LL then LL = low LLb = barindex endif endif if openmonth <> openmonth[1] then $lo[Lid] = LLb endif if islastbarupdate then // drawing highs for i = max(1,lastset($hi)-lines+1) to lastset($hi) x1 = barindex-$hi[i] y1 = high[x1] x2 = 0 y2 = y1 drawsegment(barindex[x1],y1,barindex[x2]+5,y2) coloured("red")style(dottedline,1) drawtext(y1,-120,y1+5) anchor(right,xshift,value) coloured("red") next // drawing lows for i = max(1,lastset($lo)-lines+1) to lastset($lo) x1 = barindex - $lo[i] y1 = low[x1] x2 = 0 y2 = y1 drawsegment(barindex[x1],y1,barindex[x2]+5,y2) coloured("lime")style(dottedline,1) drawtext(y1,-50,y1)anchor(right,xshift,value) coloured("lime") next endif endif return /**/

  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 111 112 113 114 115 116

  once iMacd = undefined once iSignal = undefined   lines = 5  // 0 or positve integer, smaller than lines drawn! error = 1  // display error message   if barindex = 0 then once below = 0 once above = 1 once Hid = 0 once Lid = 0 $hi[0]=0 $lo[0]=0   gTF = getTimeframe   if gtf = 86400 then       // 1day m = 30.416667          // days   365/12 days/month     10,000 units TF=1 elsif gtf = 604800 then   // 1week m = 4.333334           // weeks  365/52 weeks/month   1000 units TF=2 elsif gtf >= 2419200 and gtf <= 2678400 then // 1 month  25units m = 1                  //  months TF=0 else TF = -1 if error = 1 then Drawtext("Monthly,<br> Weekly,  <br> Daily    <br> Timeframes only!"/* */  ,0,0,monospaced,bold,30) /* */  coloured("red") anchor(middle,xshift,yshift) endif endif   a = 12 * m b = 26 * m c = 9  * m   endif   if barindex > b and TF >= 0 then   iMacd   =   MACDline[max(1,a),max(1,b),max(1,c)](close) iSignal = MACDSignal[max(1,a),max(1,b),max(1,c)](close)   // is macd line crosses above if iMacd > iSignal and iMacd [1] < iSignal[1] then Hid = Hid + 1 HH=high HHb = barindex xOver = above endif   // is macd line crosses below if iMacd < iSignal and iMacd [1] > iSignal[1] then Lid = Lid + 1 LL = low LLb = barindex xOver = below endif   // highs if xover = above then if high > HH then HH = high HHb = barindex endif endif   if openmonth <> openmonth[1] then $hi[Hid] = HHb endif   // lows if xover = below then if low < LL then LL = low LLb = barindex endif endif   if openmonth <> openmonth[1] then $lo[Lid] = LLb endif     if islastbarupdate then   // drawing highs for i = max(1,lastset($hi)-lines+1) to lastset($hi)   x1 = barindex-$hi[i] y1 = high[x1] x2 = 0 y2 = y1   drawsegment(barindex[x1],y1,barindex[x2]+5,y2) coloured("red")style(dottedline,1) drawtext(y1,-120,y1+5) anchor(right,xshift,value) coloured("red") next   // drawing lows   for i = max(1,lastset($lo)-lines+1) to lastset($lo) x1 = barindex - $lo[i] y1 = low[x1] x2 = 0 y2 = y1   drawsegment(barindex[x1],y1,barindex[x2]+5,y2) coloured("lime")style(dottedline,1) drawtext(y1,-50,y1)anchor(right,xshift,value) coloured("lime") next endif   endif return /**/

  1 user thanked author for this post.

  dratzither

  

  druby

  Participant

  Topics: 1

  Replies: 355

  Been thanked: 268 times
  06/28/2024 at 9:21 AM #234465
  dratzither

  Gracias por la explicación, un saludo.

  

  dratzither

  Participant

  Topics: 1

  Replies: 4

  Been thanked: 0 times
  06/28/2024 at 10:20 AM #234470
  druby

  Aquí hay otra versión, donde calculé valores precisos para el número de días/semanas en un mes y también si es un saltoAquí hay otra versión, donde calculé valores precisos para el número de días/semanas en un mes y también si es un año bisiesto.

  

  druby

  Participant

  Topics: 1

  Replies: 355

  Been thanked: 268 times
• Author
  Posts