RSI 7 for Amibroker (AFL)

/*RSI 7*/


t=7;
Up=IIf(C>Ref(C,-1),abs(C-Ref(C,-1)),0);
Dn=IIf(C<Ref(C,-1),abs(C-Ref(C,-1)),0);
Ut=Wilders(Up,t);
Dt=Wilders(Dn,t);
RSIt=100*(Ut/(Ut+Dt));
Graph0=RSIt;
TradingHours = TimeNum() >= 100400 AND TimeNum() <= 153000;

Buy = RSIt< 30;
Short = RSIt > 70;
Sell = Cover = 0;

Plot( RSI(7), "RSI", colorRed);
PlotShapes(Buy*shapeUpArrow ,colorGreen);
PlotShapes(Short*shapeDownArrow ,colorRed);

SetChartOptions(0,0,chartGrid30|chartGrid70);

Plot(RSI(7), "RSI Cloud", colorBlue, styleLine);