// Genial Line
src=close
genial=34
pgenial=average[genial](src)
// Zona corrección
ema8=average[8,1](src)
wilder8=WilderAverage[8](src)
if ema8>wilder8 then
r=100
g=255
b=100
else
r=255
g=100
b=100
endif
colorbetween(ema8,wilder8,r,g,b,75)
// Tunel Domenec
pema123 = average[123,1](src)//ta.ema(src, ema123)
pema188 = average[188,1](src)//ta.ema(src, ema188)
pema416 = average[416,1](src)//ta.ema(src, ema416)
pema618 = average[618,1](src)//ta.ema(src, ema618)
pema882 = average[882,1](src)//ta.ema(src, ema882)
pema1223 = average[1223,1](src)//ta.ema(src, ema1223)
colorbetween(pema123,pema188,"blue",75)
colorbetween(pema416,pema618,"yellow",75)
colorbetween(pema882,pema1223,255,20,147,75)
// Indicador ADX
adxlen=7
dilen=7
sig=ADX[adxlen]
// Indicador williams
periodoWilliams = 40 // Período Williams %R
wpr=Williams[periodoWilliams](close)
// Inicialización de color
candleColor = 0 // Valor por defecto (sin color)
// Condiciones para colores
IF wpr < -50 AND sig >= sig[1] AND wpr > wpr[1] THEN
candleColor = 1 // Verde brillante
DRAWCANDLE(open, high, low, close) COLOURED(0,255,0)
ELSIF wpr > -50 AND wpr < -27 AND sig >= sig[1] AND wpr > wpr[1] THEN
candleColor = 2 // Verde oliva
DRAWCANDLE(open, high, low, close) COLOURED(120,185,70)
ELSIF wpr > -27 AND sig >= sig[1] AND wpr > wpr[1] THEN
candleColor = 3 // Verde apagado
DRAWCANDLE(open, high, low, close) COLOURED(70,100,70)
ELSIF wpr > -50 AND sig <= sig[1] AND wpr < wpr[1] THEN
candleColor = 4 // Amarillo
DRAWCANDLE(open, high, low, close) COLOURED(250,250,0)
ELSIF wpr < -50 AND sig <= sig[1] AND wpr < wpr[1] THEN
candleColor = 5 // Naranja
DRAWCANDLE(open, high, low, close) COLOURED(250,140,0)
ELSIF wpr > -50 AND sig >= sig[1] AND wpr < wpr[1] THEN
candleColor = 6 // Rojo
DRAWCANDLE(open, high, low, close) COLOURED(250,0,0)
ELSIF wpr < -50 AND wpr > -72 AND sig >= sig[1] AND wpr < wpr[1] THEN
candleColor = 7 // Fucsia oscuro
DRAWCANDLE(open, high, low, close) COLOURED(210,60,130)
ELSIF wpr < -72 AND sig >= sig[1] AND wpr < wpr[1] THEN
candleColor = 8 // Marrón rojizo
DRAWCANDLE(open, high, low, close) COLOURED(100,40,50)
ELSIF wpr < -50 AND sig <= sig[1] AND wpr > wpr[1] THEN
candleColor = 9 // Cyan
DRAWCANDLE(open, high, low, close) COLOURED(0,255,255)
ELSIF wpr > -50 AND sig <= sig[1] AND wpr > wpr[1] THEN
candleColor = 10 // Azul celeste
DRAWCANDLE(open, high, low, close) COLOURED(30,180,230)
ELSIF wpr < -50 THEN
candleColor = 11 // Magenta
DRAWCANDLE(open, high, low, close) COLOURED(255,0,255)
ELSIF wpr > -50 THEN
candleColor = 12 // Azul oscuro
DRAWCANDLE(open, high, low, close) COLOURED(0,0,150)
ELSE
candleColor = 13 // Gris
DRAWCANDLE(open, high, low, close) COLOURED(120,120,120)
ENDIF
return pgenial as "Genial" style(line,2)coloured("black"), ema8 as "ema8" coloured(r,g,b)style(line,2), wilder8 as "Wilder8"coloured(133,56,5)style(point,2), pema123 as "ema-123 tunel 1"coloured("blue"),pema188 as "ema-188 tunel 1"coloured("blue"),pema416 as "ema-416 tunel 2"coloured("yellow"),pema618 as "ema-618 tunel 2"coloured("yellow"),pema882 as "ema-882 tunel 3"coloured(255,20,147),pema1223 as "ema-1223 tunel 3"coloured(255,20,147)