//@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 MULTITF (CORREGIDO + SESGO GENERAL) ===
// === CÁLCULOS BASE TF ACTUAL ===
diff    = math.abs(emaShort - emaLong)
maxDiff = ta.highest(diff, 200)
intensity = maxDiff == 0.0 ? 0.0 : diff / maxDiff
fuerzaPct = math.round(intensity * 100)
tendencia  = emaShort > emaLong ? "Alcista" : emaShort < emaLong ? "Bajista" : "Neutral"
vwapEstado = close > vwapLine ? "Sobre VWAP" : close < vwapLine ? "Bajo VWAP" : "En VWAP"
// === COLOR PARA TF ACTUAL Y VWAP ===
colorActual = emaShort > emaLong ? color.lime : emaShort < emaLong ? color.red : color.yellow
colorVWAP   = close > vwapLine ? color.lime : close < vwapLine ? color.red : color.yellow
// === FUNCIÓN MULTITF (datos + color) ===
f_tfData(tf) =>
    emaS = request.security(syminfo.tickerid, tf, ta.ema(close, emaShortLen))
    emaL = request.security(syminfo.tickerid, tf, ta.ema(close, emaLongLen))
    d    = math.abs(emaS - emaL)
    maxD = request.security(syminfo.tickerid, tf, ta.highest(math.abs(emaS - emaL), 200))
    inten  = maxD == 0.0 ? 0.0 : d / maxD
    fuerza = math.round(inten * 100)
    tend   = emaS > emaL ? "Alcista" : emaS < emaL ? "Bajista" : "Neutral"
    col    = emaS > emaL ? color.lime : emaS < emaL ? color.red : color.yellow
    [tend, fuerza, col]
// === MULTITIMEFRAME ===
[d1T, d1F, d1C]   = f_tfData("D")
[h4T, h4F, h4C]   = f_tfData("240")
[h1T, h1F, h1C]   = f_tfData("60")
[m15T, m15F, m15C] = f_tfData("15")
// === SESGO GENERAL ===
alcistas = (d1T == "Alcista" ? 1 : 0) + (h4T == "Alcista" ? 1 : 0) + (h1T == "Alcista" ? 1 : 0) + (m15T == "Alcista" ? 1 : 0)
bajistas = (d1T == "Bajista" ? 1 : 0) + (h4T == "Bajista" ? 1 : 0) + (h1T == "Bajista" ? 1 : 0) + (m15T == "Bajista" ? 1 : 0)
sesgoGeneral = alcistas > bajistas ? "🟢 Alcista " + str.tostring(alcistas) + "/4 TF" :
     bajistas > alcistas ? "🔴 Bajista " + str.tostring(bajistas) + "/4 TF" : "🟡 Mixto"
sesgoColor = alcistas > bajistas ? color.lime : bajistas > alcistas ? color.red : color.yellow
// === PANEL ===
var table infoPanel = table.new(position.bottom_left, 2, 8, border_width=1, frame_color=color.new(color.white, 80))
// Encabezados
table.cell(infoPanel, 0, 0, "TF Actual", text_color=color.white, bgcolor=color.black)
table.cell(infoPanel, 0, 1, "D1",        text_color=color.white, bgcolor=color.black)
table.cell(infoPanel, 0, 2, "H4",        text_color=color.white, bgcolor=color.black)
table.cell(infoPanel, 0, 3, "H1",        text_color=color.white, bgcolor=color.black)
table.cell(infoPanel, 0, 4, "M15",       text_color=color.white, bgcolor=color.black)
table.cell(infoPanel, 0, 5, "VWAP",      text_color=color.white, bgcolor=color.black)
table.cell(infoPanel, 0, 6, "Sesgo General", text_color=color.white, bgcolor=color.black)
table.cell(infoPanel, 0, 7, "", text_color=color.white, bgcolor=color.black)
// Valores
table.cell(infoPanel, 1, 0, tendencia + ", " + str.tostring(fuerzaPct) + "%", text_color=colorActual, bgcolor=color.new(color.black, 0))
table.cell(infoPanel, 1, 1, d1T  + ", " + str.tostring(d1F)   + "%",          text_color=d1C,       bgcolor=color.new(color.black, 0))
table.cell(infoPanel, 1, 2, h4T  + ", " + str.tostring(h4F)   + "%",          text_color=h4C,       bgcolor=color.new(color.black, 0))
table.cell(infoPanel, 1, 3, h1T  + ", " + str.tostring(h1F)   + "%",          text_color=h1C,       bgcolor=color.new(color.black, 0))
table.cell(infoPanel, 1, 4, m15T + ", " + str.tostring(m15F)  + "%",          text_color=m15C,      bgcolor=color.new(color.black, 0))
table.cell(infoPanel, 1, 5, vwapEstado,                                      text_color=colorVWAP, bgcolor=color.new(color.black, 0))
table.cell(infoPanel, 1, 6, sesgoGeneral,                                    text_color=sesgoColor, bgcolor=color.new(color.black, 0))
table.cell(infoPanel, 1, 7, "",                                    text_color=sesgoColor, bgcolor=color.new(color.black, 0))

