// Downloaded From https://www.WiseStockTrader.com
range = Param("Periods", 14, 5, 252, 1 );
MaxH = Max(H, Ref(C, -1));
MinL = Min(L, Ref(C, -1));
HMax = HHV(MaxH, range);
LMax = LLV(MinL, range);
TR = ATR(range);
SumTR = (Sum(TR,range)) / (HMax - LMax);
logsum = log10(SumTR);
LOGn = log10(range);
Choppiness = 100 * logsum / LOGn;

Plot (Choppiness, "Choppiness Index", colorBlack, styleLine);