Tillson's T3 RSI for Amibroker (AFL)

function T3(price,periods)
{
	s = 0.618;
	periods = 2/(periods+1);
	e1=AMA(price,periods);
	e2=AMA(e1,Periods);
	e3=AMA(e2,Periods);
	e4=AMA(e3,Periods);
	e5=AMA(e4,Periods);
	e6=AMA(e5,Periods);
	c1=-s*s*s;
	c2=3*s*s+3*s*s*s;
	c3=-6*s*s-3*s-3*s*s*s;
	c4=1+3*s+s*s*s+3*s*s;
	Ti3=c1*e6+c2*e5+c3*e4+c4*e3;
	return ti3;
}

periods = Param( "Periods", 14, 1, 200, 1 );
Plot(RSI(Periods), "RSI-14", ParamColor("RSI color", colorRed ), ParamStyle("RSI style") );
T3oneSmoothing = Param( "T3oneSmoothing", 3, 1, 200, 1 );
Plot(t3(RSI(Periods),T3oneSmoothing),"T3 One", ParamColor("T3 One color", colorGreen ), ParamStyle("T3 One style") );
T3TwoSmoothing = Param( "T3TwoSmoothing", 5, 1, 200, 1 );
Plot(t3(RSI(Periods),T3TwoSmoothing),"T3 Two", ParamColor("T3 Two color", colorBlue ), ParamStyle("T3 Two style") );

Buy = Cover =Cross(RSI(Periods),t3(RSI(Periods),T3oneSmoothing ))*Cross(RSI(Periods),t3(RSI(Periods),T3TwoSmoothing));
Sell= Short =Cross(t3(RSI(Periods),T3oneSmoothing),RSI(Periods ))*Cross(t3(RSI(Periods),T3TwoSmoothing),RSI(Periods));