INDICATORE “CHOPPY”

ecco:

n=10
atr1=averagetruerange[1](close)
sumAtr=summation[n](atr1)
maxhin=highest[n](high)
minlon=lowest[n](low)

chopi = 100*log(sumAtr)/(maxhin-minlon)/log(n)

return chopi

Leggendo di nuovo il tuo messaggio ora vedo che non ho tenuto conto dei gap di apertura. Ho modificato il codice e nel frattempo ho effettuato i calcoli con i logaritmi in base 10.

// --- INPUTS
n = 10

// --- DAILY RESET
ONCE idx = 0
IF intradaybarindex = 0 THEN
   UnSet($tr)
   UnSet($hi)
   UnSet($lo)
   idx = 0
ENDIF

// --- TRUE RANGE
trClassic = MAX(high - low, MAX(ABS(high - close[1]), ABS(low - close[1])))

IF intradaybarindex = 0 THEN
   trBar = high - low
ELSE
   trBar = trClassic
ENDIF

$tr[idx] = trBar
$hi[idx] = high
$lo[idx] = low
idx = idx + 1

cnt = MIN(idx, n)

sumTR = 0

IF cnt > 0 THEN
   
   hh = $hi[idx - 1]
   ll = $lo[idx - 1]
   
   FOR k = 0 TO cnt - 1 DO
      j = idx - 1 - k
      sumTR = sumTR + $tr[j]
      IF $hi[j] > hh THEN
         hh = $hi[j]
      ENDIF
      IF $lo[j] < ll THEN
         ll = $lo[j]
      ENDIF
   NEXT
   
   rango = hh - ll
   
   // --- CHOPPINESS ---
   IF cnt >= n AND rango > 0 AND n > 1 THEN
      chopi = 100 * ( LOG(sumTR / rango) / LOG(10) ) / ( LOG(n) / LOG(10) )
   ELSE
      chopi = chopi
   ENDIF
ELSE
   chopi = 0
ENDIF

RETURN chopi COLOURED(0,0,255) AS "Choppiness (without open gap)"