Zonas de Soporte y Resistencia

• 10/06/2025 at 9:54 PM #252215
  Maricarmen

  Buenas Tardes:

  Sería posible traducir este indicador, pues me gustaría probarlo para ver que es lo que da de si.

  https://www.tradingview.com/script/6WDeQiyp-Support-and-Resistance-Power-Channel-ChartPrime/

  Muchas gracias,

  

  Maricarmen

  Participant

  Topics: 22

  Replies: 36

  Been thanked: 7 times
  10/07/2025 at 3:00 PM #252264
  Iván

  buenas tardes
  Aquí tienes:

  // ----------------------------------------------- // PRC_Support and Resistance Power Channel [ChartPrime] //version = 0 //07.10.2025 //Iván González @ www.prorealcode.com //Sharing ProRealTime knowledge // ----------------------------------------------- // INPUTS // ----------------------------------------------- DEFPARAM DRAWONLASTBARONLY = true length = 130 extend = 30 // COLOURS tcolR = 255 tcolG = 0 tcolB = 255 bcolR = 0 bcolG = 255 bcolB = 0 alpha = 60 // ----------------------------------------------- // CALCULATION SUPPORT AND RESISTANCE AREA // ----------------------------------------------- // ATR atr = AverageTrueRange[200] * 0.5 // HIGHEST AND LOWEST PRICE maxVal = HIGHEST[length](high) minVal = LOWEST[length](low) midVal = (maxVal + minVal) / 2 // ----------------------------------------------- // DRAW SUPPORT AND RESISTANCE AREA // ----------------------------------------------- if islastbarupdate then maxOffset = barssince(high=maxVal) minOffset = barssince(low=minVal) // RESISTANCE AREA DRAWRECTANGLE(barindex - length, maxVal + atr, barindex + extend, maxVal - atr) fillcolor(tcolR, tcolG, tcolB, alpha)COLOURED(tcolR, tcolG, tcolB,0) DRAWSEGMENT(barindex - length, maxVal + atr, barindex + extend + 30, maxVal + atr) COLOURED(tcolR, tcolG, tcolB) DRAWTEXT("▲ #maxVal#", barindex + extend + 10, maxVal) // SUPPORT AREA DRAWRECTANGLE(barindex - length, minVal + atr, barindex + extend, minVal - atr) fillcolor(bcolR, bcolG, bcolB, alpha)COLOURED(bcolR, bcolG, bcolB, 0) DRAWSEGMENT(barindex - length, minVal - atr, barindex + extend + 30, minVal - atr) COLOURED(bcolR, bcolG, bcolB) DRAWTEXT("▼ #minVal#", barindex + extend + 10, minVal) // MIDDLE LINE DRAWSEGMENT(barindex - length, midVal, barindex + extend, midVal) COLOURED(128, 128, 128) STYLE(DOTTEDLINE, 1) DRAWTEXT("▶ #midVal#", barindex + extend + 10, midVal) COLOURED(128, 128, 128) // BUY AND SELL POWER buyPower = 0 sellPower = 0 FOR i = 0 TO length - 1 DO IF close[i] > open[i] THEN buyPower = buyPower + 1 ELSIF close[i] < open[i] THEN sellPower = sellPower + 1 ENDIF NEXT textPosX = barindex - length - extend DRAWTEXT("Sell Power: #sellpower#", textPosX, maxVal) DRAWTEXT("Buy Power: #buypower#", textPosX, minVal) // DRAW SUPPORT AND RESISTANCE TESTS topOfSupport = minVal + atr bottomOfResistance = maxVal - atr FOR i = 0 TO length - 1 DO IF low[i+1] <= topOfSupport AND low[i] > topOfSupport THEN DRAWARROWUP(barindex - i, minval - atr*1.5) COLOURED(bcolR, bcolG, bcolB) ENDIF IF high[i+1] >= bottomOfResistance AND high[i] < bottomOfResistance THEN DRAWARROWDOWN(barindex - i, maxval + 1.5*atr) COLOURED(tcolR, tcolG, tcolB) ENDIF if high[i]=maxval then drawpoint(barindex[i],maxval,3)coloured(tcolR, tcolG, tcolB) endif if low[i]=minval then drawpoint(barindex[i],minval,3)coloured(bcolR, bcolG, bcolB) endif NEXT 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

  // ----------------------------------------------- // PRC_Support and Resistance Power Channel [ChartPrime] //version = 0 //07.10.2025 //Iván González @ www.prorealcode.com //Sharing ProRealTime knowledge // ----------------------------------------------- // INPUTS // ----------------------------------------------- DEFPARAM DRAWONLASTBARONLY = true length = 130 extend = 30 // COLOURS tcolR = 255 tcolG = 0 tcolB = 255 bcolR = 0 bcolG = 255 bcolB = 0 alpha = 60 // ----------------------------------------------- // CALCULATION SUPPORT AND RESISTANCE AREA // ----------------------------------------------- // ATR atr = AverageTrueRange[200] * 0.5 // HIGHEST AND LOWEST PRICE maxVal = HIGHEST[length](high) minVal = LOWEST[length](low) midVal = (maxVal + minVal) / 2 // ----------------------------------------------- // DRAW SUPPORT AND RESISTANCE AREA // ----------------------------------------------- if islastbarupdate then    maxOffset = barssince(high=maxVal)    minOffset = barssince(low=minVal)    // RESISTANCE AREA    DRAWRECTANGLE(barindex - length, maxVal + atr, barindex + extend, maxVal - atr) fillcolor(tcolR, tcolG, tcolB, alpha)COLOURED(tcolR, tcolG, tcolB,0)    DRAWSEGMENT(barindex - length, maxVal + atr, barindex + extend + 30, maxVal + atr) COLOURED(tcolR, tcolG, tcolB)    DRAWTEXT("▲ #maxVal#", barindex + extend + 10, maxVal)       // SUPPORT AREA    DRAWRECTANGLE(barindex - length, minVal + atr, barindex + extend, minVal - atr) fillcolor(bcolR, bcolG, bcolB, alpha)COLOURED(bcolR, bcolG, bcolB, 0)    DRAWSEGMENT(barindex - length, minVal - atr, barindex + extend + 30, minVal - atr) COLOURED(bcolR, bcolG, bcolB)    DRAWTEXT("▼ #minVal#", barindex + extend + 10, minVal)       // MIDDLE LINE    DRAWSEGMENT(barindex - length, midVal, barindex + extend, midVal) COLOURED(128, 128, 128) STYLE(DOTTEDLINE, 1)    DRAWTEXT("▶ #midVal#", barindex + extend + 10, midVal) COLOURED(128, 128, 128)       // BUY AND SELL POWER    buyPower = 0    sellPower = 0       FOR i = 0 TO length - 1 DO       IF close[i] > open[i] THEN          buyPower = buyPower + 1       ELSIF close[i] < open[i] THEN          sellPower = sellPower + 1       ENDIF    NEXT       textPosX = barindex - length - extend    DRAWTEXT("Sell Power: #sellpower#", textPosX, maxVal)    DRAWTEXT("Buy Power: #buypower#", textPosX, minVal)       // DRAW SUPPORT AND RESISTANCE TESTS    topOfSupport = minVal + atr    bottomOfResistance = maxVal - atr       FOR i = 0 TO length - 1 DO       IF low[i+1] <= topOfSupport AND low[i] > topOfSupport THEN          DRAWARROWUP(barindex - i, minval - atr*1.5) COLOURED(bcolR, bcolG, bcolB)       ENDIF       IF high[i+1] >= bottomOfResistance AND high[i] < bottomOfResistance THEN          DRAWARROWDOWN(barindex - i, maxval + 1.5*atr) COLOURED(tcolR, tcolG, tcolB)       ENDIF       if high[i]=maxval then          drawpoint(barindex[i],maxval,3)coloured(tcolR, tcolG, tcolB)       endif       if low[i]=minval then          drawpoint(barindex[i],minval,3)coloured(bcolR, bcolG, bcolB)       endif    NEXT    endif   return

  1 user thanked author for this post.

  Maricarmen

  

  Iván

  Moderator

  Topics: 0

  Replies: 1912

  Been thanked: 856 times
• Author
  Posts