[RS]RSI ZigZag V0

study(title="[RS]RSI ZigZag V0", shorttitle="[RS]RSIZZ.V0", overlay=true)
overbought = input(70)
oversold = input(30)
length = input(8)
smooth = input(4)
r = sma(rsi(close, length), smooth)

//pzz = nz(zz[1], close)
//zz = r >= overbought ? min(pzz, high) : r <= oversold ? max(pzz, low) : na
zz = r >= overbought ? close : r <= oversold ? close : na
plot(zz, color=blue, linewidth=3)