Get Volume profile indicator Code That Actually Works

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

// Inputs
group1 = "Profile Settings"
rows = input.int(24, "Number of Rows", minval=10, maxval=100, group=group1)
valueAreaPercent = input.float(70.0, "Value Area %", minval=50, maxval=90, group=group1)
showPOC = input.bool(true, "Show POC", group=group1)
showVA = input.bool(true, "Show Value Area", group=group1)
profileLength = input.int(100, "Profile Length (bars)", minval=20, maxval=500, group=group1)

// Colors
group2 = "Colors"
 pocColor = input.color(color.yellow, "POC Color", group=group2)
vaHighColor = input.color(color.green, "VA High Color", group=group2)
vaLowColor = input.color(color.red, "VA Low Color", group=group2)
lowVolColor = input.color(color.gray, "Low Volume Color", group=group2)
highVolColor = input.color(color.blue, "High Volume Color", group=group2)

// Calculate range
hi = ta.highest(high, profileLength)
lo = ta.lowest(low, profileLength)
priceRange = hi - lo
rowSize = priceRange / rows

// Arrays for volume per row
var float[] rowVolumes = array.new<float>(rows, 0.0)
var float totalVol = 0.0

// Reset on new profile (every profileLength bars)
if barstate.islast
    array.clear(rowVolumes)
    array.resize(rowVolumes, rows)
    for i = 0 to rows - 1
        array.set(rowVolumes, i, 0.0)
    totalVol := 0.0

// Accumulate volume (simplified for last profileLength bars)
currentRow = math.floor((high - lo) / rowSize)
if currentRow >= 0 and currentRow < rows
    array.set(rowVolumes, int(currentRow), array.get(rowVolumes, int(currentRow)) + volume)
    totalVol += volume

// Find POC (highest volume row)
maxVol = 0.0
pocRow = 0
for i = 0 to rows - 1
    vol = array.get(rowVolumes, i)
    if vol > maxVol
        maxVol := vol
        pocRow := i
pocPrice = lo + pocRow * rowSize + rowSize / 2

// Value Area calculation (approximate 70% of volume)
sortedVols = array.copy(rowVolumes)
array.sort(sortedVols, order.descending)
vaVolTarget = totalVol * valueAreaPercent / 100
cumVol = 0.0
vaHighRow = pocRow
vaLowRow = pocRow
for i = 0 to rows - 1
    if cumVol < vaVolTarget
        cumVol += array.get(sortedVols, i)
        // Simplified VA bounds from POC outwards
        if pocRow + i < rows
            vaHighRow := math.max(vaHighRow, pocRow + i)
        if pocRow - i >= 0
            vaLowRow := math.min(vaLowRow, pocRow - i)
vaHigh = lo + vaHighRow * rowSize
vaLow = lo + vaLowRow * rowSize

// Plot POC
plot(showPOC ? pocPrice : na, "POC", pocColor, 2, plot.style_line)

// Plot VA lines
plot(showVA ? vaHigh : na, "VA High", vaHighColor, 1)
plot(showVA ? vaLow : na, "VA Low", vaLowColor, 1)

// Draw profile boxes (on last bar)
if barstate.islast
    maxVolNorm = maxVol > 0 ? maxVol : 1
    for i = 0 to rows - 1
        vol = array.get(rowVolumes, i)
        volPct = vol / maxVolNorm
        boxTop = lo + (i + 1) * rowSize
        boxBot = lo + i * rowSize
        boxWidth = volPct * (high - low) * 0.5  // Scale width to volume
        boxLeft = bar_index - profileLength
        boxRight = bar_index
        bColor = vol > maxVol * 0.3 ? highVolColor : lowVolColor
        box.new(boxLeft, boxTop, boxRight, boxBot, bgcolor=color.new(bColor, 80), border_color=bColor)

// Alerts
pocCross = ta.crossover(close, pocPrice) or ta.crossunder(close, pocPrice)
alertcondition(pocCross, "POC Cross", "Price crossed POC at {{close}}")
vaTouch = close <= vaHigh and close >= vaLow and (ta.crossover(close, vaLow) or ta.crossunder(close, vaHigh))
alertcondition(vaTouch, "VA Touch", "Price touched Value Area boundary")