EHSAN Design PALS RSI Overbought & Oversold for Amibroker (AFL)

_SECTION_BEGIN("RSI 2 Periods");
SetChartBkGradientFill(ParamColor("Inner panel upper", colorBlack), ParamColor("Inner panel lower", colorBlack));
SetChartOptions(0,0,chartGrid30|chartGrid70);
 
maxClip = Param( "maxClip", 70, 1, 100, 1 );
minClip = Param( "minClip", 30, 1, 100, 1 );
 
a = Param( "Periods1", 5, 1, 200, 1 );
Plot( RSI( a), "RSI", ParamColor( "Color1", colorGold ), ParamStyle("Style1")  );
 
b = Param( "Periods2", 14, 1, 200, 1 );
Plot( RSI( b), "RSI", ParamColor( "Color2", colorRed ), ParamStyle("Style2")  );
 
Upper=Param("Upper", 70, 50, 100, 1);
Plot(Upper,"Upper",ParamColor( "ColorUpper", colorRed ),ParamStyle("StyleUpper"));
Lower=Param("Lower", 30, 0, 50, 1);
Plot(Lower,"Lower",ParamColor( "ColorLower", colorGreen ),ParamStyle("StyleLower"));
 
Buy=Cross(RSI(a),Lower) OR Cross(RSI(b),Lower);
Sell=Cross(Upper,RSI(a)) OR Cross(Upper,RSI(b));
 
PlotShapes(IIf(Buy,shapeUpArrow,shapeNone),colorGreen);
PlotShapes(IIf(Sell,shapeDownArrow,shapeNone),colorRed);
 
Colorrsi=ParamToggle("Display(ON - OFF)","Off|On",1);
if(Colorrsi)
{
r = RSI(a);
PlotOHLC( r,r,50,r, "", IIf( r > 50, colorDarkRed, colorDarkGreen ), styleCloud | styleNoLabel | styleClipMinMax, minClip, maxClip );
}
 
_SECTION_END();