// This work is licensed under a Attribution-NonCommercial-ShareAlike 4.
0
International (CC BY-NC-SA 4.0) https://creativecommons.org/licenses/by-nc-sa/4.0/
// © LuxAlgo
//@version=5
indicator("N Bar Reversal Detector [LuxAlgo]", 'LuxAlgo - N Bar Reversal Detector',
true, max_labels_count = 500, max_lines_count = 500, max_boxes_count = 500)
//---------------------------------------------------------------------------------
------------------------------------
// Settings
//---------------------------------------------------------------------------------
------------------------------------{
display = display.all - display.status_line
brpGroup = 'Pattern Detection'
brpTypeTT = 'Selects the type of reversal pattern to detect:\n\n' +
' *Normal: Detects standard reversal patterns based on the high and
low prices of the sequence.\n\n' +
' *Enhanced: Detects advanced reversal patterns where the most recent
closing price must exceed or fall below the high or low of the first candle.\n\n' +
' *All: Includes both normal and enhanced patterns.'
brpType = input.string("All", "Pattern Type", options = ["Normal", "Enhanced",
"All"], group = brpGroup, display = display, tooltip = brpTypeTT)
numBarsTT = 'Specifies the number of candles in the sequence used to identify a
reversal pattern. The length N includes the initial N-1 candles plus the most
recent candle (Nth) for pattern detection.'
numBars = input.int(7, 'Reversal Pattern Sequence Length', minval = 2, group =
brpGroup, display = display, tooltip = numBarsTT)
minBrasTT = 'Sets the minimum percentage of the first N-1 candles that must be
bullish (for a bearish reversal) or bearish (for a bullish reversal) to qualify as
a valid reversal pattern. This setting helps adjust the sensitivity of the pattern
detection.'
minBars = input.int(50, 'Min Percentage of Required Candles', minval = 0, maxval =
100, group = brpGroup, display = display, tooltip = minBrasTT) / 100
brpSRTT = 'Shows horizontal support and resistance lines based on the highest high
or lowest low of the pattern'
brpSR = input.string("Level", "Derived Support and Resistance", options =
["Level", "None"], group = brpGroup, display = display, tooltip = brpSRTT)
brpAC = input.color(#089981, 'Bullish Reversal Patterns', group = brpGroup)
brpSC = input.color(#f23645, 'Bearish Reversal Patterns', group = brpGroup)
trendIndiGroup = 'Trend Filtering'
trendTT = 'Selects the trend filtering method for detecting reversal patterns and
specifies the alignment with the trend.'
trendType = input.string("None", "Filtering", options = ["Moving Average Cloud",
"Supertrend", "Donchian Channels", "None"], group = trendIndiGroup, inline = 'flt',
display = display, tooltip = trendTT)
trendFilt = input.string("Aligned", "", options = ["Aligned", "Opposite"], group =
trendIndiGroup, inline = 'flt', display = display)
trendAC = input.color(#089981, 'Bullish Trend', inline = 'trnd')
trendSC = input.color(#f23645, ' Bearish Trend', inline = 'trnd')
ma_Group = 'Moving Average Settings'
maType = input.string("HMA", "Type", options = ["SMA", "EMA", "HMA", "RMA",
"WMA", "VWMA"], group = ma_Group, display = display)
maFLength = input.int(50, 'Fast Length', minval = 1, maxval = 100, group =
ma_Group, display = display)
maSLength = input.int(200, 'Slow Length', minval = 100, group = ma_Group, display
= display)
st_Group = 'Supertrend Settings'
atrPeriod = input.int(10, 'ATR Length', minval=1, group = st_Group, display =
display)
factor = input.float(3, 'Factor', minval = 2, step = 0.1, group = st_Group, display
= display)
dc_Group = 'Donchian Channel Settings'
length = input.int(13, 'Length', minval = 1, group = dc_Group, display = display)
//---------------------------------------------------------------------------------
------------------------------------}
// Functions / Methods
//---------------------------------------------------------------------------------
------------------------------------{
movingAverage(source, length, maType) =>
switch maType
"SMA" => ta.sma (source, length)
"EMA" => ta.ema (source, length)
"HMA" => ta.hma (source, length)
"RMA" => ta.rma (source, length)
"WMA" => ta.wma (source, length)
"VWMA" => ta.vwma(source, length)
donchian(len) => math.avg(ta.lowest(len), ta.highest(len))
isBullishReversal() =>
var bool bullReversal = na
float bullLow = low[numBars]
int bearCount = 0
for i = 1 to numBars - 1
if high[i] > high[numBars]
bullReversal := false
break
else
bullReversal := true
bullLow := math.min(bullLow, low[i])
if open[i] > close[i]
bearCount += 1
if bearCount / (numBars-1) >= minBars
bullReversal := true
else
bullReversal := false
[math.min(bullLow, low), bullReversal and high > high[numBars]]
isBearishReversal() =>
var bool bearReversal = na
float bearHigh = high[numBars]
int bullCount = 0
for i = 1 to numBars - 1
if low[i] < low[numBars]
bearReversal := false
break
else
bearReversal := true
bearHigh := math.max(bearHigh, high[i])
if open[i] < close[i]
bullCount += 1
if bullCount / (numBars-1) >= minBars
bearReversal := true
else
bearReversal := false
[math.max(bearHigh, high), bearReversal and low < low[numBars]]
//---------------------------------------------------------------------------------
------------------------------------}
// Calculations - Trend Indicators - Moving Average Cloud
//---------------------------------------------------------------------------------
------------------------------------{
maFast = movingAverage(close, maFLength, maType)
maSlow = movingAverage(close, maSLength, maType)
maColor = maFast > maSlow ? trendAC : trendSC
ma1 = plot(trendType == 'Moving Average Cloud' ? maFast : na, "ma fast",
color.new(maColor, 81), 1, plot.style_linebr, display = display, editable = false)
ma2 = plot(trendType == 'Moving Average Cloud' ? maSlow : na, "ma slow",
color.new(maColor, 73), 1, plot.style_linebr, display = display, editable = false)
fill(ma1, ma2, math.max(maFast, maSlow), math.min(maFast, maSlow),
color.new(maColor, maFast > maSlow ? 99 : 81), color.new(maColor, maFast > maSlow ?
81 : 99))
//---------------------------------------------------------------------------------
------------------------------------}
// Calculations - Trend Indicators - Supertrend
//---------------------------------------------------------------------------------
------------------------------------{
[supertrend, direction] = ta.supertrend(factor, atrPeriod)
supertrend := barstate.isfirst ? na : supertrend
upTrend = plot(direction < 0 ? trendType == 'Supertrend' ? supertrend : na :
na, "Up Trend", color.new(trendAC, 73), style = plot.style_linebr, display =
display, editable = false)
downTrend = plot(direction < 0 ? na : trendType == 'Supertrend' ? supertrend :
na, "Down Trend", color.new(trendSC, 73), style = plot.style_linebr, display =
display, editable = false)
bodyMiddle = plot(barstate.isfirst ? na : trendType == 'Supertrend' ? (open +
close) / 2 : na, "Body Middle", display = display.none, editable = false)
fill(bodyMiddle, upTrend , supertrend, (open + close) / 2, color.new(trendAC, 81),
color.new(chart.bg_color, 100), fillgaps = false)
fill(bodyMiddle, downTrend, (open + close) / 2, supertrend,
color.new(chart.bg_color, 100), color.new(trendSC, 81), fillgaps = false)
//---------------------------------------------------------------------------------
------------------------------------}
// Calculations - Trend Indicators - Donchian Channels
//---------------------------------------------------------------------------------
------------------------------------{
var os = 0
upper = ta.highest(close, length)
lower = ta.lowest(close, length)
os := upper > upper[1] ? 1 : lower < lower[1] ? 0 : os
dcUpper = plot(trendType == 'Donchian Channels' ? upper : na, color = os == 1 ?
color.new(trendAC, 99) : color.new(trendSC, 73), display = display, editable =
false)
dcLower = plot(trendType == 'Donchian Channels' ? lower : na, color = os == 1 ?
color.new(trendAC, 73) : color.new(trendSC, 99), display = display, editable =
false)
fill(dcUpper, dcLower, upper, lower, os == 1 ? color.new(chart.bg_color, 100) :
color.new(trendSC, 81) , os == 0 ? color.new(chart.bg_color, 100) :
color.new(trendAC, 81))
//---------------------------------------------------------------------------------
------------------------------------}
// Calculations - 3-Bar Reversal Pattern
//---------------------------------------------------------------------------------
------------------------------------{
C_DownTrend = true
C_UpTrend = true
if trendType == 'Moving Average Cloud'
if trendFilt == 'Aligned'
C_DownTrend := close < maFast and maFast < maSlow
C_UpTrend := close > maFast and maFast > maSlow
else if trendFilt == 'Opposite'
C_DownTrend := close > maFast and maFast > maSlow
C_UpTrend := close < maFast and maFast < maSlow
else
C_DownTrend := true
C_UpTrend := true
if trendType == 'Supertrend'
if trendFilt == 'Aligned'
C_DownTrend := direction > 0
C_UpTrend := direction < 0
else if trendFilt == 'Opposite'
C_DownTrend := direction < 0
C_UpTrend := direction > 0
else
C_DownTrend := true
C_UpTrend := true
if trendType == 'Donchian Channels'
if trendFilt == 'Aligned'
C_DownTrend := os == 0
C_UpTrend := os == 1
else if trendFilt == 'Opposite'
C_DownTrend := os == 1
C_UpTrend := os == 0
else
C_DownTrend := true
C_UpTrend := true
[bullLow, isBullish] = isBullishReversal()
bullishReversal = isBullish and C_UpTrend
[bearHigh, isBearish] = isBearishReversal()
bearishReversal = isBearish and C_DownTrend
var line lnAT = na
var line lnAB = na
var line lnAT2 = na
var line lnAB2 = na
var label lbAT = na
var box bxA = na
var bool bullProcess = false
var bool bullProcess2 = false
var float bullHigh = na
if bullishReversal and not bullishReversal[1] and (brpType == 'All' ? true :
brpType == 'Enhanced' ? close > high[numBars] ? true : false : brpType ==
'Normal' ? close < high[numBars] ? true : false : false)
bullProcess := true
lbAT := label.new(bar_index, low, '▲', color = color(na), textcolor =
color.new(brpAC, 07), style = label.style_label_up, size = size.small, tooltip =
'new bullish pattern detected' + (close > high[2] ? ' (enchanced)' : ' (normal)'))
lnAT2 := line.new(bar_index[numBars], high[numBars], bar_index, high[numBars],
color = color.new(brpAC, 53))
lnAB2 := line.new(bar_index[numBars], bullLow, bar_index, bullLow, color =
color.new(brpAC, 53))
linefill.new(lnAT2, lnAB2, color.new(brpAC, 73))
lnAT := line.new(bar_index[numBars], high[numBars], bar_index, high[numBars],
color = color.new(brpAC, 53))
lnAB := line.new(bar_index[numBars], bullLow, bar_index, bullLow, color =
color.new(brpAC, 53))
bullHigh := brpSR == 'Zone' ? math.max(low[1], low) : bullLow
if bullProcess
if close[1] > lnAT.get_price(bar_index)
if bullProcess[1] and bullProcess[1] != bullProcess[2]
lbAT.set_tooltip('enchanced pattern (confirmed at detection)\nprice
activity above the pattern high')
else
lbAT.set_tooltip('pattern confirmed ' + str.tostring(bar_index[1] -
lbAT.get_x()) + ' bar(s) later')
label.new(bar_index[1], low[1], '⦁', color = color(na), textcolor =
color.new(brpAC, 07), style = label.style_label_up, size = size.small, tooltip =
'confirmation bar\nprice activity above the pattern high')
bullProcess := false
bxA := box.new(bar_index, bullHigh, bar_index, lnAB.get_price(bar_index),
color.new(brpAC, brpSR == 'Zone' ? 73 : 53), bgcolor = color.new(brpAC, 73))
bullProcess2 := true
if close[1] < lnAB.get_price(bar_index) or bearishReversal
lbAT.set_tooltip('pattern failed\nthe low of the pattern breached')
bullProcess := false
if not bullProcess
lnAT.set_x2(bar_index[1])
lnAB.set_x2(bar_index[1])
else
lnAT.set_x2(bar_index)
lnAB.set_x2(bar_index)
if bullProcess2 and brpSR != 'None'
if close > bxA.get_bottom()
bxA.set_right(bar_index)
else
bxA.set_right(bar_index)
bullProcess2 := false
var line lnST = na
var line lnSB = na
var line lnST2 = na
var line lnSB2 = na
var label lbST = na
var box bxS = na
var bool bearProcess = false
var bool bearProcess2 = false
var float bearLow = na
if bearishReversal and not bearishReversal[1] and (brpType == 'All' ? true :
brpType == 'Enhanced' ? close < low[numBars] ? true : false : brpType == 'Normal' ?
close > low[numBars] ? true : false : false)
bearProcess := true
lbST := label.new(bar_index, high, '▼', color = color(na), textcolor =
color.new(brpSC, 07), style = label.style_label_down, size = size.small, tooltip =
'new bearish pattern detected' + (close < low[2] ? ' (enchanced)' : ' (normal)'))
lnSB2 := line.new(bar_index[numBars], low[numBars], bar_index, low[numBars],
color = color.new(brpSC, 53))
lnST2 := line.new(bar_index[numBars], bearHigh, bar_index, bearHigh, color =
color.new(brpSC, 53))
linefill.new(lnST2, lnSB2, color.new(brpSC, 89))
lnSB := line.new(bar_index[numBars], low[numBars], bar_index, low[numBars],
color = color.new(brpSC, 53))
lnST := line.new(bar_index[numBars], bearHigh, bar_index, bearHigh, color =
color.new(brpSC, 53))
bearLow := brpSR == 'Zone' ? math.min(high[1], high) : bearHigh
if bearProcess
if close[1] > lnST.get_price(bar_index) or bullishReversal
lbST.set_tooltip('pattern failed\nthe high of the pattern breached')
bearProcess := false
if close[1] < lnSB.get_price(bar_index)
if bearProcess[1] and bearProcess[1] != bearProcess[2]
lbST.set_tooltip('enchanced pattern (confirmed at detection)\nprice
activity below the pattern low')
else
lbST.set_tooltip('pattern confirmed ' + str.tostring(bar_index[1] -
lbST.get_x()) + ' bar(s) later')
label.new(bar_index[1], high[1], '⦁', color = color(na), textcolor =
color.new(brpSC, 07), style = label.style_label_down, size = size.small, tooltip =
'confirmation bar\nprice activity blow the pattern low')
bearProcess := false
bxS := box.new(bar_index, lnST.get_price(bar_index), bar_index, bearLow,
color.new(brpSC, brpSR == 'Zone' ? 89 : 53), bgcolor = color.new(brpSC, 89))
bearProcess2 := true
if not bearProcess
lnST.set_x2(bar_index[1])
lnSB.set_x2(bar_index[1])
else
lnST.set_x2(bar_index)
lnSB.set_x2(bar_index)
if bearProcess2 and brpSR != 'None'
if close < bxS.get_top()
bxS.set_right(bar_index)
else
bxS.set_right(bar_index)
bearProcess2 := false
//---------------------------------------------------------------------------------
------------------------------------}
