CCI Momentum

study(title="Commodity Channel Index", shorttitle="CCI")
length = input(20, minval=1)
src = input(close, title="Source")
ma = sma(src, length)
length1 = input(60, minval=1)
ma1 = sma(src, length1)
length2 = input(240, minval=1)
ma2 = sma(src, length2)

cci = (src - ma) / (0.015 * dev(src, length))
cci1 = (src - ma1) / (0.015 * dev(src, length1))
cci2 = (src - ma2) / (0.015 * dev(src, length2))
data = cci > 0 and cci1 > 0 and cci2 > 0
data1 = cci < 0 and cci1 < 0 and cci2 < 0

bgUp    = (data) ? green : na
bgDown  = (data1) ? red : na

bgcolor(bgUp, transp=50)
bgcolor(bgDown, transp=50)