Este es el indicador, modificado para que tanto el HL como el LH se impriman en el gráfico, en negrita, azul claro y rosa.
Observará que el HL y el LH se imprimen con retraso, ya que el indicador es un indicador de repintado:
// -----------------------------------------------------
// PRC_Ross Hook Pattern (Expo) by Zeiierman
// version = 0
// 18.02.2026
// Iván González @ www.prorealcode.com
// Sharing ProRealTime knowledge
// -----------------------------------------------------
// === PARAMETERS ===
// -----------------------------------------------------
//prd = 20 // Pivot period (high=long-term, low=short-term)
//dst = 20 // Min distance between point 2 and point 3
//
//showBreak = 1 // 1=Show break signal, 0=Hide
//showHook = 1 // 1=Show Ross Hook line, 0=Hide
//showPattern = 0 // 1=Show full pattern (1-2-3 + hooks), 0=Hide
//showPvts = 0 // 1=Show HH/HL/LH/LL labels, 0=Hide
// Break signal colors (RGB)
rBull = 49
gBull = 190
bBull = 12
rBear = 223
gBear = 61
bBear = 61
// -----------------------------------------------------
// === INITIALIZATION ===
// -----------------------------------------------------
once pvt0 = undefined
once pvt1 = undefined
once pvt2 = undefined
once pvt3 = undefined
once pvt4 = undefined
once idx0 = 0
once idx1 = 0
once idx2 = 0
once idx3 = 0
once idx4 = 0
once pos = 0
once hook = 1
// Label offset for positioning above/below price
atrVal = averagetruerange[14]
offset = atrVal * 0.5
// -----------------------------------------------------
// === PIVOT DETECTION ===
// -----------------------------------------------------
HLflag = 0
LHflag = 0
if barindex >= 2 * prd + 1 then
isPvtHi = (high[prd] = highest[2 * prd + 1](high))
isPvtLo = (low[prd] = lowest[2 * prd + 1](low))
// --- Pivot High detected ---
if isPvtHi and pos <= 0 then
// HH/LH label
if showPvts and pvt1 <> undefined then
if high[prd] > pvt1 then
drawtext("HH", barindex - prd, high[prd] + offset) coloured(128, 128, 128)
else
drawtext("LH", barindex - prd, high[prd] + offset) coloured(128, 128, 128)
LHflag = 1
endif
endif
// Shift arrays
pvt4 = pvt3
idx4 = idx3
pvt3 = pvt2
idx3 = idx2
pvt2 = pvt1
idx2 = idx1
pvt1 = pvt0
idx1 = idx0
pvt0 = high[prd]
idx0 = barindex - prd
pos = 1
endif
// --- Pivot Low detected ---
if isPvtLo and pos >= 0 then
// HL/LL label
if showPvts and pvt1 <> undefined then
if low[prd] > pvt1 then
drawtext("HL", barindex - prd, low[prd] - offset) coloured(128, 128, 128)
HLflag = 1
else
drawtext("LL", barindex - prd, low[prd] - offset) coloured(128, 128, 128)
endif
endif
// Shift arrays
pvt4 = pvt3
idx4 = idx3
pvt3 = pvt2
idx3 = idx2
pvt2 = pvt1
idx2 = idx1
pvt1 = pvt0
idx1 = idx0
pvt0 = low[prd]
idx0 = barindex - prd
pos = -1
endif
endif
// -----------------------------------------------------
// === BULLISH ROSS HOOK DETECTION ===
// -----------------------------------------------------
if pvt1 <> undefined and pvt4 <> undefined then
// Crossover: high crosses above pvt1
bullCross = (high > pvt1 and high[1] <= pvt1[1])
if bullCross and hook = 1 then
// pvt0 < pvt1 = correction after high (pullback)
if pvt0 < pvt1 then
// Validate structure: HH-HL sequence
// pvt1>pvt3 (higher high), pvt0>pvt2 (higher low)
// pvt2>pvt4 (higher low), pvt3>pvt2 (high above low)
if pvt1 > pvt3 and pvt0 > pvt2 and pvt2 > pvt4 and pvt3 > pvt2 then
if barindex - idx1 >= prd then
// Search for First Hook between point 4 and point 3
first = barindex - idx4
sec = barindex - idx3
foundHook = 0
hookBar = 0
for i = first downto sec do
if close[i] > pvt2 and (idx2 - barindex + i) >= dst then
foundHook = 1
hookBar = i
break
endif
next
if foundHook = 1 then
// --- Draw First Hook line ---
if showPattern then
drawsegment(barindex - hookBar, pvt2, idx2, pvt2) coloured(128, 128, 128) style(dottedline)
midFH = round((barindex - hookBar + idx2) / 2)
drawtext("First Hook", midFH, pvt2 - offset) coloured(128, 128, 128)
endif
// --- Draw Break signal ---
if showBreak then
drawpoint(barindex, high + offset, 3) coloured(rBull, gBull, bBull)
endif
// --- Draw Ross Hook line ---
if showHook then
drawsegment(idx3, pvt3, barindex, pvt3) coloured(128, 128, 128) style(dottedline)
midRH = round((barindex + idx3) / 2)
drawtext("Ross Hook", midRH, pvt3 - offset) coloured(128, 128, 128)
endif
// --- Draw full pattern ---
if showPattern then
// Second Hook line
drawsegment(idx1, pvt1, barindex, pvt1) coloured(128, 128, 128) style(dottedline)
midSH = round((barindex + idx1) / 2)
drawtext("Second Hook", midSH, pvt1 + offset) coloured(128, 128, 128)
// Pattern points 1-2-3
drawtext("1", idx4, pvt4 - offset) coloured(128, 128, 128)
drawtext("2", idx3, pvt3 + offset) coloured(128, 128, 128)
drawtext("3", idx2, pvt2 - offset) coloured(128, 128, 128)
// Zigzag connecting lines
drawsegment(idx2, pvt2, idx3, pvt3) coloured(128, 128, 128)
drawsegment(idx3, pvt3, idx4, pvt4) coloured(128, 128, 128)
endif
endif
hook = 0
endif
endif
endif
endif
endif
// -----------------------------------------------------
// === BEARISH ROSS HOOK DETECTION ===
// -----------------------------------------------------
if pvt1 <> undefined and pvt4 <> undefined then
// Crossunder: low crosses below pvt1
bearCross = (low < pvt1 and low[1] >= pvt1[1])
if bearCross and hook = 1 then
// pvt0 > pvt1 = correction after low (pullback up)
if pvt0 > pvt1 then
// Validate structure: LL-LH sequence
if pvt1 < pvt3 and pvt0 < pvt2 and pvt2 < pvt4 and pvt3 < pvt2 then
if barindex - idx1 >= prd then
// Search for First Hook between point 4 and point 3
first = barindex - idx4
sec = barindex - idx3
foundHook = 0
hookBar = 0
for i = first downto sec do
if close[i] < pvt2 and (idx2 - barindex + i) >= dst then
foundHook = 1
hookBar = i
break
endif
next
if foundHook = 1 then
// --- Draw First Hook line ---
if showPattern then
drawsegment(barindex - hookBar, pvt2, idx2, pvt2) coloured(128, 128, 128) style(dottedline)
midFH = round((barindex - hookBar + idx2) / 2)
drawtext("First Hook", midFH, pvt2 + offset) coloured(128, 128, 128)
endif
// --- Draw Break signal ---
if showBreak then
drawpoint(barindex, low - offset, 3) coloured(rBear, gBear, bBear)
endif
// --- Draw Ross Hook line ---
if showHook then
drawsegment(idx3, pvt3, barindex, pvt3) coloured(128, 128, 128) style(dottedline)
midRH = round((barindex + idx3) / 2)
drawtext("Ross Hook", midRH, pvt3 + offset) coloured(128, 128, 128)
endif
// --- Draw full pattern ---
if showPattern then
// Second Hook line
drawsegment(idx1, pvt1, barindex, pvt1) coloured(128, 128, 128) style(dottedline)
midSH = round((barindex + idx1) / 2)
drawtext("Second Hook", midSH, pvt1 - offset) coloured(128, 128, 128)
// Pattern points 1-2-3
drawtext("1", idx4, pvt4 + offset) coloured(128, 128, 128)
drawtext("2", idx3, pvt3 - offset) coloured(128, 128, 128)
drawtext("3", idx2, pvt2 + offset) coloured(128, 128, 128)
// Zigzag connecting lines
drawsegment(idx2, pvt2, idx3, pvt3) coloured(128, 128, 128)
drawsegment(idx3, pvt3, idx4, pvt4) coloured(128, 128, 128)
endif
endif
hook = 0
endif
endif
endif
endif
endif
// -----------------------------------------------------
// === HOOK RESET ===
// -----------------------------------------------------
// allow new detection when pivot structure changes
if pvt1 <> pvt1[1] then
hook = 1
endif
// -----------------------------------------------------
IF HLflag[1] THEN
DrawText("HL",BarIndex[1],high[1]+range[1],sansserif,bold,14) coloured("Cyan")
ELSiF LHflag[1] THEN
DrawText("LH",BarIndex[1],low[1]-range[1],sansserif,bold,14) coloured("Fuchsia")
ENDIF
return
Este es el screener para el indicador modificado, devolverá 1 cuando se imprima HL y 2 cuando se imprima LH:
// -----------------------------------------------------
// PRC_Ross Hook Pattern (Expo) by Zeiierman
// version = 0
// 18.02.2026
// Iván González @ www.prorealcode.com
// Sharing ProRealTime knowledge
// -----------------------------------------------------
// === PARAMETERS ===
// -----------------------------------------------------
prd = 20 // Pivot period (high=long-term, low=short-term)
dst = 20 // Min distance between point 2 and point 3
showBreak = 1 // 1=Show break signal, 0=Hide
showHook = 1 // 1=Show Ross Hook line, 0=Hide
showPattern = 0 // 1=Show full pattern (1-2-3 + hooks), 0=Hide
showPvts = 0 // 1=Show HH/HL/LH/LL labels, 0=Hide
// Break signal colors (RGB)
//rBull = 49
//gBull = 190
//bBull = 12
//rBear = 223
//gBear = 61
//bBear = 61
// -----------------------------------------------------
// === INITIALIZATION ===
// -----------------------------------------------------
once pvt0 = undefined
once pvt1 = undefined
once pvt2 = undefined
once pvt3 = undefined
once pvt4 = undefined
once idx0 = 0
once idx1 = 0
once idx2 = 0
once idx3 = 0
once idx4 = 0
once pos = 0
once hook = 1
// Label offset for positioning above/below price
//atrVal = averagetruerange[14]
//offset = atrVal * 0.5
// -----------------------------------------------------
// === PIVOT DETECTION ===
// -----------------------------------------------------
HLflag = 0
LHflag = 0
if barindex >= 2 * prd + 1 then
isPvtHi = (high[prd] = highest[2 * prd + 1](high))
isPvtLo = (low[prd] = lowest[2 * prd + 1](low))
// --- Pivot High detected ---
if isPvtHi and pos <= 0 then
// HH/LH label
if showPvts and pvt1 <> undefined then
if high[prd] > pvt1 then
//drawtext("HH", barindex - prd, high[prd] + offset) coloured(128, 128, 128)
else
//drawtext("LH", barindex - prd, high[prd] + offset) coloured(128, 128, 128)
LHflag = 1
endif
endif
// Shift arrays
pvt4 = pvt3
idx4 = idx3
pvt3 = pvt2
idx3 = idx2
pvt2 = pvt1
idx2 = idx1
pvt1 = pvt0
idx1 = idx0
pvt0 = high[prd]
idx0 = barindex - prd
pos = 1
endif
// --- Pivot Low detected ---
if isPvtLo and pos >= 0 then
// HL/LL label
if showPvts and pvt1 <> undefined then
if low[prd] > pvt1 then
//drawtext("HL", barindex - prd, low[prd] - offset) coloured(128, 128, 128)
HLflag = 1
else
//drawtext("LL", barindex - prd, low[prd] - offset) coloured(128, 128, 128)
endif
endif
// Shift arrays
pvt4 = pvt3
idx4 = idx3
pvt3 = pvt2
idx3 = idx2
pvt2 = pvt1
idx2 = idx1
pvt1 = pvt0
idx1 = idx0
pvt0 = low[prd]
idx0 = barindex - prd
pos = -1
endif
endif
// -----------------------------------------------------
// === BULLISH ROSS HOOK DETECTION ===
// -----------------------------------------------------
if pvt1 <> undefined and pvt4 <> undefined then
// Crossover: high crosses above pvt1
bullCross = (high > pvt1 and high[1] <= pvt1[1])
if bullCross and hook = 1 then
// pvt0 < pvt1 = correction after high (pullback)
if pvt0 < pvt1 then
// Validate structure: HH-HL sequence
// pvt1>pvt3 (higher high), pvt0>pvt2 (higher low)
// pvt2>pvt4 (higher low), pvt3>pvt2 (high above low)
if pvt1 > pvt3 and pvt0 > pvt2 and pvt2 > pvt4 and pvt3 > pvt2 then
if barindex - idx1 >= prd then
// Search for First Hook between point 4 and point 3
first = barindex - idx4
sec = barindex - idx3
foundHook = 0
//hookBar = 0
for i = first downto sec do
if close[i] > pvt2 and (idx2 - barindex + i) >= dst then
foundHook = 1
//hookBar = i
break
endif
next
if foundHook = 1 then
// --- Draw First Hook line ---
if showPattern then
//drawsegment(barindex - hookBar, pvt2, idx2, pvt2) coloured(128, 128, 128) style(dottedline)
//midFH = round((barindex - hookBar + idx2) / 2)
//drawtext("First Hook", midFH, pvt2 - offset) coloured(128, 128, 128)
endif
// --- Draw Break signal ---
if showBreak then
//drawpoint(barindex, high + offset, 3) coloured(rBull, gBull, bBull)
endif
// --- Draw Ross Hook line ---
if showHook then
//drawsegment(idx3, pvt3, barindex, pvt3) coloured(128, 128, 128) style(dottedline)
//midRH = round((barindex + idx3) / 2)
//drawtext("Ross Hook", midRH, pvt3 - offset) coloured(128, 128, 128)
endif
// --- Draw full pattern ---
if showPattern then
// Second Hook line
//drawsegment(idx1, pvt1, barindex, pvt1) coloured(128, 128, 128) style(dottedline)
//midSH = round((barindex + idx1) / 2)
//drawtext("Second Hook", midSH, pvt1 + offset) coloured(128, 128, 128)
// Pattern points 1-2-3
//drawtext("1", idx4, pvt4 - offset) coloured(128, 128, 128)
//drawtext("2", idx3, pvt3 + offset) coloured(128, 128, 128)
//drawtext("3", idx2, pvt2 - offset) coloured(128, 128, 128)
// Zigzag connecting lines
//drawsegment(idx2, pvt2, idx3, pvt3) coloured(128, 128, 128)
//drawsegment(idx3, pvt3, idx4, pvt4) coloured(128, 128, 128)
endif
endif
hook = 0
endif
endif
endif
endif
endif
// -----------------------------------------------------
// === BEARISH ROSS HOOK DETECTION ===
// -----------------------------------------------------
if pvt1 <> undefined and pvt4 <> undefined then
// Crossunder: low crosses below pvt1
bearCross = (low < pvt1 and low[1] >= pvt1[1])
if bearCross and hook = 1 then
// pvt0 > pvt1 = correction after low (pullback up)
if pvt0 > pvt1 then
// Validate structure: LL-LH sequence
if pvt1 < pvt3 and pvt0 < pvt2 and pvt2 < pvt4 and pvt3 < pvt2 then
if barindex - idx1 >= prd then
// Search for First Hook between point 4 and point 3
first = barindex - idx4
sec = barindex - idx3
foundHook = 0
//hookBar = 0
for i = first downto sec do
if close[i] < pvt2 and (idx2 - barindex + i) >= dst then
foundHook = 1
//hookBar = i
break
endif
next
if foundHook = 1 then
// --- Draw First Hook line ---
if showPattern then
//drawsegment(barindex - hookBar, pvt2, idx2, pvt2) coloured(128, 128, 128) style(dottedline)
//midFH = round((barindex - hookBar + idx2) / 2)
//drawtext("First Hook", midFH, pvt2 + offset) coloured(128, 128, 128)
endif
// --- Draw Break signal ---
if showBreak then
//drawpoint(barindex, low - offset, 3) coloured(rBear, gBear, bBear)
endif
// --- Draw Ross Hook line ---
if showHook then
//drawsegment(idx3, pvt3, barindex, pvt3) coloured(128, 128, 128) style(dottedline)
//midRH = round((barindex + idx3) / 2)
//drawtext("Ross Hook", midRH, pvt3 + offset) coloured(128, 128, 128)
endif
// --- Draw full pattern ---
if showPattern then
// Second Hook line
//drawsegment(idx1, pvt1, barindex, pvt1) coloured(128, 128, 128) style(dottedline)
//midSH = round((barindex + idx1) / 2)
//drawtext("Second Hook", midSH, pvt1 - offset) coloured(128, 128, 128)
// Pattern points 1-2-3
//drawtext("1", idx4, pvt4 + offset) coloured(128, 128, 128)
//drawtext("2", idx3, pvt3 - offset) coloured(128, 128, 128)
//drawtext("3", idx2, pvt2 + offset) coloured(128, 128, 128)
// Zigzag connecting lines
//drawsegment(idx2, pvt2, idx3, pvt3) coloured(128, 128, 128)
//drawsegment(idx3, pvt3, idx4, pvt4) coloured(128, 128, 128)
endif
endif
hook = 0
endif
endif
endif
endif
endif
// -----------------------------------------------------
// === HOOK RESET ===
// -----------------------------------------------------
// allow new detection when pivot structure changes
if pvt1 <> pvt1[1] then
hook = 1
endif
// -----------------------------------------------------
Cond = 0
IF HLflag[1] THEN
//DrawText("HL",BarIndex[1],high[1]+range[1],sansserif,bold,14) coloured("Cyan")
Cond = 1
ELSiF LHflag[1] THEN
//DrawText("LH",BarIndex[1],low[1]-range[1],sansserif,bold,14) coloured("Fuchsia")
Cond = 2
ENDIF
SCREENER[Cond](Cond AS "1=HL,2=LH")
Sin embargo, en mis pruebas no pude obtener ningún resultado, probablemente también debido a que solo tenía 256 velas disponibles con los screeners.
