Overbought/Oversold

////////////////////////////////////////////////////////////
//  Copyright by HPotter v1.0 14/05/2014
// Simple Overbought/Oversold indicator
////////////////////////////////////////////////////////////
study(title="Overbought/Oversold", shorttitle="OB/OS")
Lookback = input(10, minval=1)
xOBOS = stoch(close, high, low, Lookback)
nRes = iff(close > close[Lookback], xOBOS / 100, (100 - xOBOS) / 100)
plot(nRes, color=blue, title="OB/OS")