TO-StochRSI-slg
This show crosses
study("TO-StochRSI")
source2 = close
lenRSI = 13, lenStoch = 21, smoothK = 3, smoothD = 5
rsi1 = rsi(source2, lenRSI)
k = sma(stoch(rsi1, rsi1, rsi1, lenStoch), smoothK)
d = sma(k, smoothD)
plot(k, color=blue)
plot(d, color=orange)
cr = cross(k,d)
plot(cross(k,d) ? k : na, color=black, style = cross, linewidth = 10)
h0 = hline(80)
h1 = hline(20)
// the end