study(title="Rate Of Change71", shorttitle="ROC71&ema76")
source = close, length = input(71, minval=1)
roc =71* (source - source[length])/source[length]
emaroc = ema(roc, 76)
plot(emaroc, color=blue, title="emaROC")
plot(roc, color=black, title="ROC")