//@version=1
study(title="1 Hour High/Lows",shorttitle ="1HL", overlay=true)

ema1 = ema(close, 20)
ema2 = ema(close, 50)
ema3 = ema(close, 100)
ema4 = ema(close, 150)
ema5 = ema(close, 200)

sma0 = sma(close, 5)
sma5 = sma(close, 10)
sma1 = sma(close, 50)
sma2 = sma(close, 100)
sma3 = sma(close, 150)
sma4 = sma(close, 200)

plot(ema1, color = #0070FF, linewidth=2, title="EMA20", editable = true)
plot(ema2, color = aqua, linewidth=3, title="EMA50", editable = true)
plot(ema3, color = red, linewidth=2, title="EMA100", editable = true)
plot(ema4, color = lime, linewidth=2, title="EMA150", editable = true)
plot(ema5, color = fuchsia, linewidth=3, title="EMA200", editable = true)

plot(sma0, color = yellow, linewidth=2, title="SMA5", editable = true)
plot(sma5, color = #0070FF, linewidth=2, title="SMA10", editable = true)
plot(sma1, color = aqua, linewidth=3, title="SMA50", editable = true)
plot(sma2, color = lime, linewidth=2, title="SMA100", editable = true)
plot(sma3, color = #50C878, linewidth=2, title="SMA150", editable = true)
plot(sma4, color = fuchsia, linewidth=3, title="SMA200", editable = true)

BB_length = input(20, minval=1, title="BB Length")
BB_sdev = input(2.0, minval=0.001, maxval=50, title="BB StdDev")
dev = BB_sdev * stdev(close, BB_length)
upper = sma(close, BB_length) + dev
middle = sma(close, 20)
lower = sma(close, BB_length) - dev
p1 = plot(upper, title="BB Upper", color=silver, linewidth=2)
p2 = plot(middle, title="BB Middle", color=silver, linewidth=2)
p3 = plot(lower, title="BB Lower", color=silver, linewidth=2)

len = input(300,title="LinReg Length")

a = linreg(high,len,0)
b = linreg(low,len,0)
c = -dev(low,len)+b
d = dev(high,len)+a

plot(a, color = #FF9999, linewidth=2, title='LR')
plot(b, color = #FF9999, linewidth=2, title='LR')
plot(c,color=c>c[1]?green:red, linewidth=2, title="LinReg Lower")
plot(d,color=d>d[1]?green:red, linewidth=2, title="LinReg Hgher")