// Downloaded From https://www.WiseStockTrader.com
p = Param("P",12,3,40,2);
q = Param("Q",26,3,60,2);
r = Param("R",9,3,15,1);

function zeroLagEMA(array, p)
{
	ema1= EMA(array,p);
	ema2= EMA(ema1,p);
	diff = ema1 - ema2;
	return ema1 + diff;
}

zeroLagMACD = zeroLagEMA(C, p) - zeroLagEMA(C, q);
Plot(zeroLagMACD, _DEFAULT_NAME(), colorRed);
Plot(zeroLagEMA(zeroLagMACD, r), _DEFAULT_NAME(), colorBlue);