350 Swing Price chart for Amibroker (AFL)

// Barbara Stars 350 Swing Indicator article from Stocks & Commodities magazine edited... 
_SECTION_BEGIN("350Swing");

nRSILen = Param("RSI Length", 3, 2, 50 );
nMALen = Param("MA Length", 3 );
UpColor = ParamColor("UpColor", colorGreen );
DnColor = ParamColor("DnColor", colorRed );

r = RSI( nRSILen );
rma = MA( r, nMALen );
Color = IIf( r > 50, UpColor, DnColor );

mode =  ParamList("Display", "Price");


         SetBarFillColor( Color );
         Plot( C, "Price", Color, styleCandle );
         PlotShapes( ( rma < 20 ) * shapeSmallCircle, colorGreen, 0, L, -20 );
         PlotShapes( ( rma > 80 ) * shapeSmallCircle, colorRed, 0, H, 20 );
         
        
_SECTION_END();