MACD-H

study(title="MACD-H", shorttitle="MACD-H")
source = close
fastLength = input(12, minval=1), slowLength=input(26,minval=1)
signalLength=input(9,minval=1)
fastMA = ema(source, fastLength)
slowMA = ema(source, slowLength)
macd = fastMA - slowMA
signal = sma(macd, signalLength)
hist = macd - signal
//Histogram Color Definitions
histA_IsUp = hist > hist[1] and hist > 0
histA_IsDown = hist < hist[1] and hist > 0
histB_IsDown = hist < hist[1] and hist <= 0
histB_IsUp = hist > hist[1] and hist <= 0

plot_color = histA_IsUp ? aqua : histA_IsDown ? blue : histB_IsDown ? red : histB_IsUp ? maroon : white

plot(hist, color=plot_color, style=histogram, linewidth=4)
plot(macd, title="MACD", color=red, linewidth=3)
plot(signal, title="Signal Line", color=lime, linewidth=3)
hline(0, '0 Line', linestyle=solid, linewidth=2, color=white)