//@version=5
indicator("EMAs personalizables + VWAP + Cruces (Modular)", overlay=true)

// === INPUTS DE VISIBILIDAD ===
showEmaShort = input.bool(true, "Mostrar EMA corta")
showEmaLong  = input.bool(true, "Mostrar EMA larga")
showVWAP     = input.bool(true, "Mostrar VWAP")
showSignals  = input.bool(true, "Mostrar cruces")

// === INPUTS DE PERIODOS ===
emaShortLen = input.int(9,  "Periodo EMA corta", minval=1)
emaLongLen  = input.int(21, "Periodo EMA larga", minval=1)

// === INPUTS DE COLORES ===
emaShortColor = input.color(color.blue,   "Color EMA corta")
emaLongColor  = input.color(color.orange, "Color EMA larga")
vwapColor     = input.color(color.purple, "Color VWAP")

// === INPUTS DE GROSOR ===
emaShortWidth = input.int(2, "Grosor EMA corta", minval=1, maxval=5)
emaLongWidth  = input.int(2, "Grosor EMA larga", minval=1, maxval=5)
vwapWidth     = input.int(1, "Grosor VWAP",      minval=1, maxval=5)

// === INPUTS DE ESTILO ===
emaShortStyleOpt = input.string("line", "Estilo EMA corta", options=["line","histogram","area","columns","circles","stepline"])
emaLongStyleOpt  = input.string("line", "Estilo EMA larga", options=["line","histogram","area","columns","circles","stepline"])
vwapStyleOpt     = input.string("line", "Estilo VWAP",      options=["line","histogram","area","columns","circles","stepline"])

// === CONVERSIÓN DE ESTILO ===
emaShortStyle = emaShortStyleOpt == "histogram" ? plot.style_histogram :
     emaShortStyleOpt == "area" ? plot.style_area :
     emaShortStyleOpt == "columns" ? plot.style_columns :
     emaShortStyleOpt == "circles" ? plot.style_circles :
     emaShortStyleOpt == "stepline" ? plot.style_stepline : plot.style_line

emaLongStyle = emaLongStyleOpt == "histogram" ? plot.style_histogram :
     emaLongStyleOpt == "area" ? plot.style_area :
     emaLongStyleOpt == "columns" ? plot.style_columns :
     emaLongStyleOpt == "circles" ? plot.style_circles :
     emaLongStyleOpt == "stepline" ? plot.style_stepline : plot.style_line

vwapStyle = vwapStyleOpt == "histogram" ? plot.style_histogram :
     vwapStyleOpt == "area" ? plot.style_area :
     vwapStyleOpt == "columns" ? plot.style_columns :
     vwapStyleOpt == "circles" ? plot.style_circles :
     vwapStyleOpt == "stepline" ? plot.style_stepline : plot.style_line

// === EMAs ===
emaShort = ta.ema(close, emaShortLen)
emaLong  = ta.ema(close, emaLongLen)

// === VWAP ===
vwapLine = ta.vwap(close)

// === PLOTS ===
plot(showEmaShort ? emaShort : na, title="EMA corta", color=emaShortColor, linewidth=emaShortWidth, style=emaShortStyle)
plot(showEmaLong  ? emaLong  : na, title="EMA larga", color=emaLongColor,  linewidth=emaLongWidth,  style=emaLongStyle)
plot(showVWAP     ? vwapLine : na, title="VWAP",      color=vwapColor,     linewidth=vwapWidth,     style=vwapStyle)

// === CRUCES ===
cruceAlcista = ta.crossover(emaShort, emaLong)
cruceBajista = ta.crossunder(emaShort, emaLong)

plotshape(showSignals and cruceAlcista, title="Cruce Alcista", style=shape.triangleup,   location=location.belowbar, color=color.new(color.lime, 0), size=size.small, text="▲ Alcista")
plotshape(showSignals and cruceBajista, title="Cruce Bajista", style=shape.triangledown, location=location.abovebar,  color=color.new(color.red, 0),  size=size.small, text="▼ Bajista")

// === ALERTAS ===
alertcondition(cruceAlcista, title="Alerta Cruce Alcista", message="EMA corta cruzó arriba de EMA larga")
alertcondition(cruceBajista, title="Alerta Cruce Bajista", message="EMA corta cruzó abajo de EMA larga")
// =========================
// PANEL INSTITUCIONAL (ESQUINA SUPERIOR IZQUIERDA)
// =========================
var table infoPanel = table.new(position.bottom_left, 2, 7, border_width=1, frame_color=color.new(color.white, 80))

