Modified MACD Average Lines - Amibroker AFL Code

Click Image To Enlarge. Please Rate And Comment.

_SECTION_BEGIN("BMacd");
function fMACDLine(input,fa0, fa1)
{ 
 result = EMA(input,fa0) - EMA(input,fa1);
 return result;
}


function fMACDAvg(input,fa0, fa1, fa2)
{
 mymacd1 = EMA(input,fa0) - EMA(input,fa1);
 result = EMA(mymacd1,fa2);

 return result;
}


function fMacdHisto( input, f0, f1, f2 ) 
{ 
 mymacd = EMA(input,f0) - EMA(input,f1);
 mymacdsig = EMA(mymacd,f2);

 result = mymacd - mymacdsig;

   return result; 
} 

price = (H+L+C)/3;
MA1 = 7;
MA2 = 10;
MA3 = 5;

MACDHisto   = fMacdHisto( price, MA1, MA2, MA3);
MACDHistox2 = fMacdHisto( price, MA1*2, MA2*2, MA3*2);
MACDHistox3 = fMacdHisto( price, MA1*3, MA2*3, MA3*3);
MACDLine   = fMacdLine(price, MA1*3, MA2*3);
MacdAvg     = fMacdAvg(price, MA1*3, MA2*3, MA3*3);

MACDLineColor = IIf(MACDLine>= Ref(MACDLine,-1), colorWhite, colorViolet );

Plot(MACDLine, "MACDLine", MACDLineColor , styleLine|styleLeftAxisScale|styleThick); 
Plot(MACDAvg, "MACDAvg", colorBlue, styleLine|styleLeftAxisScale); 

Plot(MACDHisto, "MACDHisto",  IIf(MACDHisto >=0,colorGreen, colorRed), styleThick | styleHistogram );
Plot(MACDHistoX2, "MACDHistoX2", colorYellow, styleLine | styleStaircase );
Plot(MACDHistoX3, "MACDHistoX3", colorBlack, styleLine | styleStaircase );

PullbackUp   = MACDHisto<0 AND MACDHIstox2>0 AND MACDHIstox3>0 AND MACDHisto<Ref(MACDHisto,-1);
PullbackDown = MACDHisto>0 AND MACDHIstox2<0 AND MACDHIstox3<0 AND MACDHisto>Ref(MACDHisto,-1);

Color = IIf( PullbackUp, colorAqua,IIf(PullbackDown, colorPink, colorTeal));

Plot( 1, "", Color, styleArea | styleOwnScale | styleNoLabel , 0, 1);
_SECTION_END();