RSI & Stoch RSI

//@version=3
study(title="Stochastic RSI", shorttitle="WRSI(S)")
smoothK = input(3, minval=1)
smoothD = input(3, minval=1)
lengthRSI = input(14, minval=1)
lengthStoch = input(14, minval=1)
src = input(close, title="RSI Source")

rsi1 = rsi(src, lengthRSI)
k = sma(stoch(rsi1, rsi1, rsi1, lengthStoch), smoothK)
d = sma(k, smoothD)
plot(k, color=blue)
plot(d, color=orange)
h0 = hline(80)
h1 = hline(20)
fill(h0, h1, color=purple, transp=80)

val1=input(title="RSI期間", type=integer, defval=9)

d1=rsi(close, val1)

plot(d1, title="RSI", style=line, linewidth=2, color=black)