// 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)

//ONCE UseCci       =t

//ONCE UseRsi       =t

//ONCE UseStochastic   =t

//ONCE UseCycle      =t

//ONCE UseDI       =t

ONCE CciPeriod       =20

ONCE RsiPeriod       =11

ONCE N           =8

ONCE K           =3

ONCE DiPeriod       =14

ONCE MAperiod       =8

ONCE MAtype        =1

If UseCci then

MyCci = Cci[max(1,CciPeriod)](customclose)

R = (60-MyCci)

G =(60+MyCci)

Elsif UseRsi then

MyRsi  = RSI[max(1,RsiPeriod)](customclose)

R =50+(80-(MyRsi-50)*6)

G =50+(80+(MyRsi-50)*6)

Elsif UseEstocastico then

MyStoch  = Stochastic[max(1,N),max(1,K)](customclose)

R =50+(80-(MyStoch-50)*6)

G =50+(80+(MyStoch-50)*6)

Elsif UseCiclo then

MyCycle  = Cycle(customclose)

R = (120-(MyCycle)*8)

G =(120+(MyCycle+5)*8)

Elsif UseDI then

MyDi = DI[max(1,DiPeriod)](customclose)

R = 50+(80-MyDi*6)

G =50+(80+MyDi*6)

endif

avg = average[MAperiod,MAtype](customclose)

c22=wilderaverage[8](close)

c32=exponentialaverage[123](close)

c4=exponentialaverage[188](close)

c5=exponentialaverage[416](close)

c6=exponentialaverage[610](close)

c7=exponentialaverage[882](close)

c8=exponentialaverage[1230](close)

VelasBanda=20

Desviacio= 3.14159265358979

once SmoothPrice=close

once SmoothRange=range

if barindex>1 then

SmoothPrice=(SmoothPrice[1]*(VelasBanda-1)+Close)/VelasBanda

SmoothRange=(SmoothRange[1]*(VelasBanda-1)+High-Low)/VelasBanda

Alt1=(SmoothPrice+SmoothRange*Desviacio)

Baix1=(SmoothPrice-SmoothRange*Desviacio)

Mitjana= (Alt+Baix)/2

Alt=DEMA(Alt1)

Baix=dema(baix1)

endif

c9=(mitjana+average[34](close))/2

if c9 < c9[1] then

r22=150

g2=100

b2=0

elsif c9 < c9[5] then

r22=250

g2=0

b2=0

else

r22=0

g2=0

b2=150

endif

return avg coloured(R,G,0) style(line,4) as “Zona correccio 1”, c22 coloured(160,0,0) style(dottedline,2)as “Zona correccio 2”, c32 coloured(160,0,250) style(line,2) as “1ª Cinta zona 1”,c4 coloured(60,100,50) style(line,2) as “1ª Cinta Zona 2”, c5 coloured(250,0,200) style(line,2) as “2ª Cinta zona 1”, c6 coloured(250,160,0) style(line,2)as “2ª Cinta zona 2”, c7 coloured(0,0,0) style(line,2) as “3ª Cinta zona 1”, c8 coloured(255,0,0) style(line,2) as “3ª Cinta zona 2”, c9 coloured(r22,g2,b2) style(dottedline,4)as “Genial Line Normal”