//@version=5
indicator("Panel Sesiones – OHLC + Rango + Dirección + Resumen", overlay=true, max_labels_count=500)
//────────────────────────────────────────────
// INPUTS
//────────────────────────────────────────────
showPanel   = input.bool(true,  "Mostrar Panel")
showAsia    = input.bool(true,  "Asia")
showLondon  = input.bool(true,  "Londres")
showNY      = input.bool(true,  "Nueva York")
// Timeframe fijo configurable
fixedTF = input.timeframe("5", "Timeframe fijo para cálculos")
useFixedTF = input.bool(true, "Usar timeframe fijo para cálculos")
// Sesiones (CST México)
asiaSess   = input.session("0000-0500", "Sesión Asia")
londonSess = input.session("0200-1000", "Sesión Londres")
nySess     = input.session("0730-1500", "Sesión Nueva York")
// Columnas
colShowSession   = input.bool(true, "Columna: Sesión")
colShowOpen      = input.bool(true, "Columna: Apertura")
colShowHigh      = input.bool(true, "Columna: Máximo")
colShowLow       = input.bool(true, "Columna: Mínimo")
colShowClose     = input.bool(true, "Columna: Cierre")
colShowRange     = input.bool(true, "Columna: Rango")
colShowDirection = input.bool(true, "Columna: Dirección")
// Colores
colorAsia   = color.new(color.gray,   0)
colorLondon = color.new(color.blue,   0)
colorNY     = color.new(color.orange, 0)
//────────────────────────────────────────────
// FUNCIONES
//────────────────────────────────────────────
inSession(sess) =>
    time(timeframe.period, sess) != 0
f_sessionOHLC(sess) =>
    var float hi = na
    var float lo = na
    var float op = na
    var float cl = na
    if inSession(sess)
        hi := na(hi) ? high : math.max(hi, high)
        lo := na(lo) ? low  : math.min(lo, low)
        op := na(op) ? open : op
        cl := close
    [op, hi, lo, cl]
f_sessionClosed(sess) =>
    not inSession(sess) and inSession(sess)[1]
//────────────────────────────────────────────
// TIMEFRAME BASE
//────────────────────────────────────────────
tfSource = useFixedTF ? fixedTF : timeframe.period
[asiaOp,   asiaHi,   asiaLo,   asiaCl]   = request.security(syminfo.tickerid, tfSource, f_sessionOHLC(asiaSess))
[londonOp, londonHi, londonLo, londonCl] = request.security(syminfo.tickerid, tfSource, f_sessionOHLC(londonSess))
[nyOp,     nyHi,     nyLo,     nyCl]     = request.security(syminfo.tickerid, tfSource, f_sessionOHLC(nySess))
//────────────────────────────────────────────
// VALORES FINALES DE SESIÓN (INDEPENDIENTES DEL TF DEL GRÁFICO)
//────────────────────────────────────────────
var float asiaOpFinal   = na
var float asiaHiFinal   = na
var float asiaLoFinal   = na
var float asiaClFinal   = na
var float londonOpFinal = na
var float londonHiFinal = na
var float londonLoFinal = na
var float londonClFinal = na
var float nyOpFinal     = na
var float nyHiFinal     = na
var float nyLoFinal     = na
var float nyClFinal     = na
// Detectar cierre de sesión usando el timeframe fijo
[asiaClosed, londonClosed, nyClosed] = request.security(syminfo.tickerid, tfSource, [f_sessionClosed(asiaSess), f_sessionClosed(londonSess), f_sessionClosed(nySess)])
if asiaClosed
    asiaOpFinal := asiaOp[1]
    asiaHiFinal := asiaHi[1]
    asiaLoFinal := asiaLo[1]
    asiaClFinal := asiaCl[1]
if londonClosed
    londonOpFinal := londonOp[1]
    londonHiFinal := londonHi[1]
    londonLoFinal := londonLo[1]
    londonClFinal := londonCl[1]
if nyClosed
    nyOpFinal := nyOp[1]
    nyHiFinal := nyHi[1]
    nyLoFinal := nyLo[1]
    nyClFinal := nyCl[1]
