Wick Pressure Zones

This topic has 4 replies, 3 voices, and was last updated 1 month ago by Iván.

Viewing 5 posts - 1 through 5 (of 5 total)

09/19/2025 at 10:04 PM #251172

NicoGB67

Hola Iván , me gustaría obtener el proscreener del último indicador que has subido “Wick Pressure Zones”, en concreto quisiera que me avisara cuando el indicador avisa de la formación de dicha vela, ya que según el contexto de cuando se forme (soporte o resistencia) podría ser muy interesante, un saludo.

NicoGB67

Participant

Topics: 8

Replies: 12

Been thanked: 1 time

09/19/2025 at 10:12 PM #251174

NicoGB67

*cuando digo lo de “avisa”, me refiero a cuando se dibuja un recuadro en la vela que da la señal.

NicoGB67

Participant

Topics: 8

Replies: 12

Been thanked: 1 time

09/20/2025 at 5:00 PM #251187

robertogozzi

No duplique los mensajes. Haga su pregunta una vez y en un foro. Cualquier mensaje duplicado se eliminará de todos modos, por lo que publicar la misma pregunta varias veces le hará perder su tiempo y no recibirá respuestas más rápidas. La doble publicación solo crea confusión en los foros.

Gracias 🙂

robertogozzi

Moderator

Topics: 69

Replies: 17934

Been thanked: 4537 times

09/20/2025 at 5:33 PM #251191

NicoGB67

Ok Roberto, ya escribí para explicar mi error, cuando me di cuenta de que había entrado en el foro equivocado, ya me hubiese gustado poder eliminar el mensaje pero no sé si se puede hacer, saludos.

1 user thanked author for this post.

robertogozzi

NicoGB67

Participant

Topics: 8

Replies: 12

Been thanked: 1 time

09/22/2025 at 4:07 PM #251268

Iván

aquí está

//---------------------------------------------------
//PRC_Wick Pressure Zones by BigBeluga
//version = 0
//09.09.2025
//Iván González @ www.prorealcode.com
//Sharing ProRealTime knowledge
//---------------------------------------------------

//---------------------------------------------------
// inputs
//---------------------------------------------------
lookback = 200
threshold = 80
extendBars = 20
maxLevels  = 10
rsiLen = 14

//---------------------------------------------------
// Variables auxiliares
//---------------------------------------------------
bodyTop = MAX(open, close)
bodyBot = MIN(open, close)
// Mechas relativas (evitar división por 0)
denUp = MAX(bodyTop, 0.0000001)
denLo = MAX(low,     0.0000001)
upperWick = (high - bodyTop) / denUp
lowerWick = (bodyBot - low)  / denLo

maxUpper = HIGHEST[lookback](upperWick)
maxLower = HIGHEST[lookback](lowerWick)

sizeUpWick = 0
sizeLoWick = 0
IF maxUpper > 0 THEN
   sizeUpWick = FLOOR( (upperWick / maxUpper) * 100 )
ENDIF
IF maxLower > 0 THEN
   sizeLoWick = FLOOR( (lowerWick / maxLower) * 100 )
ENDIF
//---------------------------------------------------
myrsi = RSI[rsiLen](close)

//---------------------------------------------------
// Separación mínima entre zonas
ONCE startidx = -100000
//---------------------------------------------------
// Boxes
//---------------------------------------------------
ONCE n = 0

newUpper = sizeUpWick >= threshold AND NOT (sizeLoWick >= threshold) AND myrsi > 50 AND (BarIndex - startidx > extendBars)
newLower = sizeLoWick >= threshold AND NOT (sizeUpWick >= threshold) AND myrsi < 50 AND (BarIndex - startidx > extendBars)

// Crear zona superior
IF newUpper THEN
   startidx = BarIndex
   n = n + 1
   $side[n] = 1
   $left[n] = BarIndex - 1
   $top[n]  = high
   $bot[n]  = bodyTop
   $right[n] = barindex + 1
   $broken[n] = 0
   $volume[n] = volume
   // Límite de zonas: mantener sólo las más recientes
   IF n > maxLevels THEN
      // Shift a la izquierda
      FOR k = 1 TO n - 1 DO
         $side[k] = $side[k+1]
         $left[k] = $left[k+1]
         $top[k]  = $top[k+1]
         $bot[k]  = $bot[k+1]
         $right[k] = $right[k+1]
         $broken[k] = $broken[k+1]
         $volume[k] = $volume[k+1]
      NEXT
      n = maxLevels
   ENDIF
ENDIF

// Crear zona inferior
IF newLower THEN
   startidx = BarIndex
   n = n + 1
   $side[n] = -1
   $left[n] = BarIndex - 1
   $top[n]  = bodyBot
   $bot[n]  = low
   $right[n] = barindex + 1
   $broken[n] = 0
   $volume[n] = volume
   
   IF n > maxLevels THEN
      FOR k = 1 TO n - 1 DO
         $side[k] = $side[k+1]
         $left[k] = $left[k+1]
         $top[k]  = $top[k+1]
         $bot[k]  = $bot[k+1]
         $right[k] = $right[k+1]
         $broken[k] = $broken[k+1]
         $volume[k] = $volume[k+1]
      NEXT
      n = maxLevels
   ENDIF