// Cálculos base
diff    = math.abs(emaShort - emaLong)
maxDiff = ta.highest(diff, 200)
intensity = maxDiff == 0.0 ? 0.0 : diff / maxDiff
opacity = 90 - (intensity * 70)
opacity := math.min(math.max(opacity, 10.0), 90.0)
tendencia = emaShort > emaLong ? "▲ Alcista" : emaShort < emaLong ? "▼ Bajista" : "⚪ Neutral"
fuerzaPct = math.round(intensity * 100)
distancia = diff
vwapEstado = close > vwapLine ? "▲ Sobre VWAP" : close < vwapLine ? "▼ Bajo VWAP" : "⚪ En VWAP"

// Termómetro visual (0–100% → 10 bloques)
blocks = math.round(fuerzaPct / 10)
barra = ""
for i = 1 to 10
    barra += i <= blocks ? "▓" : "░"
// Colores dinámicos
tendColor     = emaShort > emaLong ? color.new(color.lime, 0) : emaShort < emaLong ? color.new(color.red, 0) : color.new(color.yellow, 0)
fuerzaColor   = fuerzaPct > 70 ? color.new(color.lime, 0) : fuerzaPct > 40 ? color.new(color.yellow, 0) : color.new(color.red, 0)
vwapTextColor = close > vwapLine ? color.new(color.lime, 0) : close < vwapLine ? color.new(color.red, 0) : color.new(color.yellow, 0)
termColor     = tendColor
// Sesgo general
sesgo      = "🟡 Neutral"
sesgoColor = color.new(color.yellow, 0)
if fuerzaPct > 70 and emaShort > emaLong and close > vwapLine
    sesgo      := "🟢 Fuerte Alcista"
    sesgoColor := color.new(color.lime, 0)
else if fuerzaPct > 70 and emaShort < emaLong and close < vwapLine
    sesgo      := "🔴 Fuerte Bajista"
    sesgoColor := color.new(color.red, 0)
else if fuerzaPct > 40
    sesgo      := "🟡 Tendencia Débil"
    sesgoColor := color.new(color.yellow, 0)
// Fondo institucional y adaptativo (más transparente para no tapar líneas)
bgPanel   = color.new(color.black, 85)
bgDynamic = bgPanel
if sesgo == "🟢 Fuerte Alcista"
    bgDynamic := color.new(color.lime, 90)
else if sesgo == "🔴 Fuerte Bajista"
    bgDynamic := color.new(color.red, 90)
else if sesgo == "🟡 Tendencia Débil"
    bgDynamic := color.new(color.yellow, 90)
// Encabezados
table.cell(infoPanel, 0, 0, "Tendencia",       text_color=color.white, bgcolor=bgDynamic)
table.cell(infoPanel, 0, 1, "Fuerza (%)",      text_color=color.white, bgcolor=bgDynamic)
table.cell(infoPanel, 0, 2, "Distancia EMAs",  text_color=color.white, bgcolor=bgDynamic)
table.cell(infoPanel, 0, 3, "Intensidad nube", text_color=color.white, bgcolor=bgDynamic)
table.cell(infoPanel, 0, 4, "VWAP",            text_color=color.white, bgcolor=bgDynamic)
table.cell(infoPanel, 0, 5, "Termómetro",      text_color=color.white, bgcolor=bgDynamic)
table.cell(infoPanel, 0, 6, "Sesgo General",   text_color=color.white, bgcolor=bgDynamic)
// Valores
table.cell(infoPanel, 1, 0, tendencia,                         text_color=tendColor,     bgcolor=color.new(color.black, 0))
table.cell(infoPanel, 1, 1, str.tostring(fuerzaPct) + "%",      text_color=fuerzaColor,   bgcolor=color.new(color.black, 0))
table.cell(infoPanel, 1, 2, str.tostring(distancia, format.mintick), text_color=color.white, bgcolor=color.new(color.black, 0))
table.cell(infoPanel, 1, 3, str.tostring(opacity),              text_color=color.white,   bgcolor=color.new(color.black, 0))
table.cell(infoPanel, 1, 4, vwapEstado,                         text_color=vwapTextColor, bgcolor=color.new(color.black, 0))
table.cell(infoPanel, 1, 5, barra,                              text_color=termColor,     bgcolor=color.new(color.black, 0))
table.cell(infoPanel, 1, 6, sesgo,                              text_color=sesgoColor,    bgcolor=color.new(color.black, 0))