//(c) Fipertec

Express DynamicRSI

Vars

series  rsi, ema, ma, stdDev, upper, lower;

input $RSIspan (1, 30, 13);

input $BollingerSpan(1, 30, 18);

input $EMAspan (1, 30, 5);

 

Calculation

if IsFirstBar() then

begin

  RSI(close, rsi, $RSIspan);

  //calc the bollinger:

  MovingAverage(rsi, ma, $BollingerSpan);

  StdDev(rsi, stdDev, $BollingerSpan);

 

  ExpMovingAverage(rsi, ema, $EMAspan);

end

 

upper = ma + (1.3185 * stdDev);

lower = ma - (1.3185 * stdDev);

 



interpretation Bands (rsi, lower, upper);

 

plot(rsi, "green", 2);

plot(ema, "lightblue", 2);

plotband (upper, "green", 1, lower, "red", 1, "yellow");

plotline (20, "grey", 2);

plotline (50, "grey", 2);

plotline (80, "grey", 2);//@@@cs:344920-3463735-214769_cs@@@