//@version=4
study(title="Williams %R", shorttitle="%R", format=format.price, precision=2)
length = input(5, minval=1)
upper = highest(length)
lower = lowest(length)
src = input(hlc3, title="Source")
ob = input(-20, "OB level")
os = input(-80, "OS level")
level = input(-50, "Other level")
ShowObos = input(true, "Show OS/OB Crosses")
ShowOther = input(true, "Show Other Crosses")
out = 100 * (src - upper) / (upper - lower)
plot(out, color=color.black)
band1 = hline(0, color=color.black)
band2 = hline(-15, color=color.black)
band3 = hline(ob)
band4 = hline(-50, color=color.red)
band5 = hline(os)
band6 = hline(-85, color=color.black)
band7 = hline(-100, color=color.black)
band8 = hline(level, color=color.orange)
fill(band3, band5)
plotshape(ShowObos and crossover(out,ob), color=color.green, style=shape.triangleup, location=location.top, size=size.tiny)
plotshape(ShowObos and crossunder(out,os), color=color.red, style=shape.triangledown, location=location.bottom, size=size.tiny)
plotshape(ShowOther and crossover(out,level)?level:na, color=color.green, style=shape.triangleup, location=location.absolute, size=size.tiny)
plotshape(ShowOther and crossunder(out,level)?level:na, color=color.red, style=shape.triangledown, location=location.absolute, size=size.tiny)