DiNapoli Preferred Stochastic Oscillator [LazyBear]

//
// @author LazyBear
//
// List of my public indicators: http://bit.ly/1LQaPK8
// List of my app-store indicators: http://blog.tradingview.com/?p=970
//
study(title="DiNapoli Preferred Stochastic Oscillator [LazyBear]", shorttitle="DPSTOCH_LB", overlay=false)
fk = input(8, title="Fast K")
sk =input(3, title="Slow K")
sd =input(3, title="Slow D")
min_ = lowest(low, fk)
max_ = highest(high, fk)
fast = (close - min_)/(max_ - min_)*100
r = nz(r[1]) + (fast - nz(r[1]))/sk
s = nz(s[1]) + (r - nz(s[1]))/sd
ob=hline(70, title="OBLevel"), os=hline(30, title="OSLevel"), fill(ob,os, gray)
plot(r, color=blue, title="Dinapoli Stoch"), plot(s, color=red, title="Signal")