Inverse Fisher Transform Williams %R

// This source code is subject to the terms of the Mozilla Public License 2.0 at https://mozilla.org/MPL/2.0/
// inspire KIVANC @fr3762
// creator John EHLERS
// only_fibonacci

//@version=4
study("Inverse Fisher Transform Williams %R", overlay=false, shorttitle="IFTWR")
wprlength=input(14,"Williams%R Length")
wmalength=input(9,"Smoothing Length")
wprs=0.1*(wpr(wprlength)+50)
wprsw=wma(wprs,wmalength)
INVWR=(exp(2*wprsw)-1)/(exp(2*wprsw)+1)
plot(INVWR,color=color.black, linewidth=1, title="%R")
obPlot=hline(0.5, color=color.black,title="Upper Band")
osPlot=hline(-0.5, color=color.black,title="Lower Band")
fill(obPlot,osPlot,color.black)