// see for references, Street Smarts capitolo 19
Raggio0=high-low
raggio1=high[1]-low[1]
raggio2=high[2]-low[2]
raggio3=high[3]-low[3]
fattore1=min(raggio1,raggio2)
fattore2=min(raggio2,raggio3)
fattfinale=min(fattore1,fattore2)
if raggio0
IDNR4 = 1
elsif raggio0 = fattfinale then
IDNR4 = 1
elsif raggio0 > fattfinale then
IDNR4 = 0
ENDIF
//IN QUESTO MODO utilizzando una riga orizzontale è possibile avere un migliore effetto grafico utilizzando gli istrogrammi
return IDNR4