Aqui está. para que funcione bien lo he separado en 2 porque el coloreado de barras no es compatible con drawonlastbaronly
//----------------------------------------------
//PRC_kNN Market Architecture [LuxAlgo]
//Indicador 1/2 — estructura, BOS, profile, delta tank
//version = 1
//27.04.2026
//Ivan Gonzalez @ www.prorealcode.com
//Sharing ProRealTime knowledge
//----------------------------------------------
defparam drawonlastbaronly = true
// === INPUTS ===
sensitivityInput = 5 // 1..10 (mayor = pivots mas grandes)
autoSensitivity = 1 // 1=on 0=off (ajusta longitud por volatilidad)
showST = 1 // mostrar lineas Short Term
showMT = 1 // mostrar lineas Medium Term
showLT = 1 // mostrar lineas Long Term
biasSource = 3 // 0=None 1=ST 2=MT 3=LT (para Delta Tank y Bias label)
// Texto BOS por termino (replica los defaults del Pine original)
showSTBOS = 1 // 1=mostrar texto "ST BOS"
showMTBOS = 0 // 0=oculto por defecto (igual que en LuxAlgo)
showLTBOS = 1 // 1=mostrar texto "LT BOS"
showDeltaTank = 1 // 1=mostrar % delta del termino activo
showVP = 1 // mostrar volume profile
vpRows = 30
vpWidth = 50 // ancho maximo del profile en barras
vpOffset = 10 // desplazamiento a la derecha
// Offsets verticales por termino para evitar superposicion BOS
stOffsetMult = 0.5
mtOffsetMult = 1.5
ltOffsetMult = 2.5
// === COLORES (RGB) ===
bullR = 8
bullG = 153
bullB = 129
bearR = 242
bearG = 54
bearB = 69
neuR = 120
neuG = 123
neuB = 134
// === MOTOR DINAMICO ===
atrLong = averagetruerange[200]
avgAtrL = average[200](atrLong)
if avgAtrL > 0 then
volRatio = atrLong / avgAtrL
else
volRatio = 1.0
endif
smoothedRatio = exponentialaverage[50](volRatio)
// dynamicMultiplier = pow(smoothedRatio, 1.5) -> exp(1.5*log(x))
if autoSensitivity = 1 and smoothedRatio > 0 then
dynMult = exp(1.5 * log(smoothedRatio))
else
dynMult = 1.0
endif
baseLen = max(3, round((11 - sensitivityInput) * dynMult))
mtLen = baseLen * 3
ltLen = mtLen * 3
atr14 = averagetruerange[14]
stOffset = atr14 * stOffsetMult
mtOffset = atr14 * mtOffsetMult
ltOffset = atr14 * ltOffsetMult
// === ESTADO PERSISTENTE ===
once stB = 0
once mtB = 0
once ltB = 0
once stHactive = 0
once stLactive = 0
once mtHactive = 0
once mtLactive = 0
once ltHactive = 0
once ltLactive = 0
once stHy = 0
once stHx = 0
once stLy = 0
once stLx = 0
once mtHy = 0
once mtHx = 0
once mtLy = 0
once mtLx = 0
once ltHy = 0
once ltHx = 0
once ltLy = 0
once ltLx = 0
once lastSTHigh = 0
once lastSTLow = 0
once lastMTHigh = 0
once lastMTLow = 0
once lastLTHigh = 0
once lastLTLow = 0
// === SHORT TERM: pivots + BOS ===
stPHfound = 0
stPLfound = 0
if barindex > 2*baseLen + 1 then
if high[baseLen] = highest[2*baseLen+1](high) and high[baseLen] > high[baseLen+1] and high[baseLen] >= high[baseLen-1] then
stPHfound = 1
endif
if low[baseLen] = lowest[2*baseLen+1](low) and low[baseLen] < low[baseLen+1] and low[baseLen] <= low[baseLen-1] then
stPLfound = 1
endif
endif
if stPHfound = 1 then
stHy = high[baseLen]
stHx = barindex - baseLen
stHactive = 1
lastSTHigh = stHy
endif
if stPLfound = 1 then
stLy = low[baseLen]
stLx = barindex - baseLen
stLactive = 1
lastSTLow = stLy
endif
if stHactive = 1 and close > stHy then
$stBosX1[stB] = stHx
$stBosX2[stB] = barindex
$stBosY[stB] = stHy
$stBosDir[stB] = 1
stB = stB + 1
stHactive = 0
endif
if stLactive = 1 and close < stLy then
$stBosX1[stB] = stLx
$stBosX2[stB] = barindex
$stBosY[stB] = stLy
$stBosDir[stB] = -1
stB = stB + 1
stLactive = 0
endif
// === MEDIUM TERM ===
mtPHfound = 0
mtPLfound = 0
if barindex > 2*mtLen + 1 then
if high[mtLen] = highest[2*mtLen+1](high) and high[mtLen] > high[mtLen+1] and high[mtLen] >= high[mtLen-1] then
mtPHfound = 1
endif
if low[mtLen] = lowest[2*mtLen+1](low) and low[mtLen] < low[mtLen+1] and low[mtLen] <= low[mtLen-1] then
mtPLfound = 1
endif
endif
if mtPHfound = 1 then
mtHy = high[mtLen]
mtHx = barindex - mtLen
mtHactive = 1
lastMTHigh = mtHy
endif
if mtPLfound = 1 then
mtLy = low[mtLen]
mtLx = barindex - mtLen
mtLactive = 1
lastMTLow = mtLy
endif
if mtHactive = 1 and close > mtHy then
$mtBosX1[mtB] = mtHx
$mtBosX2[mtB] = barindex
$mtBosY[mtB] = mtHy
$mtBosDir[mtB] = 1
mtB = mtB + 1
mtHactive = 0
endif
if mtLactive = 1 and close < mtLy then
$mtBosX1[mtB] = mtLx
$mtBosX2[mtB] = barindex
$mtBosY[mtB] = mtLy
$mtBosDir[mtB] = -1
mtB = mtB + 1
mtLactive = 0
endif
// === LONG TERM ===
ltPHfound = 0
ltPLfound = 0
if barindex > 2*ltLen + 1 then
if high[ltLen] = highest[2*ltLen+1](high) and high[ltLen] > high[ltLen+1] and high[ltLen] >= high[ltLen-1] then
ltPHfound = 1
endif
if low[ltLen] = lowest[2*ltLen+1](low) and low[ltLen] < low[ltLen+1] and low[ltLen] <= low[ltLen-1] then
ltPLfound = 1
endif
endif
if ltPHfound = 1 then
ltHy = high[ltLen]
ltHx = barindex - ltLen
ltHactive = 1
lastLTHigh = ltHy
endif
if ltPLfound = 1 then
ltLy = low[ltLen]
ltLx = barindex - ltLen
ltLactive = 1
lastLTLow = ltLy
endif
if ltHactive = 1 and close > ltHy then
$ltBosX1[ltB] = ltHx
$ltBosX2[ltB] = barindex
$ltBosY[ltB] = ltHy
$ltBosDir[ltB] = 1
ltB = ltB + 1
ltHactive = 0
endif
if ltLactive = 1 and close < ltLy then
$ltBosX1[ltB] = ltLx
$ltBosX2[ltB] = barindex
$ltBosY[ltB] = ltLy
$ltBosDir[ltB] = -1
ltB = ltB + 1
ltLactive = 0
endif
// === BIAS DEL TERMINO SELECCIONADO ===
if biasSource = 1 then
selectedHigh = lastSTHigh
selectedLow = lastSTLow
elsif biasSource = 2 then
selectedHigh = lastMTHigh
selectedLow = lastMTLow
elsif biasSource = 3 then
selectedHigh = lastLTHigh
selectedLow = lastLTLow
else
selectedHigh = 0
selectedLow = 0
endif
biasState = 0
if selectedHigh > 0 and selectedLow > 0 then
if close > selectedHigh then
biasState = 1
elsif close < selectedLow then
biasState = -1
endif
endif
// (El coloreado de velas va en un INDICADOR SEPARADO — drawcandle es
// incompatible con defparam drawonlastbaronly = true. Ver learning 030
// y el segundo bloque de codigo mas abajo.)
// === DIBUJOS (solo en ultima barra) ===
if islastbarupdate then
// --- ST: linea activa + BOS ---
if showST = 1 then
if stHactive = 1 then
drawsegment(stHx, stHy, barindex, stHy) coloured(bullR, bullG, bullB) style(dottedline, 1)
endif
if stLactive = 1 then
drawsegment(stLx, stLy, barindex, stLy) coloured(bearR, bearG, bearB) style(dottedline, 1)
endif
for i = 0 to stB - 1 do
if $stBosDir[i] = 1 then
drawsegment($stBosX1[i], $stBosY[i], $stBosX2[i], $stBosY[i]) coloured(bullR, bullG, bullB) style(dottedline, 1)
if showSTBOS = 1 then
midX = round(($stBosX1[i] + $stBosX2[i]) / 2)
drawtext("ST BOS", midX, $stBosY[i] + stOffset) coloured(bullR, bullG, bullB)
endif
else
drawsegment($stBosX1[i], $stBosY[i], $stBosX2[i], $stBosY[i]) coloured(bearR, bearG, bearB) style(dottedline, 1)
if showSTBOS = 1 then
midX = round(($stBosX1[i] + $stBosX2[i]) / 2)
drawtext("ST BOS", midX, $stBosY[i] - stOffset) coloured(bearR, bearG, bearB)
endif
endif
next
endif
// --- MT: linea activa + BOS ---
if showMT = 1 then
if mtHactive = 1 then
drawsegment(mtHx, mtHy, barindex, mtHy) coloured(bullR, bullG, bullB) style(dottedline2, 1)
endif
if mtLactive = 1 then
drawsegment(mtLx, mtLy, barindex, mtLy) coloured(bearR, bearG, bearB) style(dottedline2, 1)
endif
for i = 0 to mtB - 1 do
if $mtBosDir[i] = 1 then
drawsegment($mtBosX1[i], $mtBosY[i], $mtBosX2[i], $mtBosY[i]) coloured(bullR, bullG, bullB) style(dottedline2, 1)
if showMTBOS = 1 then
midX = round(($mtBosX1[i] + $mtBosX2[i]) / 2)
drawtext("MT BOS", midX, $mtBosY[i] + mtOffset) coloured(bullR, bullG, bullB)
endif
else
drawsegment($mtBosX1[i], $mtBosY[i], $mtBosX2[i], $mtBosY[i]) coloured(bearR, bearG, bearB) style(dottedline2, 1)
if showMTBOS = 1 then
midX = round(($mtBosX1[i] + $mtBosX2[i]) / 2)
drawtext("MT BOS", midX, $mtBosY[i] - mtOffset) coloured(bearR, bearG, bearB)
endif
endif
next
endif
// --- LT: linea activa + BOS ---
if showLT = 1 then
if ltHactive = 1 then
drawsegment(ltHx, ltHy, barindex, ltHy) coloured(bullR, bullG, bullB) style(line, 2)
endif
if ltLactive = 1 then
drawsegment(ltLx, ltLy, barindex, ltLy) coloured(bearR, bearG, bearB) style(line, 2)
endif
for i = 0 to ltB - 1 do
if $ltBosDir[i] = 1 then
drawsegment($ltBosX1[i], $ltBosY[i], $ltBosX2[i], $ltBosY[i]) coloured(bullR, bullG, bullB) style(line, 2)
if showLTBOS = 1 then
midX = round(($ltBosX1[i] + $ltBosX2[i]) / 2)
drawtext("LT BOS", midX, $ltBosY[i] + ltOffset) coloured(bullR, bullG, bullB)
endif
else
drawsegment($ltBosX1[i], $ltBosY[i], $ltBosX2[i], $ltBosY[i]) coloured(bearR, bearG, bearB) style(line, 2)
if showLTBOS = 1 then
midX = round(($ltBosX1[i] + $ltBosX2[i]) / 2)
drawtext("LT BOS", midX, $ltBosY[i] - ltOffset) coloured(bearR, bearG, bearB)
endif
endif
next
endif
// --- VOLUME PROFILE (anclado al rango del termino activo) ---
if showVP = 1 and selectedHigh > 0 and selectedLow > 0 and selectedHigh > selectedLow then
if biasSource = 1 then
vpFirstBar = stHx
if stLx < vpFirstBar then
vpFirstBar = stLx
endif
elsif biasSource = 2 then
vpFirstBar = mtHx
if mtLx < vpFirstBar then
vpFirstBar = mtLx
endif
else
vpFirstBar = ltHx
if ltLx < vpFirstBar then
vpFirstBar = ltLx
endif
endif
vpLook = barindex - vpFirstBar
if vpLook > 499 then
vpLook = 499
endif
if vpLook < 30 then
vpLook = 30
endif
vpRange = selectedHigh - selectedLow
vpStep = vpRange / vpRows
for i = 0 to vpRows - 1 do
$vpBin[i] = 0
next
for i = 0 to vpLook do
priceI = close[i]
if priceI >= selectedLow and priceI <= selectedHigh then
binIdx = floor((priceI - selectedLow) / vpStep)
if binIdx > vpRows - 1 then
binIdx = vpRows - 1
endif
if binIdx < 0 then
binIdx = 0
endif
$vpBin[binIdx] = $vpBin[binIdx] + volume[i]
endif
next
maxV = 0
pocIdx = 0
for i = 0 to vpRows - 1 do
if $vpBin[i] > maxV then
maxV = $vpBin[i]
pocIdx = i
endif
next
if maxV > 0 then
vpRight = barindex + vpOffset
for i = 0 to vpRows - 1 do
v = $vpBin[i]
if v > 0 then
binBot = selectedLow + i * vpStep
binTop = binBot + vpStep
binW = round((v / maxV) * vpWidth)
vpLeft = vpRight - binW
if i = pocIdx then
bcR = neuR
bcG = neuG
bcB = neuB
elsif i > pocIdx then
bcR = bullR
bcG = bullG
bcB = bullB
else
bcR = bearR
bcG = bearG
bcB = bearB
endif
drawrectangle(vpLeft, binTop, vpRight, binBot) coloured(bcR, bcG, bcB, 0) fillcolor(bcR, bcG, bcB, 80)
endif
next
endif
endif
// --- DELTA TANK (texto con % delta del termino activo) ---
if showDeltaTank = 1 and biasSource <> 0 then
// Selecciona los pivots activos del termino bias
if biasSource = 1 then
dtHact = stHactive
dtHx = stHx
dtHy = stHy
dtLact = stLactive
dtLx = stLx
dtLy = stLy
elsif biasSource = 2 then
dtHact = mtHactive
dtHx = mtHx
dtHy = mtHy
dtLact = mtLactive
dtLx = mtLx
dtLy = mtLy
else
dtHact = ltHactive
dtHx = ltHx
dtHy = ltHy
dtLact = ltLactive
dtLx = ltLx
dtLy = ltLy
endif
// Δ Tank linea HIGH activa
if dtHact = 1 then
barsBackH = barindex - dtHx
if barsBackH > 0 and barsBackH < 500 then
cumVolH = 0
cumDeltaH = 0
for i = 0 to barsBackH do
cumVolH = cumVolH + volume[i]
if close[i] > open[i] then
cumDeltaH = cumDeltaH + volume[i]
elsif close[i] < open[i] then
cumDeltaH = cumDeltaH - volume[i]
endif
next
if cumVolH > 0 then
deltaPctH = round(abs(cumDeltaH) / cumVolH * 100)
if cumDeltaH >= 0 then
drawtext("Delta H +#deltaPctH#%", barindex + 8, dtHy) coloured(bullR, bullG, bullB)
else
drawtext("Delta H -#deltaPctH#%", barindex + 8, dtHy) coloured(bearR, bearG, bearB)
endif
endif
endif
endif
// Δ Tank linea LOW activa
if dtLact = 1 then
barsBackL = barindex - dtLx
if barsBackL > 0 and barsBackL < 500 then
cumVolL = 0
cumDeltaL = 0
for i = 0 to barsBackL do
cumVolL = cumVolL + volume[i]
if close[i] > open[i] then
cumDeltaL = cumDeltaL + volume[i]
elsif close[i] < open[i] then
cumDeltaL = cumDeltaL - volume[i]
endif
next
if cumVolL > 0 then
deltaPctL = round(abs(cumDeltaL) / cumVolL * 100)
if cumDeltaL >= 0 then
drawtext("Delta L +#deltaPctL#%", barindex + 8, dtLy) coloured(bullR, bullG, bullB)
else
drawtext("Delta L -#deltaPctL#%", barindex + 8, dtLy) coloured(bearR, bearG, bearB)
endif
endif
endif
endif
endif
// --- BIAS LABEL ---
if biasSource <> 0 then
if biasState = 1 then
drawtext("Bias: Bullish", barindex + 5, high + 3*atr14) coloured(bullR, bullG, bullB)
elsif biasState = -1 then
drawtext("Bias: Bearish", barindex + 5, high + 3*atr14) coloured(bearR, bearG, bearB)
else
drawtext("Bias: Neutral", barindex + 5, high + 3*atr14) coloured(neuR, neuG, neuB)
endif
endif
endif
return
//----------------------------------------------
//PRC_kNN Market Architecture [LuxAlgo] - Bar Coloring
//Indicador 2/2 — solo coloreado de velas
//version = 1
//27.04.2026
//Ivan Gonzalez @ www.prorealcode.com
//Sharing ProRealTime knowledge
//----------------------------------------------
// === INPUTS (deben coincidir con los del Indicador 1/2) ===
sensitivityInput = 5
autoSensitivity = 1
biasSource = 3 // 1=ST 2=MT 3=LT (mismo termino que indicador 1)
// === COLORES (RGB) ===
bullR = 8
bullG = 153
bullB = 129
bearR = 242
bearG = 54
bearB = 69
neuR = 120
neuG = 123
neuB = 134
// === MOTOR DINAMICO (replica del indicador 1) ===
atrLong = averagetruerange[200]
avgAtrL = average[200](atrLong)
if avgAtrL > 0 then
volRatio = atrLong / avgAtrL
else
volRatio = 1.0
endif
smoothedRatio = exponentialaverage[50](volRatio)
if autoSensitivity = 1 and smoothedRatio > 0 then
dynMult = exp(1.5 * log(smoothedRatio))
else
dynMult = 1.0
endif
baseLen = max(3, round((11 - sensitivityInput) * dynMult))
mtLen = baseLen * 3
ltLen = mtLen * 3
// === ESTADO ===
once lastSTHigh = 0
once lastSTLow = 0
once lastMTHigh = 0
once lastMTLow = 0
once lastLTHigh = 0
once lastLTLow = 0
// === DETECCION SIMPLIFICADA — solo last pivots de cada termino ===
if barindex > 2*baseLen + 1 then
if high[baseLen] = highest[2*baseLen+1](high) and high[baseLen] > high[baseLen+1] and high[baseLen] >= high[baseLen-1] then
lastSTHigh = high[baseLen]
endif
if low[baseLen] = lowest[2*baseLen+1](low) and low[baseLen] < low[baseLen+1] and low[baseLen] <= low[baseLen-1] then
lastSTLow = low[baseLen]
endif
endif
if barindex > 2*mtLen + 1 then
if high[mtLen] = highest[2*mtLen+1](high) and high[mtLen] > high[mtLen+1] and high[mtLen] >= high[mtLen-1] then
lastMTHigh = high[mtLen]
endif
if low[mtLen] = lowest[2*mtLen+1](low) and low[mtLen] < low[mtLen+1] and low[mtLen] <= low[mtLen-1] then
lastMTLow = low[mtLen]
endif
endif
if barindex > 2*ltLen + 1 then
if high[ltLen] = highest[2*ltLen+1](high) and high[ltLen] > high[ltLen+1] and high[ltLen] >= high[ltLen-1] then
lastLTHigh = high[ltLen]
endif
if low[ltLen] = lowest[2*ltLen+1](low) and low[ltLen] < low[ltLen+1] and low[ltLen] <= low[ltLen-1] then
lastLTLow = low[ltLen]
endif
endif
// === BIAS ===
if biasSource = 1 then
selectedHigh = lastSTHigh
selectedLow = lastSTLow
elsif biasSource = 2 then
selectedHigh = lastMTHigh
selectedLow = lastMTLow
else
selectedHigh = lastLTHigh
selectedLow = lastLTLow
endif
biasState = 0
if selectedHigh > 0 and selectedLow > 0 then
if close > selectedHigh then
biasState = 1
elsif close < selectedLow then
biasState = -1
endif
endif
// === COLOREADO (drawcandle por barra, sin drawonlastbaronly) ===
if selectedHigh > 0 and selectedLow > 0 then
if biasState = 1 then
cR = bullR
cG = bullG
cB = bullB
elsif biasState = -1 then
cR = bearR
cG = bearG
cB = bearB
else
cR = neuR
cG = neuG
cB = neuB
endif
drawcandle(open, high, low, close) coloured(cR, cG, cB)
endif
return
