Periods=Param("Periods",15,3,70,2);
SmoothFactor = Param("SM",5,3,14,1);
Levelup= 70;
Leveldown=30;
R= RSI(Periods);
StochR=100*(R-LLV(R,periods))/(HHV(R,periods)-LLV(R,periods));
SR=EMA(StochR,SmoothFactor);
Buy= Cross( SR,Leveldown);
Sell= Cross(Levelup,SR);
Buy= ExRem(Buy,Sell);
Sell=ExRem(Sell,Buy);
PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),colorGreen, 0,C, Offset=-15);
PlotShapes(IIf(Sell, shapeDownArrow, shapeNone),colorRed, 0,C, Offset=-15);
Filter=Buy OR Sell;
AddTextColumn( Name(), "Full Name", 77, colorDefault,IIf( Buy, colorGreen, IIf(Sell,colorRed ,colorDefault )) );
//AddTextColumn( TimeNum(),"time" , 77 , colorDefault, IIf( Buy, colorGreen, IIf(Sell,colorRed ,colorDefault )) );
//AddTextColumn(TimeNum(),"date",77,IIf( Buy, colorGreen, IIf(Sell,colorRed ,colorDefault )) );
//AddTextColumn( Now( format = 2 ),"time",77, IIf( Buy, colorGreen, IIf(Sell,colorRed ,colorDefault )));
//AddColumn( DateTime(), "Date", formatDateTime );
AddColumn( IIf(Buy,C,Null), "Buy ",1.2 );
AddColumn( IIf(Sell,C,Null), "Short ");
SetSortColumns( -4 );// AND SetSortColumns( -8 );