CM_Williams AD+SMA_V1_Public — Indicator by ChrisMoody

chrismoody Williams %R (%R) AD Accumulation / Distribution Line (ADL)

chrismoody williamsr ad accumulationdistribution

I posted this code a long time ago and forgot to add to PineScript Library.

Plots Williams Accumulation Distribution, Williams AD With Optional SMA as a Filter.

In Inputs Tab:
Ability to Turn On/Off SMA Filter.
Ability to change any of the plots to Change Colors Based on Being Above or Below the SMA Filter.
Also Ability to Turn Off Color Change Based on SMA Filter.

Coming Soon: www.ChrisMoodyTrading.com

Open-source script

In true TradingView spirit, the author of this script has published it open-source, so traders can understand and verify it. Cheers to the author! You may use it for free, but reuse of this code in a publication is governed by House Rules. You can favorite it to use it on a chart.

Disclaimer

The information and publications are not meant to be, and do not constitute, financial, investment, trading, or other types of advice or recommendations supplied or endorsed by TradingView. Read more in the Terms of Use.

Want to use this script on a chart?

//Created by user ChrisMoody on 11-30-2014
//Williams AD + SMA of Williams AD + Change Colors based on Williams AD above or below SMA
//Williams AD = Solid Line, SMA = Circles and Solid Line..
study(title = "_CM_Williams AD+SMA_V1", shorttitle="_CM_WAD_SMA_V1", overlay=false)
len = input(20, minval=1, title="SMA Length")
sc = input(true, title="Change Williams AD Color Based on Below/Above SMA?")
sm = input(true, title="Plot SMA?")
smc = input(false, title="Change Williams SMA Color Based on Below/Above SMA?")

trl = min(close[1], low)
trh = max(close[1], high)
ad = close > close[1] ? close - trl : close < close[1] ? close - trh : 0
wad = cum(ad)
ma = sma(cum(ad), len)

spanColor = sc and wad >= ma ? lime : sc and wad < ma ? red : aqua
spanColor2 = smc and wad >= ma ? lime : smc and wad < ma ? red : yellow

p1 = plot(wad, title="Williams AD", style=line, linewidth=4, color=spanColor)
p2 = plot(sm and ma ? ma : na, title="SMA Line",style=linebr, linewidth=4, color=spanColor2)
plot(sm and ma ? ma : na, title="SMA Circles",style=circles, linewidth=3, color=spanColor2)

fill(p1, p2, color=silver, transp=60, title="Fill")