Get Trading view volume profile Code That Actually Works

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

// Inputs
length = input.int(200, "Lookback Length", minval=50)
rows = input.int(50, "Number of Rows/Bins", minval=20, maxval=100)
vaPercent = input.float(70.0, "Value Area %", minval=0, maxval=100) / 100.0
extendRight = input.int(20, "Extend Right", minval=1)
showHistogram = input.bool(true, "Show Volume Histogram")
showPOC = input.bool(true, "Show POC")
showVA = input.bool(true, "Show Value Area")
pocColor = input.color(color.yellow, "POC Color")
vaColor = input.color(color.blue, "VA Color")
histColor = input.color(color.gray, "Histogram Color")

// Persistent levels for plots/alerts
var float pocLevel = na
var float vahLevel = na
var float valLevel = na

// Calculate volume profile on last bar
if barstate.islast
    float hi = ta.highest(high, length)
    float lo = ta.lowest(low, length)
    float range = hi - lo
    float binSize = range / rows
    
    volArray = array.new<float>(rows, 0.0)
    
    // Distribute volume into price bins using close
    for i = 0 to length - 1
        float price = close[i]
        int binIdx = math.floor((price - lo) / binSize)
        binIdx := math.max(0, math.min(rows - 1, binIdx))
        float currVol = array.get(volArray, binIdx)
        array.set(volArray, binIdx, currVol + volume[i])
    
    // Find POC: bin with highest volume
    float maxVol = 0.0
    int pocBin = 0
    for i = 0 to rows - 1
        float v = array.get(volArray, i)
        if v > maxVol
            maxVol := v
            pocBin := i
    pocLevel := lo + (pocBin + 0.5) * binSize
    
    // Value Area: expand from POC until target volume reached
    float totalVol = array.sum(volArray)
    float targetVol = totalVol * vaPercent
    float cumVolUp = maxVol
    int highBin = pocBin
    while cumVolUp < targetVol and highBin < rows - 1
        highBin += 1
        cumVolUp += array.get(volArray, highBin)
    
    float cumVolDown = maxVol
    int lowBin = pocBin
    while cumVolDown < targetVol and lowBin > 0
        lowBin -= 1
        cumVolDown += array.get(volArray, lowBin)
    
    vahLevel := lo + (highBin + 0.5) * binSize
    valLevel := lo + (lowBin + 0.5) * binSize
    
    // Draw POC line
    if showPOC
        line.new(bar_index - length, pocLevel, bar_index + extendRight, pocLevel, color=pocColor, width=3)
    
    // Draw VA lines
    if showVA
        line.new(bar_index - length, vahLevel, bar_index + extendRight, vahLevel, color=vaColor, width=2)
        line.new(bar_index - length, valLevel, bar_index + extendRight, valLevel, color=vaColor, width=2)
    
    // Draw volume histogram as boxes
    if showHistogram
        float maxBinVol = array.max(volArray)
        for i = 0 to rows - 1
            float v = array.get(volArray, i)
            float width = (v / maxBinVol) * extendRight * 0.8
            float priceLow = lo + i * binSize
            float priceHigh = lo + (i + 1) * binSize
            box.new(bar_index + 1, priceLow, bar_index + math.round(width), priceHigh, bgcolor=color.new(histColor, 30), border_color=na)

// Plots for visibility and alerts
plot(showPOC ? pocLevel : na, "POC", pocColor, 2)
plot(showVA ? vahLevel : na, "VAH", vaColor, 1)
plot(showVA ? valLevel : na, "VAL", vaColor, 1)

// Alerts on POC crosses
alertcondition(ta.crossover(close, pocLevel), title="POC Cross Up", message="Price crossed above Volume POC")
alertcondition(ta.crossunder(close, pocLevel), title="POC Cross Down", message="Price crossed below Volume POC")