SLOW RSI for Amibroker (AFL)

// Slow RSI 
// WRITTEN BY THOMAS 
periods = Param( "Period", 6, 1, 100 ); 
smooth =  Param( "Smoothing", 14, 1, 100 ); 

// use current symbol close 
price = Close; 

// but can use other security data too 
// price =  Foreign( "∧SPX", "C" ); 

R1 = EMA( price, periods ); 
R2 = IIf( price > r1, price - R1, 0 ); 
R3 = iIf( price < r1, r1 - price, 0 ); 
R4 = Wilders( R2, smooth ); 
R5 = Wilders( R3, smooth ); 
RR = IIf( R5 == 0, 100, 100 - ( 100 / ( 1 + ( R4 / R5 ) ) ) ); 

Plot( RR, "SlowRSI" + _PARAM_VALUES(), colorRed );