Fibonnacci Bollinger Bands

study(shorttitle="FibBB", title="Fibonnacci Bollinger Bands", overlay=true)
Max = input(1.414, minval=0.127, maxval=2)
length = input(100, minval=1)
src = input(close, title="Source")
mult = input(2.0, minval=0.001, maxval=50)
basis = sma(src, length)
dev = mult * stdev(src, length)
upper = basis + dev
lower = basis - dev
diff = upper - lower 
fib382 = diff*0.382 
fib618 = diff*0.618
fib118 = diff*0.118 
fib886 = diff*0.886
fib1414 = diff*Max
fib382line = lower+fib382 
fib618line = lower+fib618
fib118line = lower+fib118 
fib886line = lower+fib886
takeprofitbuy = lower+fib1414 
takeprofitsell = upper-fib1414


plot(basis, color=red)
p1 = plot(upper, color=silver)
p2 = plot(lower, color=silver)
p3 = plot(fib382line, color=green)
p4 = plot(fib618line, color=blue)
p5 = plot(fib118line, color=green)
p6 = plot(fib886line, color=blue)
p7 = plot(takeprofitbuy, color=green)
p8 = plot(takeprofitsell, color=blue)

fill(p3, p4, transp=98)