study("BB Squeeze", scale=scale.right, overlay=true) //--- Keltner kLength = input(20, title="Keltner Lenght") kN = input(1.5, title="Keltner Deviation") kUpper = sma(close,kLength) + kN*atr(kLength) kLower = sma(close,kLength) - kN*atr(kLength) //--- Bollinger bbLength = input(20, title="Bollinger Length") bbN = input(2, title="Bollinger Deviation") bbUpper = sma(close,bbLength) + bbN*stdev(close,bbLength) bbLower = sma(close,bbLength) - bbN*stdev(close,bbLength) //--- BB Squeeze squeeze = bbUpper <= kUpper and bbLower >=kLower //--- Plots plot(bbUpper, title="Upper Band") plot(bbLower, title="Lower Band") //--- Fill a = plot(squeeze?bbUpper:na, style=linebr, color=n?na:white, title="Squeezed Upper Band") b = plot(squeeze?bbLower:na, style=linebr, color=n?na:white, title="Squeezed Lower Band") fill(a,b, color=yellow, transp=30, title="Squeezed Area")