Скрипт профиля рынка (Market Profile) с разделением на TPO в Pine Script v5

//@version=5
indicator('Market Profile TPO - Finfluct', overlay=true, max_labels_limit=500, max_lines_limit=500)

// Входные параметры
tpo_step      = input.float(1.0, title='Шаг цены TPO (в пунктах)', minval=0.0001)
session_spec  = input.session('0900-1800:23456', title='Торговая сессия')
text_color    = input.color(color.white, title='Цвет текста TPO')
bg_color      = input.color(color.new(color.blue, 90), title='Цвет фона профиля')
poc_color     = input.color(color.orange, title='Цвет линии POC')

// Определение сессии
in_session  = not na(time(timeframe.period, session_spec))
new_session = in_session and not in_session[1]

// Массив букв TPO для 30-минутных интервалов
var string[] tpo_letters = array.from(
     'A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 
     'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z',
     'a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'i', 'j', 'k', 'l', 'm', 
     'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'w', 'x', 'y', 'z'
 )

// Хранилище данных профиля
var float[] price_levels = array.new_float(0)
var string[] tpo_strings = array.new_string(0)
var int session_start_idx = na
var label profile_lbl = na
var line poc_ln = na

// Функция поиска или создания ценового уровня
get_level_index(float price) =>
    int idx = array.indexof(price_levels, price)
    if idx == -1
        array.push(price_levels, price)
        array.push(tpo_strings, '')
        idx := array.size(price_levels) - 1
    idx

// Сброс данных при старте новой сессии
if new_session
    array.clear(price_levels)
    array.clear(tpo_strings)
    session_start_idx := bar_index
    profile_lbl := label.new(
         x=bar_index, 
         y=close, 
         text='', 
         style=label.style_label_left, 
         textcolor=text_color, 
         color=bg_color, 
         textalign=text.align_left
     )
    if not na(poc_ln)
        line.delete(poc_ln)
    poc_ln := line.new(x1=bar_index, y1=close, x2=bar_index, y2=close, color=poc_color, width=2)

// Наполнение профиля внутри сессии
if in_session and not na(session_start_idx)
    // Вычисление индекса 30-минутного интервала
    int elapsed_ms = int(time - time[bar_index - session_start_idx])
    int interval_index = math.min(math.floor(elapsed_ms / 1800000), array.size(tpo_letters) - 1)
    string current_letter = array.get(tpo_letters, interval_index)

    // Округление границ текущего бара под шаг TPO
    float low_bound = math.floor(low / tpo_step) * tpo_step
    float high_bound = math.ceil(high / tpo_step) * tpo_step

    // Заполнение ценовых уровней буквами
    for price = low_bound to high_bound by tpo_step
        float rounded_price = math.round(price / tpo_step) * tpo_step
        int idx = get_level_index(rounded_price)
        string current_str = array.get(tpo_strings, idx)
        
        // Добавляем букву, если её еще нет для этого уровня в текущем интервале
        if str.pos(current_str, current_letter) == -1
            array.set(tpo_strings, idx, current_str + current_letter)

    // Отрисовка профиля на каждом баре для интерактивности
    if array.size(price_levels) > 0
        // Сортировка уровней по убыванию цены
        int[] sorted_indices = array.sort_indices(price_levels, order.descending)
        
        string display_text = ''
        float poc_price = 0.0
        int max_tpo_len = 0
        
        for i = 0 to array.size(sorted_indices) - 1
            int orig_idx = array.get(sorted_indices, i)
            float price = array.get(price_levels, orig_idx)
            string tpos = array.get(tpo_strings, orig_idx)
            int tpo_len = str.length(tpos)
            
            if tpo_len > max_tpo_len
                max_tpo_len := tpo_len
                poc_price := price
            
            display_text := display_text + str.tostring(price, '#.##') + ' | ' + tpos + '\n'

        // Обновление метки профиля
        label.set_xy(profile_lbl, session_start_idx, poc_price)
        label.set_text(profile_lbl, display_text)
        
        // Обновление линии POC (Point of Control)
        line.set_xy1(poc_ln, session_start_idx, poc_price)
        line.set_xy2(poc_ln, bar_index, poc_price)