Hola Iván, me dirijo a ti puesto que fuiste quién subió el último indicador y eres un “máquina”; me gustaría un ProScreener de este indicador pero con un “arreglillo” que creo lo haría ideal para mi manera de verlo y es que en vez de señalar un punto y luego una flecha en el techo o suelo más bajo, estas señales se produjeran en una segunda cumbre o suelo a continuación de dichas cumbres o suelos, no sé si me explico, sería como avisando de una supuesta onda impulsiva o correctiva tras dichos techo o suelo que antes hubiese dibujado, que confirmarían la tendencia, (ya que a menudo dichos techos o suelos aunque avisen con puntos y flechas son violados a continuación); sería algo creo muy importante y que por fin aliviaría mis ansias por encontrar “el santo grial de los indicadores”; dejo abajo el código y a ver si hay suerte y puedes hacer que creo que sí, porque como dije al principio eres un “máquina” en el tema, te agradezco todo el trabajo que haces que seguro ayuda a mucha gente, saludos:
// ———————————————–
// PRC_Support and Resistance Power Channel [ChartPrime]
//version = 0
//07.10.2025
//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 + round(extend*0.5)
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
.
