//version=4
study(shorttitle="WPR Scalper", title="William %R Scalper for Gold")
fastInput = input(defval = 9, title = "fast WPR input")
slowInput = input(defval = 54, title = "slow WPR input")
lowLevel4fastWPR = input(defval = -90, title = "low level for buy fast WPR")
lowLevel4slowWPR = input(defval = -90, title = "low level for buy slow WPR")
toplevel4fastWPR = input(defval = -10, title = "top level for sell fast WPR")
toplevel4slowWPR = input(defval = -10, title = "top level for sell slow WPR")
fastWPR = wpr(fastInput)
slowWPR = wpr(slowInput)
// Buy : WPR 9 <-80 & WPR 54 <-70
// Sell : WPR 9 >-20 & WPR 54 <-30
//buy = (fastWPR < lowLevel4fastWPR ) and (slowWPR < lowLevel4slowWPR)
//sell = (fastWPR > toplevel4fastWPR) and (slowWPR > toplevel4slowWPR)
// plotshape(buy, style=shape.triangleup, size=size.normal, location=location.belowbar, color=color.lime)
// plotshape(sell, style=shape.triangledown, size=size.normal, location=location.abovebar, color=color.red)
plot(fastWPR, color=color.black)
plot(slowWPR, color=color.blue)
plot(lowLevel4fastWPR, color=color.green)
plot(lowLevel4slowWPR, color=color.green)
plot(toplevel4fastWPR, color=color.red)
plot(toplevel4slowWPR, color=color.red)
Bat

Disclaimer