//@version=5
indicator(title="Sistema de Trenes", shorttitle="Sistema de Trenes", format=format.price, precision=2, timeframe="", timeframe_gaps=true)


periodo_lento_K = input.int(76, title="%K Lento", minval=1)
suavizado_lento_K = input.int(3, title="%K Suavizado Lento", minval=1)
periodo_lento_D = input.int(4, title="%D Suavizado Lento", minval=1)

periodo_rapido_K = input.int(8, title="%K Rapido", minval=1)
suavizado_rapido_K = input.int(3, title="%K Suavizado Rapido", minval=1)
periodo_rapido_D = input.int(3, title="%D Suavizado Rapido", minval=1)

k_lento = ta.sma(ta.stoch(close, high, low, periodo_lento_K), suavizado_lento_K)
d_lento = ta.sma(k_lento, periodo_lento_D)

k_rapido = ta.sma(ta.stoch(close, high, low, periodo_rapido_K), suavizado_rapido_K)
d_rapido = ta.sma(k_rapido, periodo_rapido_D)

k1_lento=plot(k_lento, title="K Lento",color=d_lento[1] < d_lento ? color.green : color.red)
d1_lento=plot(d_lento, title="D Lento",color=color.blue , linewidth=2)

k1_rapido=plot(k_rapido, title="K Rapido",color=d_rapido[1] < d_rapido ? color.green : color.red)
d1_rapido=plot(d_rapido, title="D Rapido",color=color.blue , linewidth=1)

fill(d1_rapido,k1_rapido,color=d_rapido[1] < d_rapido ? color.green : color.red,title = "Fondo Estocastico Rapido")
fill(d1_lento,k1_lento,color=d_lento[1] < d_lento ? color.green : color.red,title = "Fondo Estocastico Lento")

h0 = hline(100, "Linea 100", color=color.white, linestyle=hline.style_solid, linewidth=2)
h1 = hline(80, "Linea 80", color=color.new(color.white,0))
h2 = hline(50, "Linea 50", color=color.new(color.white,0))
h3 = hline(20, "Linea 20", color=color.new(color.white,0))
h4 = hline(0, "Linea 0", color=color.white, linestyle=hline.style_solid, linewidth=2)



fill(h0, h1, color.new(color.green, transp=70), title="Fondo Arriba")
fill(h1, h3, color.new(color.black,transp=100), title="Fondo Central")
fill(h3, h4, color.new(color.red, transp=70), title="Fondo Abajo")