標準偏差とＡＴＲ

//@version=2
study(title="標準偏差とＡＴＲ", shorttitle="stdev&atr", overlay=false)
length=input(20,minval=1,title="期間")
src = input(close, title="Source")
useTrueRange = input(true)

ma = sma(src, length)

dev =stdev(src, length)
plot(dev,title="STDEV",color=red)

range = useTrueRange ? tr : high - low
rangsma =sma(range, length)
plot(rangsma,title="ATR",color=blue)

hs=abs(dev-rangsma)
c=dev>rangsma?red:(dev<rangsma?blue:green)
plot(hs,style=columns,color=c,transp=70,title="差")