All orders
Rules
Job finished
Specification
//@version=4
study("Breakout Finder", "BF", overlay = true, max_bars_back = 500, max_lines_count = 400)
prd = input(defval = 5, title="Period", minval = 2)
bo_len = input(defval = 200, title="Max Breakout Length", minval = 30, maxval = 300)
cwidthu = input(defval = 3., title = "Threshold Rate %", minval = 1., maxval = 10) / 100
mintest = input(defval = 2, title = "Minimum Number of Tests", minval = 1)
bocolorup = input(defval = color.blue, title = "Breakout Colors", inline = "bocol")
bocolordown = input(defval = color.red, title = "", inline = "bocol")
lstyle = input(defval = line.style_solid, title = "Line Style", options = [line.style_solid, line.style_dashed, line.style_dotted])
//width
lll = max(min(bar_index, 300), 1)
float h_ = highest(lll)
float l_ = lowest(lll)
floatchwidth = (h_ - l_) * cwidthu
// check if PH/PL
ph = pivothigh(prd, prd)
pl = pivotlow(prd, prd)
//keep Pivot Points and their locations in the arrays
varphval = array.new_float(0)
varphloc = array.new_int(0)
varplval = array.new_float(0)
varplloc = array.new_int(0)
// keep PH/PL levels and locations
ifph
array.unshift(phval, ph)
array.unshift(phloc, bar_index - prd)
ifarray.size(phval) > 1 // cleanup old ones
for x = array.size(phloc) - 1 to 1
ifbar_index - array.get(phloc, x) >bo_len
array.pop(phloc)
array.pop(phval)
ifpl
array.unshift(plval, pl)
array.unshift(plloc, bar_index - prd)
ifarray.size(plval) > 1 // cleanup old ones
for x = array.size(plloc) - 1 to 1
ifbar_index - array.get(plloc, x) >bo_len
array.pop(plloc)
array.pop(plval)
// check bullish cup
floatbomax = na
intbostart = bar_index
num = 0
hgst = highest(prd)[1]
ifarray.size(phval) >= mintest and close > open and close >hgst
bomax := array.get(phval, 0)
xx = 0
for x = 0 to array.size(phval) - 1
ifarray.get(phval, x) >= close
break
xx := x
bomax := max(bomax, array.get(phval, x))
if xx >= mintest and open <= bomax
for x = 0 to xx
ifarray.get(phval, x) <= bomax and array.get(phval, x) >= bomax - chwidth
num += 1
bostart := array.get(phloc, x)
ifnum<mintest or hgst>= bomax
bomax := na
if not na(bomax) and num>= mintest
line.new(x1 = bar_index, y1 = bomax, x2 = bostart, y2 = bomax, color = bocolorup, style = lstyle)
line.new(x1 = bar_index, y1 = bomax - chwidth, x2 = bostart, y2 = bomax - chwidth, color = bocolorup, style = lstyle)
line.new(x1 = bostart, y1 = bomax - chwidth, x2 = bostart, y2 = bomax, color = bocolorup, style = lstyle)
line.new(x1 = bar_index, y1 = bomax - chwidth, x2 = bar_index, y2 = bomax, color = bocolorup, style = lstyle)
plotshape(not na(bomax) and num>= mintest, location = location.belowbar, style = shape.triangleup, color = bocolorup, size = size.small)
alertcondition(not na(bomax) and num>= mintest, title = "Breakout", message = "Breakout")
// check bearish cup
floatbomin = na
bostart := bar_index
num1 = 0
lwst = lowest(prd)[1]
ifarray.size(plval) >= mintest and close < open and close <lwst
bomin := array.get(plval, 0)
xx = 0
for x = 0 to array.size(plval) - 1
ifarray.get(plval, x) <= close
break
xx := x
bomin := min(bomin, array.get(plval, x))
if xx >= mintest and open >= bomin
for x = 0 to xx
ifarray.get(plval, x) >= bomin and array.get(plval, x) <= bomin + chwidth
num1 += 1
bostart := array.get(plloc, x)
if num1 <mintest or lwst<= bomin
bomin := na
if not na(bomin) and num1 >= mintest
line.new(x1 = bar_index, y1 = bomin, x2 = bostart, y2 = bomin, color = bocolordown, style = lstyle)
line.new(x1 = bar_index, y1 = bomin + chwidth, x2 = bostart, y2 = bomin + chwidth, color = bocolordown, style = lstyle)
line.new(x1 = bostart, y1 = bomin + chwidth, x2 = bostart, y2 = bomin, color = bocolordown, style = lstyle)
line.new(x1 = bar_index, y1 = bomin + chwidth, x2 = bar_index, y2 = bomin, color = bocolordown, style = lstyle)
plotshape(not na(bomin) and num1 >= mintest, location = location.abovebar, style = shape.triangledown, color = bocolordown, size = size.small)
alertcondition(not na(bomin) and num1 >= mintest, title = "Breakdown", message = "Breakdown")
alertcondition((not na(bomax) and num>= mintest) or (not na(bomin) and num1 >= mintest), title = "Breakout or Breakdown", message = "Breakout or Breakdown")