Untitled

//@version=4
study("MACD Profit Candles", overlay=false)

lenFast = input(12, title="MACD Fast EMA Length", type=input.integer, minval=1)
lenSlow = input(29, title="MACD Slow EMA Length", type=input.integer, minval=1)
lenSig = input(9, title="MACD Signal Length", type=input.integer, minval=1)
src = input(close, title="Source")
plotSig = input(false, title="Plot MACD Signal Line?")

getMACD(s, fastLen, slowLen, sigLen) =>
    fast = ema(s, fastLen)
    slow = ema(s, slowLen)
    macd = fast - slow
    sig = ema(macd, sigLen)
    [macd, sig, macd - sig]

[mac, signal, macHist] = getMACD(src, lenFast, lenSlow, lenSig)

candleColor = mac >= mac[1] ? color.lime : color.red
sigColor = signal > signal[1] ? color.lime : color.fuchsia

// Plotting the candles
plotcandle(open=mac[1], close=mac, high=mac, low=mac[1], color=candleColor)

// Plotting the MACD Signal Line
plot(plotSig ? signal : na, title="Signal Line", color=sigColor, style=plot.style_circles, linewidth=2)

// Adding background color when sigColor changes
//bgcolor(candleColor, transp=90)

// Labeling when crossover and crossunder occur
bgcolor(crossunder(mac, signal) ? color.red : na, transp=90)
bgcolor(crossover(mac, signal) ? color.green : na, transp=90)