//────────────────────────────────────────────
// PANEL
//────────────────────────────────────────────
var table panel = table.new(position.top_right, 7, 5, border_width=1)
// Variables para resumen fijo
var string resumenFijo = na
var color  colorFijo   = na
f_fillRow(_row, _name, _op, _hi, _lo, _cl, _bgColor) =>
    dir = (not na(_cl) and not na(_op)) ? (_cl > _op ? "Alcista" : _cl < _op ? "Bajista" : "Neutro") : "-"
    rangeVal = (not na(_hi) and not na(_lo)) ? _hi - _lo : na
    rangeStr = not na(rangeVal) ? str.tostring(rangeVal, format.mintick) : "-"
    if colShowSession
        table.cell(panel, 0, _row, _name, bgcolor=_bgColor)
    if colShowOpen
        table.cell(panel, 1, _row, na(_op) ? "-" : str.tostring(_op, format.mintick), bgcolor=_bgColor)
    if colShowHigh
        table.cell(panel, 2, _row, na(_hi) ? "-" : str.tostring(_hi, format.mintick), bgcolor=_bgColor)
    if colShowLow
        table.cell(panel, 3, _row, na(_lo) ? "-" : str.tostring(_lo, format.mintick), bgcolor=_bgColor)
    if colShowClose
        table.cell(panel, 4, _row, na(_cl) ? "-" : str.tostring(_cl, format.mintick), bgcolor=_bgColor)
    if colShowRange
        table.cell(panel, 5, _row, rangeStr, bgcolor=_bgColor)
    if colShowDirection
        table.cell(panel, 6, _row, dir, bgcolor=_bgColor)
    [rangeVal, dir]
//────────────────────────────────────────────
// RENDER PANEL + RESUMEN
//────────────────────────────────────────────
if showPanel
    // Encabezados
    table.cell(panel, 0, 0, "SESIÓN",    bgcolor=color.black, text_color=color.white)
    table.cell(panel, 1, 0, "APERTURA",  bgcolor=color.black, text_color=color.white)
    table.cell(panel, 2, 0, "MÁXIMO",    bgcolor=color.black, text_color=color.white)
    table.cell(panel, 3, 0, "MÍNIMO",    bgcolor=color.black, text_color=color.white)
    table.cell(panel, 4, 0, "CIERRE",    bgcolor=color.black, text_color=color.white)
    table.cell(panel, 5, 0, "RANGO",     bgcolor=color.black, text_color=color.white)
    table.cell(panel, 6, 0, "DIRECCIÓN", bgcolor=color.black, text_color=color.white)
    row = 1
    [rangeAsia,   dirAsia]   = f_fillRow(row, "Asia", asiaOpFinal, asiaHiFinal, asiaLoFinal, asiaClFinal, color.new(colorAsia, 80))
    row += 1
    [rangeLondon, dirLondon] = f_fillRow(row, "Londres", londonOpFinal, londonHiFinal, londonLoFinal, londonClFinal, color.new(colorLondon, 80))
    row += 1
    [rangeNY,     dirNY]     = f_fillRow(row, "Nueva York", nyOpFinal, nyHiFinal, nyLoFinal, nyClFinal, color.new(colorNY, 80))
    row += 1
    //────────────────────────────────────────────
    // RESUMEN
    //────────────────────────────────────────────
    validRanges = array.new_float()
    if not na(rangeAsia)
        array.push(validRanges, rangeAsia)
    if not na(rangeLondon)
        array.push(validRanges, rangeLondon)
    if not na(rangeNY)
        array.push(validRanges, rangeNY)
    maxRange = array.size(validRanges) > 0 ? array.max(validRanges) : na
    string sesionMasVolatil = "—"
    string dirMasVolatil    = "—"
    if not na(maxRange)
        if rangeAsia == maxRange
            sesionMasVolatil := "Asia"
            dirMasVolatil    := dirAsia
        else if rangeLondon == maxRange
            sesionMasVolatil := "Londres"
            dirMasVolatil    := dirLondon
        else if rangeNY == maxRange
            sesionMasVolatil := "Nueva York"
            dirMasVolatil    := dirNY
    string resumen = ""
    color  colorResumen = color.new(color.gray, 70)
    if useFixedTF
        if na(resumenFijo) and sesionMasVolatil != "—"
            resumenFijo := "Sesión más volátil: " + sesionMasVolatil + " – " + dirMasVolatil
            if dirMasVolatil == "Alcista"
                colorFijo := color.new(color.green, 0)
            else if dirMasVolatil == "Bajista"
                colorFijo := color.new(color.red, 0)
            else
                colorFijo := color.new(color.gray, 70)
        resumen      := na(resumenFijo) ? "Sesión más volátil: —" : resumenFijo
        colorResumen := na(colorFijo) ? color.new(color.gray, 70) : colorFijo
    else
        resumen := "Sesión más volátil: " + sesionMasVolatil + " – " + dirMasVolatil
        if dirMasVolatil == "Alcista"
            colorResumen := color.new(color.green, 0)
        else if dirMasVolatil == "Bajista"
            colorResumen := color.new(color.red, 0)
        else
            colorResumen := color.new(color.gray, 70)
    table.cell(panel, 0, 4, resumen, bgcolor=colorResumen, text_color=color.white)