voici:

//--------------------------------------------
//PRC_Lowess Channel + (RSI) by ChartPrime
//version = 0
//15.10.2025
//Iván González @ www.prorealcode.com
//Sharing ProRealTime knowledge
//--------------------------------------------
// --- Parámetros Configurables ---
length = 25
multi = 2.0
bandwidth = 10

// Colores de la línea central
colUpR = 0
colUpG = 255
colUpB = 0

colDnR = 128
colDnB = 128
colDnG = 0

// Color de las bandas
colBndsR = 61
colBndsG = 145
colBndsB = 64
// --- Fin de Parámetros ---


// --- Cálculos del Indicador en un ÚNICO Bucle ---

// Pre-cálculo del ATR
atr = AverageTrueRange[200]

// Variables de suma compartidas (no dependen de 'y')
sumWeights = 0.0
sumWeightedX = 0.0
sumWeightedX2 = 0.0

// Variables de suma específicas para cada una de las 5 líneas
sumWeightedYm = 0.0
sumWeightedXYm = 0.0
sumWeightedYh1 = 0.0
sumWeightedXYh1 = 0.0
sumWeightedYh2 = 0.0
sumWeightedXYh2 = 0.0
sumWeightedYl1 = 0.0
sumWeightedXYl1 = 0.0
sumWeightedYl2 = 0.0
sumWeightedXYl2 = 0.0

FOR i = 0 TO length - 1
   x = i
   weight = EXP(-0.5 * (x / bandwidth) * (x / bandwidth))
   
   // Definir el valor 'y' para cada línea
   ym = close[i]
   yh1 = close[i] + (atr[i] * multi)
   yh2 = close[i] + (atr[i] * multi * 2)
   yl1 = close[i] - (atr[i] * multi)
   yl2 = close[i] - (atr[i] * multi * 2)
   
   // Acumular sumas compartidas (solo una vez)
   sumWeights = sumWeights + weight
   sumWeightedX = sumWeightedX + weight * x
   sumWeightedX2 = sumWeightedX2 + weight * x * x
   
   // Acumular sumas específicas para cada línea
   sumWeightedYm = sumWeightedYm + weight * ym
   sumWeightedXYm = sumWeightedXYm + weight * x * ym
   
   sumWeightedYh1 = sumWeightedYh1 + weight * yh1
   sumWeightedXYh1 = sumWeightedXYh1 + weight * x * yh1
   
   sumWeightedYh2 = sumWeightedYh2 + weight * yh2
   sumWeightedXYh2 = sumWeightedXYh2 + weight * x * yh2
   
   sumWeightedYl1 = sumWeightedYl1 + weight * yl1
   sumWeightedXYl1 = sumWeightedXYl1 + weight * x * yl1
   
   sumWeightedYl2 = sumWeightedYl2 + weight * yl2
   sumWeightedXYl2 = sumWeightedXYl2 + weight * x * yl2
NEXT

// --- Cálculo final para cada línea (post-bucle) ---
meanX = sumWeightedX / sumWeights

// Línea m
meanYm = sumWeightedYm / sumWeights
betam = (sumWeightedXYm - meanX * meanYm * sumWeights) / (sumWeightedX2 - meanX * meanX * sumWeights)
alpham = meanYm - betam * meanX
m = alpham + betam * (length / 2)

// Línea h1
meanYh1 = sumWeightedYh1 / sumWeights
betah1 = (sumWeightedXYh1 - meanX * meanYh1 * sumWeights) / (sumWeightedX2 - meanX * meanX * sumWeights)
alphah1 = meanYh1 - betah1 * meanX
h1 = alphah1 + betah1 * (length / 2)

// Línea h2
meanYh2 = sumWeightedYh2 / sumWeights
betah2 = (sumWeightedXYh2 - meanX * meanYh2 * sumWeights) / (sumWeightedX2 - meanX * meanX * sumWeights)
alphah2 = meanYh2 - betah2 * meanX
h2 = alphah2 + betah2 * (length / 2)

// Línea l1
meanYl1 = sumWeightedYl1 / sumWeights
betal1 = (sumWeightedXYl1 - meanX * meanYl1 * sumWeights) / (sumWeightedX2 - meanX * meanX * sumWeights)
alphal1 = meanYl1 - betal1 * meanX
l1 = alphal1 + betal1 * (length / 2)

// Línea l2
meanYl2 = sumWeightedYl2 / sumWeights
betal2 = (sumWeightedXYl2 - meanX * meanYl2 * sumWeights) / (sumWeightedX2 - meanX * meanX * sumWeights)
alphal2 = meanYl2 - betal2 * meanX
l2 = alphal2 + betal2 * (length / 2)

// --- Lógica de Color para la línea central ---
IF m > m[3] THEN
   colorR = colUpR
   colorG = colUpG
   colorB = colUpB
ELSIF m < m[3] THEN
   colorR = colDnR
   colorG = colDnG
   colorB = colDnB
ENDIF

// --- Dibujado de las líneas ---
RETURN h2 COLOURED(colBndsR, colBndsG, colBndsB) STYLE(dottedline) AS "Higher Band 2", h1 COLOURED(colBndsR, colBndsG, colBndsB) STYLE(dottedline) AS "Higher Band 1", m COLOURED(colorR, colorG, colorB) STYLE(line, 2) AS "Middle", l1 COLOURED(colBndsR, colBndsG, colBndsB) STYLE(dottedline) AS "Lower Band 1", l2 COLOURED(colBndsR, colBndsG, colBndsB) STYLE(dottedline) AS "Lower Band 2"