%B RSI Indicator for Amibroker (AFL)

_SECTION_BEGIN("%B RSI");
P = ParamField("Price field",-1);
Periods = Param("Periods", 17, 2, 100, 1 );
Width = Param("Width", 2, 0, 10, 0.05 );
//Color = ParamColor("Color", colorCycle );
//Style = ParamStyle("Style");
//Plot( BBandTop( P, Periods, Width ), "BBTop" + _PARAM_VALUES(), Color, Style ); 
//Plot( BBandBot( P, Periods, Width ), "BBBot" + _PARAM_VALUES(), Color, Style );
BandWidthRSI = BBandTop(RSI(17), Periods, Width) - BBandBot(RSI(17),Periods, Width);
bRSI =(RSI(17) - BBandBot(RSI(17), Periods, Width)) / BandWidthRSI;
Plot( bRSI, "%b of RSI", colorRed);
_SECTION_END();