Frontiera Direzione - Indicator - Cagalli Tiziano

[Andrea Cagalli]

INPUTS: @frontieraDir(25)

# Calcolo ampiezza delle shadow sopra e sotto il close
SET ombraG = CLOSE - LOW
SET ombraR = HIGH - CLOSE
# Sommo le shadow progressivamente barra per barra
SET sommaG = SUMIF(CLOSE > OPEN, ombraG)
SET sommaR = SUMIF(CLOSE <= OPEN, ombraR)
# Calcolo la somma delle shadow relativa soltanto alle ultime @frontieraDir barre
SET sommaGIntervallo = sommaG - REF(sommaG, @frontieraDir)
SET sommaRIntervallo = sommaR - REF(sommaR, @frontieraDir)
# Il valore plottato e\' la differenza delle sue somme, smussata con una EMA a 3 periodi
SET PLOT1 = EMA(sommaGIntervallo - sommaRIntervallo, 3)
# Il colore del plot e\' calcolato in base al segno ed alla salita o discesa del valore
SET salita = PLOT1 > REF(PLOT1, 1) AND PLOT1 > 0
SET discesa = PLOT1 < REF(PLOT1, 1) AND PLOT1 < 0
SET PLOTCOLOR1 = IF(PLOT1 > 0, COLOR_DARK_GREEN, COLOR_DARK_RED)
SET PLOTCOLOR1 = IF(salita, COLOR_LIGHT_GREEN, PLOTCOLOR1)
SET PLOTCOLOR1 = IF(discesa, COLOR_LIGHT_RED, PLOTCOLOR1)