Vdub_BinaryBands_v2

study(shorttitle="Vdub_BinaryBands_v2", title="Vdub_BinaryBands_v2", overlay=true)
//-----------------BB 1 ema------------------------------------------
length = input(21, 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

p1 = plot(upper, color=teal, style=line,linewidth=2, title="ema hi")
p2 = plot(lower, color=teal, style=line,linewidth=2, title="ema low")
fill(p1, p2, color=teal, transp=90, title="ema bg 1")

//Center band
periods=input(21, minval=1, title="MA Period")
pc = input(true, title="MA BAND")

hld = iff(close > ema(high,periods)[1], 1, iff(close<ema(low,periods)[1],-1, 0))
hlv = valuewhen(hld != 0, hld, 1)

hi = pc and hlv == -1 ? sma(high, periods) : na
lo = pc and hlv == 1 ? sma(low,periods) : na
plot(avg(ema(high,periods)+2.5*(ema(high,periods)-ema(low,periods)),ema(low,periods)-2.5*(ema(high,periods)-ema(low,periods))), color=red, style=line,linewidth=2)
plot(pc and ema(high, periods) ? ema(high, periods):na ,title="Swing High Plot", color=black,style=line, linewidth=1)
plot(pc and ema(low,periods) ? ema(low,periods) : na ,title="Swing Low Plot", color=black,style=line, linewidth=1)
//
//===============================Directional Projection=======================================//
//=============Hull MA//
show_hma = input(false, title="Display Hull MA Set:")
hma_src = input(close, title="Hull MA's Source:")
hma_base_length = input(8, minval=1, title="Hull MA's Base Length:")
hma_length_scalar = input(5, minval=0, title="Hull MA's Length Scalar:")
hullma(src, length)=>wma(2*ema(src, length/2)-ema(src, length), round(sqrt(length)))
plot(not show_hma ? na : hullma(hma_src, hma_base_length+hma_length_scalar*6), color=black, linewidth=3, title="Hull MA")
//===============================================