ENDIF

//---------------------------------------------------
// DIBUJO y GESTIÓN
//---------------------------------------------------
IF islastbarupdate THEN
   
   FOR i = 1 TO n DO
      for j=barindex-$right[i] downto 0 do
         IF $side[i] = 1 AND low[j] > $top[i] THEN
            $broken[i] = 1
            $right[i] = barindex[j]
            break
         ELSIF $side[i] = -1 AND high[j] < $bot[i] THEN
            $broken[i] = 1
            $right[i] = barindex[j]
            break
         ENDIF
      next
      
      if $broken[i]=0 AND $side[i]=1 and close>$bot[i] and close< $top[i] THEN
         
         setup = 1
         
      ELSIF $broken[i]=0 AND $side[i]=-1 and close>$bot[i] and close< $top[i] THEN
         setup = -1
         
      ENDIF
      
   NEXT
ENDIF

screener[setup<>0](setup)

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

//---------------------------------------------------

//PRC_Wick Pressure Zones by BigBeluga

//version = 0

//09.09.2025

//Iván González @ www.prorealcode.com

//Sharing ProRealTime knowledge

//---------------------------------------------------

// inputs

//---------------------------------------------------

lookback = 200

threshold = 80

extendBars = 20

maxLevels = 10

rsiLen = 14

//---------------------------------------------------

// Variables auxiliares

//---------------------------------------------------

bodyTop = MAX(open, close)

bodyBot = MIN(open, close)

// Mechas relativas (evitar división por 0)

denUp = MAX(bodyTop, 0.0000001)

denLo = MAX(low, 0.0000001)

upperWick = (high - bodyTop) / denUp

lowerWick = (bodyBot - low) / denLo

maxUpper = HIGHEST[lookback](upperWick)

maxLower = HIGHEST[lookback](lowerWick)

sizeUpWick = 0

sizeLoWick = 0

IF maxUpper > 0 THEN

sizeUpWick = FLOOR( (upperWick / maxUpper) * 100 )

ENDIF

IF maxLower > 0 THEN

sizeLoWick = FLOOR( (lowerWick / maxLower) * 100 )

ENDIF

//---------------------------------------------------

myrsi = RSI[rsiLen](close)

//---------------------------------------------------

// Separación mínima entre zonas

ONCE startidx = -100000

//---------------------------------------------------

// Boxes

//---------------------------------------------------

ONCE n = 0

newUpper = sizeUpWick >= threshold AND NOT (sizeLoWick >= threshold) AND myrsi > 50 AND (BarIndex - startidx > extendBars)

newLower = sizeLoWick >= threshold AND NOT (sizeUpWick >= threshold) AND myrsi < 50 AND (BarIndex - startidx > extendBars)

// Crear zona superior

IF newUpper THEN

startidx = BarIndex

n = n + 1

$side[n] = 1

$left[n] = BarIndex - 1

$top[n] = high

$bot[n] = bodyTop

$right[n] = barindex + 1

$broken[n] = 0

$volume[n] = volume

// Límite de zonas: mantener sólo las más recientes

IF n > maxLevels THEN

// Shift a la izquierda

FOR k = 1 TO n - 1 DO

$side[k] = $side[k+1]

$left[k] = $left[k+1]

$top[k] = $top[k+1]

$bot[k] = $bot[k+1]

$right[k] = $right[k+1]

$broken[k] = $broken[k+1]

$volume[k] = $volume[k+1]

n = maxLevels

ENDIF

// Crear zona inferior

IF newLower THEN

startidx = BarIndex

n = n + 1

$side[n] = -1

$left[n] = BarIndex - 1

$top[n] = bodyBot

$bot[n] = low

$right[n] = barindex + 1

$broken[n] = 0

$volume[n] = volume

IF n > maxLevels THEN

FOR k = 1 TO n - 1 DO

$side[k] = $side[k+1]

$left[k] = $left[k+1]

$top[k] = $top[k+1]

$bot[k] = $bot[k+1]

$right[k] = $right[k+1]

$broken[k] = $broken[k+1]

$volume[k] = $volume[k+1]

n = maxLevels

ENDIF

//---------------------------------------------------

// DIBUJO y GESTIÓN

//---------------------------------------------------

IF islastbarupdate THEN

FOR i = 1 TO n DO

for j=barindex-$right[i] downto 0 do

IF $side[i] = 1 AND low[j] > $top[i] THEN

$broken[i] = 1

$right[i] = barindex[j]

break

ELSIF $side[i] = -1 AND high[j] < $bot[i] THEN

$broken[i] = 1

$right[i] = barindex[j]

break

ENDIF

if $broken[i]=0 AND $side[i]=1 and close>$bot[i] and close< $top[i] THEN

setup = 1

ELSIF $broken[i]=0 AND $side[i]=-1 and close>$bot[i] and close< $top[i] THEN

setup = -1

ENDIF

screener[setup<>0](setup)

2 users thanked author for this post.

Maricarmen,

NicoGB67

Iván

Moderator

Topics: 0

Replies: 1858

Been thanked: 816 times

Author

Posts

Viewing 5 posts - 1 through 5 (of 5 total)

Find exclusive trading pro-tools on

Create your free account now and post your request to benefit from the help of the community