Bat Day for Amibroker (AFL)

_SECTION_BEGIN("BAT DAY");
MAtp1 = 10; 
MAtp2 = 40; 
RStp = 5; 
RSsmoothtp = 5; 

dif = EMA(C,MAtp1) - EMA(C,MAtp2); 
Change = dif - Ref(dif,-1); 

Z = Sum(IIf(Change >0,Change,0),Rstp); 
Y = Sum(IIf(Change < 0, abs(Change),0),RStp); 
YTemp = IIf(y ==0, 0.00001,y); 
RS = Z/YTemp; 
RSS = MA(100 - (100/(1 +RS)), RSsmoothtp); 
Plot(RSS,"Relative Spread Strenghth",colorRed,styleLine);
_SECTION_END();

_SECTION_BEGIN("BAT DAY NPH");
MAtp1 = 4; 
MAtp2 = 12; 
RStp = 3; 
RSsmoothtp = 3; 

dif = EMA(C,MAtp1) - EMA(C,MAtp2); 
Change = dif - Ref(dif,-1); 

Z = Sum(IIf(Change >0,Change,0),Rstp); 
Y = Sum(IIf(Change < 0, abs(Change),0),RStp); 
YTemp = IIf(y ==0, 0.00001,y); 
RS = Z/YTemp; 
RSS = MA(100 - (100/(1 +RS)), RSsmoothtp); 
Plot(RSS,"Relative Spread Strenghth",colorGreen,styleLine);
_SECTION_END();