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