Toxic Flow Radar

//@version=6
// Toxic Flow Radar [EnsoTrade] - directional order-flow + VPIN toxicity gauge.
// Built by EnsoTrade (ensotrade.tech) - live crypto order-flow terminal.
indicator("Toxic Flow Radar [EnsoTrade]", shorttitle="Toxic Flow", overlay=false, precision=2)

// --- Inputs ---
len     = input.int(14, "Flow window (bars)", minval=2, group="Engine")
smooth  = input.int(3,  "Smoothing", minval=1, group="Engine")
warnLvl = input.float(0.40, "Elevated level", step=0.01, group="Levels")
toxLvl  = input.float(0.55, "Toxic level", step=0.01, group="Levels")
showBg  = input.bool(true, "Shade background on toxic flow", group="Display")
showABS = input.bool(true, "Show absorption marks", group="Display")
showHUD = input.bool(true, "Show status panel", group="Display")

// --- Order-flow delta proxy (needs only volume) ---
rng     = math.max(high - low, syminfo.mintick)
buyVol  = volume * (close - low) / rng
sellVol = volume * (high - close) / rng
delta   = buyVol - sellVol

// --- Toxicity (height): |imbalance| / total volume, 0..1 ---
imb     = math.sum(math.abs(delta), len)
tot     = math.sum(volume, len)
vpin    = ta.ema(tot > 0 ? imb / tot : 0.0, smooth)

// --- Direction (color): net pressure, who is winning NOW ---
press   = tot > 0 ? math.sum(delta, len) / tot : 0.0
pressSm = ta.ema(press, smooth)
buyers  = pressSm >= 0

// --- State ---
isTox  = vpin >= toxLvl
isWarn = vpin >= warnLvl and not isTox

// --- Color: green=buyers / red=sellers ; bright=toxic, dim=calm ---
transp = isTox ? 0 : isWarn ? 25 : 60
col    = color.new(buyers ? #00e676 : #ff1744, transp)

plot(vpin, "Toxic Flow", color=col, style=plot.style_columns)
hline(toxLvl,  "Toxic",    color=color.new(color.red, 0),    linestyle=hline.style_dashed)
hline(warnLvl, "Elevated", color=color.new(color.orange, 0), linestyle=hline.style_dotted)
bgcolor(showBg and isTox ? color.new(buyers ? color.green : color.red, 90) : na)

// --- Absorption: heavy toxic flow but price stalls = quiet accumulation/distribution ---
priceMove  = math.abs(close - close[len]) / close[len]
absorption = isTox and priceMove < 0.005
plotshape(showABS and absorption, "Absorption", style=shape.diamond, location=location.top, color=color.new(color.yellow, 0), size=size.tiny)

// --- Alerts ---
alertcondition(ta.crossover(vpin, toxLvl), "Toxic flow", "Toxic order flow detected - informed traders active")
alertcondition(absorption, "Absorption", "Absorption: toxic flow with stalling price")

// --- Status panel ---
stateTxt = isTox ? (buyers ? "TOXIC up - buyers" : "TOXIC down - sellers") : isWarn ? (buyers ? "ELEVATED up" : "ELEVATED down") : "CALM"
stateCol = isTox ? (buyers ? color.new(#00e676, 0) : color.new(#ff1744, 0)) : isWarn ? color.new(#ff9100, 0) : color.new(color.gray, 0)
var table hud = table.new(position.top_right, 1, 2, border_width=1)
if showHUD and barstate.islast
    table.cell(hud, 0, 0, stateTxt + "   " + str.tostring(vpin, "0.00"), text_color=color.white, bgcolor=stateCol, text_size=size.normal)
    table.cell(hud, 0, 1, "Toxic Flow Radar - EnsoTrade", text_color=color.new(color.white, 15), bgcolor=color.new(color.black, 20), text_size=size.small)