Indicador Máximo y mínimo relevante

• 05/21/2025 at 2:29 PM #247455
  mjose

  Hola buenas tardes. Soy nueva aquí pero muy interesada en aprender porque no tengo ni  idea de programación. Querría conseguir un código para generar un indicador que indique los valores máximos y mínimos relevantes de las velas. Siendo el máximo relevante de una vela cuando tres velas anteriores a ella sean máximos más bajos y las tres velas posteriores también tengas máximos más bajos. En el caso de los  mínimos relevantes de una vela, sería cuando sus tres velas anteriores tengan mínimos más altos y sus tres velas posteriores tengan mínimos más altos .  Estos puntos tienen que medir de forma objetiva cuando cambian las etapas de alcista a bajista

  

  mjose

  Participant

  Topics: 1

  Replies: 4

  Been thanked: 3 times
  05/22/2025 at 8:03 AM #247469
  JC_Bywan

  Hola,

  monVoffset=AverageTrueRange[14](close) if high[6]<high[3] AND high[5]<high[3] AND high[4]<high[3] AND high[3]>high[2] AND high[3]>high[1] AND high[3]>high then DRAWARROWDOWN(barindex[3], high[3]+monVoffset) COLOURED("red") endif if low[6]>low[3] AND low[5]>low[3] AND low[4]>low[3] AND low[3]<low[2] AND low[3]<low[1] AND low[3]<low then DRAWARROWUP(barindex[3], low[3]-monVoffset) COLOURED("green") endif return

  1 2 3 4 5 6 7 8 9 10

  monVoffset=AverageTrueRange[14](close)   if high[6]<high[3] AND high[5]<high[3] AND high[4]<high[3] AND high[3]>high[2] AND high[3]>high[1] AND high[3]>high then DRAWARROWDOWN(barindex[3], high[3]+monVoffset) COLOURED("red") endif if low[6]>low[3] AND low[5]>low[3] AND low[4]>low[3] AND low[3]<low[2] AND low[3]<low[1] AND low[3]<low then DRAWARROWUP(barindex[3], low[3]-monVoffset) COLOURED("green") endif   return

   

   

  1 user thanked author for this post.

  Iván

  

  JC_Bywan

  Moderator

  Topics: 20

  Replies: 2730

  Been thanked: 1002 times
  05/23/2025 at 11:52 AM #247555
  mjose

  Hola buenos días. He aplicado tu código y me queda perfecto, da las señales como  indica. He intentado creer un código  para que me detecte los 16 patrones de velas más  importantes ascendentes, descendentes y de continuación. ASCENDENTES:

  1. Martillo

  2. Martillo Invertido

  3. Envolvente Alcista

  4. Penetrante

  5. Estrella de la Mañana

  6. Tres Soldados Blancos

     ❌ Patrones de velas descendentes (bajistas)

     Señalan posibles cambios de tendencia a bajista tras una subida.

     7. Hombre Colgado

     8. Estrella Fugaz

     9. Envolvente Bajista

     10. Estrella del Atardecer

     11. Tres Cuervos Negros

     12. Cubierta de Nube Oscura

     ---

     🔁 Patrones de velas de continuación

     Indican pausas o consolidación dentro de una tendencia.

     13. Doji

     14. Trompo

     15. Triple Formación Bajista

     16. Triple Formación Alcista
         Lo que me ha creado chatgpt no lo reconoce Prorealtime. Sería  posible que  me ayudarais con esto. Imagino que esto es muy simple para gente que controla mucho este campo, pero para mi es muy importante poder ver esto en los gráficos.

     17. Un saludo y gracias por adelantado.

  

  mjose

  Participant

  Topics: 1

  Replies: 4

  Been thanked: 3 times
  05/23/2025 at 12:04 PM #247556
  robertogozzi

  ChatGPT no está familiarizado con el lenguaje ProRealTime.
  Si publicas el código generado puedo ver si se puede arreglar de alguna manera, para adaptarlo a las particularidades de ProReralTime.

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17615

  Been thanked: 4333 times
  05/24/2025 at 3:46 PM #247578
  mjose

  Buenas tardes Roberto gozzi! muchas gracias por su tiempo.  Le pedía Chatgpt un indicador que indico arriba y me devolvió esto:

  // Indicador de patrones de velas japonesas
  // Detecta 16 patrones comunes y muestra el nombre sobre la vela correspondiente

  defparam drawonlastbaronly = false

  // Funciones auxiliares
  isBullish = close > open
  isBearish = close < open
  body = abs(close – open)
  upperWick = high – max(open, close)
  lowerWick = min(open, close) – low
  fullRange = high – low

  // Parámetros dinámicos
  smallBody = fullRange * 0.3
  largeBody = fullRange * 0.7

  // Martillo
  hammer = isBullish AND lowerWick > 2 * body AND upperWick < body
  IF hammer THEN
  drawtext(“Martillo”, barindex, low – atr(5), dialog, red)
  ENDIF

  // Martillo Invertido
  invHammer = isBullish AND upperWick > 2 * body AND lowerWick < body
  IF invHammer THEN
  drawtext(“Mart. Inv”, barindex, high + atr(5), dialog, red)
  ENDIF

  // Hombre colgado
  hangman = isBearish AND lowerWick > 2 * body AND upperWick < body
  IF hangman THEN
  drawtext(“H. Colgado”, barindex, low – atr(5), dialog, blue)
  ENDIF

  // Estrella fugaz
  shootingStar = isBearish AND upperWick > 2 * body AND lowerWick < body
  IF shootingStar THEN
  drawtext(“Estrella F.”, barindex, high + atr(5), dialog, blue)
  ENDIF

  // Envolvente alcista
  bullEngulfing = close[1] < open[1] AND close > open AND open < close[1] AND close > open[1]
  IF bullEngulfing THEN
  drawtext(“Eng. Alcista”, barindex, low – atr(5), dialog, green)
  ENDIF

  // Envolvente bajista
  bearEngulfing = close[1] > open[1] AND close < open AND open > close[1] AND close < open[1]
  IF bearEngulfing THEN
  drawtext(“Eng. Bajista”, barindex, high + atr(5), dialog, red)
  ENDIF

  // Penetrante
  penetrating = close[1] > open[1] AND open < close[1] AND close > midpoint(open[1], close[1]) AND close < open[1]
  IF penetrating THEN
  drawtext(“Penetrante”, barindex, low – atr(5), dialog, green)
  ENDIF

  // Nube oscura
  darkCloud = close[1] < open[1] AND open > close[1] AND close < midpoint(close[1], open[1]) AND close > open[1]
  IF darkCloud THEN
  drawtext(“N. Oscura”, barindex, high + atr(5), dialog, red)
  ENDIF

  // Estrella de la mañana (requiere 3 velas)
  morningStar = close[2] < open[2] AND body[1] < body[2] AND close > midpoint(open[2], close[2])
  IF morningStar THEN
  drawtext(“E. Mañana”, barindex, low – atr(5), dialog, green)
  ENDIF

  // Estrella del atardecer
  eveningStar = close[2] > open[2] AND body[1] < body[2] AND close < midpoint(open[2], close[2])
  IF eveningStar THEN
  drawtext(“E. Atardecer”, barindex, high + atr(5), dialog, red)
  ENDIF

  // Tres soldados blancos
  whiteSoldiers = isBullish AND isBullish[1] AND isBullish[2] AND close > close[1] AND close[1] > close[2]
  IF whiteSoldiers THEN
  drawtext(“3 Soldados”, barindex, low – atr(5), dialog, green)
  ENDIF

  // Tres cuervos negros
  blackCrows = isBearish AND isBearish[1] AND isBearish[2] AND close < close[1] AND close[1] < close[2]
  IF blackCrows THEN
  drawtext(“3 Cuervos”, barindex, high + atr(5), dialog, red)
  ENDIF

  // Doji
  doji = abs(close – open) <= (high – low) * 0.1
  IF doji THEN
  drawtext(“Doji”, barindex, close + atr(5), dialog, orange)
  ENDIF

  // Trompo
  spinningTop = body < (high – low) * 0.3 AND upperWick > body AND lowerWick > body
  IF spinningTop THEN
  drawtext(“Trompo”, barindex, close + atr(5), dialog, orange)
  ENDIF

  // Triple formación alcista
  threeLineStrikeUp = close[3] < close[2] AND close[2] < close[1] AND close > close[1] AND open < close[3]
  IF threeLineStrikeUp THEN
  drawtext(“Triple Alcista”, barindex, low – atr(5), dialog, green)
  ENDIF

  // Triple formación bajista
  threeLineStrikeDown = close[3] > close[2] AND close[2] > close[1] AND close < close[1] AND open > close[3]
  IF threeLineStrikeDown THEN
  drawtext(“Triple Bajista”, barindex, high + atr(5), dialog, red)
  ENDIF

   

  Esto que me devolvió no lo reconoce PRT. Si  usted me puede ayudar le estaría muy agradecida. Y si además me puede enseñar como hacerlos yo, le estaría muy agradecía. Muchas gracias por su amabilidad.

  1 user thanked author for this post.

  Maricarmen

  

  mjose

  Participant

  Topics: 1

  Replies: 4

  Been thanked: 3 times
  05/25/2025 at 9:02 PM #247591
  robertogozzi

  Prueba esto:

  // Indicador de patrones de velas japonesas // Detecta 16 patrones comunes y muestra el nombre sobre la vela correspondiente //defparam drawonlastbaronly = true miATR = AverageTrueRange[5](close) // Funciones auxiliares isBullish = close > open isBearish = close < open body = abs(close - open) upperWick = high - max(open, close) lowerWick = min(open, close) - low fullRange = high - low // Parámetros dinámicos smallBody = fullRange * 0.3 largeBody = fullRange * 0.7 // Martillo hammer = isBullish AND lowerWick > 2 * body AND upperWick < body IF hammer THEN drawtext("Martillo", barindex, low - miATR,dialog,standard,14) coloured("Red") ENDIF // Martillo Invertido invHammer = isBullish AND upperWick > 2 * body AND lowerWick < body IF invHammer THEN drawtext("Mart. Inv", barindex, high + miATR,dialog,standard,14) coloured("Red") ENDIF // Hombre colgado hangman = isBearish AND lowerWick > 2 * body AND upperWick < body IF hangman THEN drawtext("H. Colgado", barindex, low - miATR,dialog,standard,14) coloured("Blue") ENDIF // Estrella fugaz shootingStar = isBearish AND upperWick > 2 * body AND lowerWick < body IF shootingStar THEN drawtext("Estrella F.", barindex, high + miATR,dialog,standard,14) coloured("Blue") ENDIF // Envolvente alcista bullEngulfing = close[1] < open[1] AND close > open AND open < close[1] AND close > open[1] IF bullEngulfing THEN drawtext("Eng. Alcista", barindex, low - miATR,dialog,standard,14) coloured("Green") ENDIF // Envolvente bajista bearEngulfing = close[1] > open[1] AND close < open AND open > close[1] AND close < open[1] IF bearEngulfing THEN drawtext("Eng. Bajista", barindex, high + miATR,dialog,standard,14) coloured("Red") ENDIF // Penetrante penetrating = close[1] > open[1] AND open < close[1] AND (close > ((open[1] + abs(close[1] - open[1]) / 2))) AND close < open[1] //Midpont IF penetrating THEN drawtext("Penetrante", barindex, low - miATR,dialog,standard,14) coloured("Green") ENDIF // Nube oscura darkCloud = close[1] < open[1] AND open > close[1] AND (close > ((open[1] + abs(close[1] - open[1]) / 2))) AND close > open[1]//, open[1]) //Midpont IF darkCloud THEN drawtext("N. Oscura", barindex, high + miATR,dialog,standard,14) coloured("Red") ENDIF // Estrella de la mañana (requiere 3 velas) morningStar = close[2] < open[2] AND body[1] < body[2] AND (close > ((open[2] + abs(close[2] - open[2]) / 2)))//, close[2]) //Midpont IF morningStar THEN drawtext("E. Mañana", barindex, low - miATR,dialog,standard,14) coloured("Green") ENDIF // Estrella del atardecer eveningStar = close[2] > open[2] AND body[1] < body[2] AND (close > ((open[2] + abs(close[2] - open[2]) / 2)))//, close[2]) //Midpont IF eveningStar THEN drawtext("E. Atardecer", barindex, high + miATR,dialog,standard,14) coloured("Red") ENDIF // Tres soldados blancos whiteSoldiers = isBullish AND isBullish[1] AND isBullish[2] AND close > close[1] AND close[1] > close[2] IF whiteSoldiers THEN drawtext("3 Soldados", barindex, low - miATR,dialog,standard,14) coloured("Green") ENDIF // Tres cuervos negros blackCrows = isBearish AND isBearish[1] AND isBearish[2] AND close < close[1] AND close[1] < close[2] IF blackCrows THEN drawtext("3 Cuervos", barindex, high + miATR,dialog,standard,14) coloured("Red") ENDIF // Doji doji = abs(close - open) <= (high - low) * 0.1 IF doji THEN drawtext("Doji", barindex, close + miATR,dialog,standard,14) coloured("Orange") ENDIF // Trompo spinningTop = body < (high - low) * 0.3 AND upperWick > body AND lowerWick > body IF spinningTop THEN drawtext("Trompo", barindex, close + miATR,dialog,standard,14) coloured("Orange") ENDIF // Triple formación alcista threeLineStrikeUp = close[3] < close[2] AND close[2] < close[1] AND close > close[1] AND open < close[3] IF threeLineStrikeUp THEN drawtext("Triple Alcista", barindex, low - miATR,dialog,standard,14) coloured("Green") ENDIF // Triple formación bajista threeLineStrikeDown = close[3] > close[2] AND close[2] > close[1] AND close < close[1] AND open > close[3] IF threeLineStrikeDown THEN drawtext("Triple Bajista", barindex, high + miATR,dialog,standard,14) coloured("Red") 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

  // Indicador de patrones de velas japonesas // Detecta 16 patrones comunes y muestra el nombre sobre la vela correspondiente   //defparam drawonlastbaronly = true   miATR = AverageTrueRange[5](close)   // Funciones auxiliares isBullish = close > open isBearish = close < open body = abs(close - open) upperWick = high - max(open, close) lowerWick = min(open, close) - low fullRange = high - low   // Parámetros dinámicos smallBody = fullRange * 0.3 largeBody = fullRange * 0.7   // Martillo hammer = isBullish AND lowerWick > 2 * body AND upperWick < body IF hammer THEN drawtext("Martillo", barindex, low - miATR,dialog,standard,14) coloured("Red") ENDIF   // Martillo Invertido invHammer = isBullish AND upperWick > 2 * body AND lowerWick < body IF invHammer THEN drawtext("Mart. Inv", barindex, high + miATR,dialog,standard,14) coloured("Red") ENDIF   // Hombre colgado hangman = isBearish AND lowerWick > 2 * body AND upperWick < body IF hangman THEN drawtext("H. Colgado", barindex, low - miATR,dialog,standard,14) coloured("Blue") ENDIF   // Estrella fugaz shootingStar = isBearish AND upperWick > 2 * body AND lowerWick < body IF shootingStar THEN drawtext("Estrella F.", barindex, high + miATR,dialog,standard,14) coloured("Blue") ENDIF   // Envolvente alcista bullEngulfing = close[1] < open[1] AND close > open AND open < close[1] AND close > open[1] IF bullEngulfing THEN drawtext("Eng. Alcista", barindex, low - miATR,dialog,standard,14) coloured("Green") ENDIF   // Envolvente bajista bearEngulfing = close[1] > open[1] AND close < open AND open > close[1] AND close < open[1] IF bearEngulfing THEN drawtext("Eng. Bajista", barindex, high + miATR,dialog,standard,14) coloured("Red") ENDIF   // Penetrante penetrating = close[1] > open[1] AND open < close[1] AND (close > ((open[1] + abs(close[1] - open[1]) / 2))) AND close < open[1]  //Midpont IF penetrating THEN drawtext("Penetrante", barindex, low - miATR,dialog,standard,14) coloured("Green") ENDIF   // Nube oscura darkCloud = close[1] < open[1] AND open > close[1] AND (close > ((open[1] + abs(close[1] - open[1]) / 2))) AND close > open[1]//, open[1])  //Midpont IF darkCloud THEN drawtext("N. Oscura", barindex, high + miATR,dialog,standard,14) coloured("Red") ENDIF   // Estrella de la mañana (requiere 3 velas) morningStar = close[2] < open[2] AND body[1] < body[2] AND (close > ((open[2] + abs(close[2] - open[2]) / 2)))//, close[2])   //Midpont IF morningStar THEN drawtext("E. Mañana", barindex, low - miATR,dialog,standard,14) coloured("Green") ENDIF   // Estrella del atardecer eveningStar = close[2] > open[2] AND body[1] < body[2] AND (close > ((open[2] + abs(close[2] - open[2]) / 2)))//, close[2])   //Midpont IF eveningStar THEN drawtext("E. Atardecer", barindex, high + miATR,dialog,standard,14) coloured("Red") ENDIF   // Tres soldados blancos whiteSoldiers = isBullish AND isBullish[1] AND isBullish[2] AND close > close[1] AND close[1] > close[2] IF whiteSoldiers THEN drawtext("3 Soldados", barindex, low - miATR,dialog,standard,14) coloured("Green") ENDIF   // Tres cuervos negros blackCrows = isBearish AND isBearish[1] AND isBearish[2] AND close < close[1] AND close[1] < close[2] IF blackCrows THEN drawtext("3 Cuervos", barindex, high + miATR,dialog,standard,14) coloured("Red") ENDIF   // Doji doji = abs(close - open) <= (high - low) * 0.1 IF doji THEN drawtext("Doji", barindex, close + miATR,dialog,standard,14) coloured("Orange") ENDIF   // Trompo spinningTop = body < (high - low) * 0.3 AND upperWick > body AND lowerWick > body IF spinningTop THEN drawtext("Trompo", barindex, close + miATR,dialog,standard,14) coloured("Orange") ENDIF   // Triple formación alcista threeLineStrikeUp = close[3] < close[2] AND close[2] < close[1] AND close > close[1] AND open < close[3] IF threeLineStrikeUp THEN drawtext("Triple Alcista", barindex, low - miATR,dialog,standard,14) coloured("Green") ENDIF   // Triple formación bajista threeLineStrikeDown = close[3] > close[2] AND close[2] > close[1] AND close < close[1] AND open > close[3] IF threeLineStrikeDown THEN drawtext("Triple Bajista", barindex, high + miATR,dialog,standard,14) coloured("Red") ENDIF RETURN

  Espero haber interpretado correctamente el significado de MIDPOINT, que no existe en ProRealTime.
  Lo pensé como el punto medio entre OPEN y CLOSE, ¿de acuerdo?

  1 user thanked author for this post.

  Maricarmen

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17615

  Been thanked: 4333 times
  05/26/2025 at 2:08 PM #247616
  mjose

  Buenas Tardes Roberto! Muchas gracias otra vez por su tiempo. Lo acabo de  poner en el indicador y sí que sale. Muchas gracias por su ayuda, ha sido muy amable.

  2 users thanked author for this post.

  Maricarmen, robertogozzi

  

  mjose

  Participant

  Topics: 1

  Replies: 4

  Been thanked: 3 times
• Author
  Posts