[RS]Money Flow Oscillator V0

//@version=2
//  ||
//  || As Described here:
//  ||    http://traders.com/Documentation/FEEDbk_docs/2015/10/TradersTips.html
//  ||
study(title='[RS]Money Flow Oscillator V0', shorttitle='MFO', overlay=false)

length = input(title='Length', type=integer, defval=20, minval=1)
SHOW_BC = input(title='Show Bar Colors', type=bool, defval=false)
Dvs = (high - low[1]) + (high[1] - low)
MLTP = na(Dvs) ? 0 : Dvs != 0 ? round(((high - low[1]) - (high[1] - low )) / Dvs) : 0
MyVol = na(volume) ? 0 : volume
Dvsv = MyVol != 0 ? MyVol : 0
MFV = MLTP * MyVol
MFO = sum( MFV, length ) / sum( Dvsv, length )

plot(MFO, color=black)
hline(0, color=black)

barcolor(not SHOW_BC? na : MFO>=0?lime:red)