Re-MACD

study(title="Re-MACD", shorttitle="Re-MACD")
source = close
fastLength = input(34, minval=1), slowLength=input(55,minval=1)
signalLength=input(5,minval=1)
fastMA = ema(source, fastLength)
slowMA = ema(source, slowLength)
macd = fastMA - slowMA
signal = sma(macd, signalLength)
hist = macd - 0

up = rma(max(change(macd), 0), slowLength)
down = rma(-min(change(macd), 0), slowLength)
newmacd = down == 0 ? 100 : up == 0 ? 0 : 100 - (100 / (1 + up / down))
macdsig = sma(newmacd, signalLength)
maczero = newmacd >=0 ?  50 : na

sigc = newmacd > macdsig and newmacd < maczero  ? green : newmacd > macdsig ? lime : newmacd < macdsig and newmacd < maczero  ? red : orange
plzero = plot(maczero, color=sigc, style=circles,linewidth=5)


plpmacd = plot(newmacd, color=silver)
plpmacdsig = plot(macdsig, linewidth=4, color =sigc, style=circles,linewidth=2)

fill(plpmacd, plzero, color=blue, transp=95)



//Define The Lines 
bandpeak = hline(60, linewidth =1, linestyle=dotted, color=navy)
bandbase = hline(40, linewidth = 1, linestyle=dotted, color=navy)