Get Volume profile tradingview Code That Actually Works

//@version=5
indicator("Volume Profile", shorttitle="VP", overlay=true, max_boxes_count=100, max_lines_count=100)

// Inputs
lookback = input.int(100, "Lookback Bars", minval=20, maxval=500)
rows = input.int(48, "Profile Rows", minval=10, maxval=100)
va_pct = input.float(70.0, "Value Area %", minval=50, maxval=90) / 100
show_poc = input.bool(true, "Show POC")
show_va = input.bool(true, "Show Value Area")
poc_color = input.color(color.red, "POC Color")
va_color = input.color(color.new(color.yellow, 80), "VA Color")
profile_color = input.color(color.new(color.blue, 0), "Profile Color")

// Variables
var float highest_price = na
var float lowest_price = na
var total_volume = 0.0
var float[] volumes = array.new<float>()
var int poc_row = 0
var float vah = na
var float val = na

// Calculate on last bar
if barstate.islast
    // Reset
    highest_price := ta.highest(high, lookback)
    lowest_price := ta.lowest(low, lookback)
    row_height = (highest_price - lowest_price) / rows
    array.clear(volumes)
    array.resize(volumes, rows)
    for i = 0 to rows - 1
        array.set(volumes, i, 0.0)
    
    // Distribute volume to rows
    total_volume := 0.0
    for i = 0 to lookback - 1
        bar_high = high[i]
        bar_low = low[i]
        bar_vol = volume[i]
        if not na(bar_vol) and bar_vol > 0
            bar_range = bar_high - bar_low
            if bar_range > 0
                num_rows_bar = math.max(1, math.round(bar_range / row_height))
                vol_per_row = bar_vol / num_rows_bar
                for j = 0 to num_rows_bar - 1
                    row_price = bar_low + j * (bar_range / num_rows_bar)
                    row_idx = math.min(rows - 1, math.max(0, math.floor((row_price - lowest_price) / row_height)))
                    array.set(volumes, row_idx, array.get(volumes, row_idx) + vol_per_row)
            total_volume += bar_vol
    
    // Find POC
    max_vol = 0.0
    poc_row := 0
    for i = 0 to rows - 1
        vol = array.get(volumes, i)
        if vol > max_vol
            max_vol := vol
            poc_row := i
    poc_price = lowest_price + poc_row * row_height + row_height / 2
    
    // Value Area (simple two-sided expansion)
    target_va_vol = total_volume * va_pct
    accumulated = max_vol
    left = poc_row
    right = poc_row
    while accumulated < target_va_vol and (left > 0 or right < rows - 1)
        left_vol = left > 0 ? array.get(volumes, left - 1) : 0
        right_vol = right < rows - 1 ? array.get(volumes, right + 1) : 0
        if left_vol >= right_vol and left > 0
            accumulated += left_vol
            left -= 1
        else if right < rows - 1
            accumulated += right_vol
            right += 1
    val := lowest_price + left * row_height
    vah := lowest_price + right * row_height + row_height
    
    // Plot Profile (using boxes for histogram)
    max_profile_vol = array.max(volumes)
    profile_width = 20  // bars back
    for i = 0 to rows - 1
        vol_pct = array.get(volumes, i) / max_profile_vol
        row_top = highest_price - i * row_height
        row_bot = row_top - row_height
        box_width = math.round(vol_pct * profile_width)
        if box_width > 0
            box.new(bar_index - box_width, row_bot, bar_index, row_top, 
                    bgcolor=color.new(profile_color, 70 - vol_pct * 30), border_color=na)
    
    // Plot POC
    if show_poc
        line.new(bar_index - profile_width - 5, poc_price, bar_index + 5, poc_price, 
                 color=poc_color, width=3, style=line.style_solid)
    
    // Plot VA
    if show_va
        box.new(bar_index - profile_width - 10, val, bar_index + 10, vah, 
                bgcolor=va_color, border_color=color.new(va_color, 0), border_width=1)

// Alerts
poc_price_current = barstate.islast ? (lowest_price + poc_row * ((highest_price - lowest_price) / rows) + ((highest_price - lowest_price) / rows) / 2) : na
alertcondition(ta.crossover(close, poc_price_current), "Price Cross Above POC", "Volume Profile: Price crossed above POC")
alertcondition(ta.crossunder(close, poc_price_current), "Price Cross Below POC", "Volume Profile: Price crossed below POC")
alertcondition(close > vah and close[1] <= vah, "Price Above VAH", "Volume Profile: Price broke above VAH")
alertcondition(close < val and close[1] >= val, "Price Below VAL", "Volume Profile: Price broke below VAL")