Price Histogram

// @version=4
n = 'Price Histogram 2 - @bkawk'
study(title=n, shorttitle=n)
s = input(title="Fast A", type=input.integer, defval=3, minval=1, maxval=200)
l = input(title="Slow A", type=input.integer, defval=45, minval=1, maxval=200)
sx = input(title="Fast B", type=input.integer, defval=13, minval=1, maxval=200)
lx = input(title="Slow B", type=input.integer, defval=65, minval=1, maxval=200)
m = input(title="Multiplier", type=input.integer, defval=100, minval=1, maxval=10000)
sm = input(title="Smoothing", type=input.integer, defval=1, minval=1, maxval=20)
st = input(title="Strength", type=input.integer, defval=60, minval=50, maxval=100)
we = input(title="Weakness", type=input.integer, defval=40, minval=1, maxval=50)
cl = security(heikinashi(syminfo.tickerid), timeframe.period, close)
hi = security(heikinashi(syminfo.tickerid), timeframe.period, high)
lo = security(heikinashi(syminfo.tickerid), timeframe.period, low)
x = sma(((sma(cl, s) - sma(cl, l)) * ((sma(hi, sx) + sma(hi, lx) + sma(lo, sx) + sma(lo, lx)) / 4) ) * m,sm)
down = #EE534F
downWeakness = #FF8A87
up = #00FFE9
upWeakness = #27A49A
midline = #888888
red = rsi(close, 14) < we ? down : downWeakness
green = rsi(close, 14) > st ? up : upWeakness
plot(x, title=n, transp=0,  linewidth=2, color=rising(x, 1) ? green : red, style=plot.style_histogram)
hline(0, linewidth=1, color=midline, linestyle=hline.style_dotted)