Indicateur WBR de Flux Charts

voici:

//-------------------------------------------//
//PRC_Wick to Body Ratio Trend Forecast by fluxchart
//version = 0
//14.10.2025
//Iván González @ www.prorealcode.com
//Sharing ProRealTime knowledge
//-------------------------------------------//
// --- ALGORITHM SETTINGS ---
// Number of candles to look back
loopback = 400
// Bar length of the forecast lines
forecast = 10
// Ratio Type to use: 1=General, 2=Top Wick, 3=Bottom Wick, 4=Body
ratioType = 1
// If 1, only candles of the same direction (bullish/bearish) are compared
directionBias = 1 // 1=true, 0=false
// Initial Accuracy: 1=High, 2=Medium, 3=Low
defaultAccuracy = 2

// --- FORECAST LINES ---
// High confidence color (R,G,B values)
deviationHighR = 255
deviationHighG = 0
deviationHighB = 0
// Low confidence color (R,G,B values)
deviationLowR = 0
deviationLowG = 0
deviationLowB = 255

// --- PAST TRENDS ---
// 1 = Draws a box around matching past trends
trendSquare = 1
// 1 = Labels the ratios of matching candles
trendSquareLabels = 1

// --- OTHER ---
// 1 = Displays warning messages on the chart
displayLogs = 1

// --- VARIABLE INITIALIZATION ---
ONCE accuracy = 0.02
IF defaultAccuracy = 1 THEN
   accuracy = 0.01
ELSIF defaultAccuracy = 3 THEN
   accuracy = 0.04
ENDIF

ONCE ratioNotFindable = 0
ONCE lastBar = 0
ONCE matchesFound = 0
ONCE loopBreaker = 0

// --- CANDLE RATIO CALCULATION ---
myRatio = 0
sign = 0
IF (close - open) > 0 THEN
   sign = 1
ELSIF (close - open) < 0 THEN
   sign = -1
ENDIF

// General Ratio
IF ratioType = 1 THEN
   IF ABS(close - open) > 0 THEN
      myRatio = ((ABS(low - high) - ABS(close - open)) / ABS(close - open)) * sign
   ELSE
      myRatio = 0
   ENDIF
   // Top Wick
ELSIF ratioType = 2 THEN
   IF ABS(close - open) > 0 THEN
      myRatio = ((MAX(close, open) - high) / ABS(close - open)) * sign
   ELSE
      myRatio = 0
   ENDIF
   // Bottom Wick
ELSIF ratioType = 3 THEN
   IF ABS(close - open) > 0 THEN
      myRatio = ((MIN(close, open) - low) / ABS(close - open)) * sign
   ELSE
      myRatio = 0
   ENDIF
   // Body Ratio
ELSIF ratioType = 4 THEN
   IF ABS(high - low) > 0 THEN
      myRatio = (ABS(close - open) / ABS(high - low)) * sign
   ELSE
      myRatio = 0
   ENDIF
ENDIF


// --- MAIN LOGIC (RUNS ON THE LAST BAR) ---
IF ISLASTBARUPDATE THEN
   
   // Clear arrays for new calculation
   UNSET($sumArray)
   UNSET($sumOfSquaresArray)
   
   // Label for the current candle's ratio
   IF trendSquareLabels = 1 THEN
      
      ratio = ROUND(myRatio[1]*100)/100
      DRAWTEXT("Ratio: #ratio#", barindex[1], high[1] + (high[1]-low[1])*0.5) COLOURED(0,0,255)
   ENDIF
   
   // Loop to adjust accuracy and find matches
   matchesFound = 0
   loopBreaker = 0
   WHILE loopBreaker < 20 DO // Safety loop to prevent infinite loops
      matchesFound = 0
      lastBar = 0
      
      // Reset accumulation arrays
      FOR f = 0 TO forecast - 1 DO
         $sumArray[f] = 0
         $sumOfSquaresArray[f] = 0
      NEXT
      
      // Main loop to search through historical data
      FOR i = forecast + lastBar TO (loopback + forecast) DO
         
         barsDifference = ABS(ABS(myRatio[i]) - ABS(myRatio[1]))
         
         ratioSignI = 0
         IF myRatio[i] > 0 THEN
            ratioSignI = 1
         ELSIF myRatio[i] < 0 THEN
            ratioSignI = -1
         ENDIF
         
         ratioSignCurrent = 0
         IF myRatio[1] > 0 THEN
            ratioSignCurrent = 1
         ELSIF myRatio[1] < 0 THEN
            ratioSignCurrent = -1
         ENDIF
         
         ratioDirectionMatch = (ratioSignI = ratioSignCurrent)
         
         IF (barsDifference <= accuracy AND ratioDirectionMatch) OR (barsDifference <= accuracy AND directionBias = 0) THEN
            matchesFound = matchesFound + 1
            
            // Accumulate values for the forecast
            FOR y = 0 TO forecast - 1 DO
               candleValue = close[i - y - 1] - close[i]
               $sumArray[y] = $sumArray[y] + candleValue
               $sumOfSquaresArray[y] = $sumOfSquaresArray[y] + POW(candleValue, 2)
            NEXT
            
            // Draw boxes and labels on past matches
            IF trendSquare = 1 OR trendSquareLabels = 1 THEN
               mytop = highest[forecast](high[i-1])
               mybottom = lowest[forecast](low[i-1])
               
               IF trendSquare = 1 THEN
                  DRAWRECTANGLE(barindex[i], mytop, barindex[i - forecast], mybottom) COLOURED(192,192,192)fillcolor(192,192,192,50)
               ENDIF
               
               IF trendSquareLabels = 1 THEN
                  directionColorR = 255
                  directionColorG = 0
                  IF myRatio[i] > 0 THEN
                     directionColorR = 0
                     directionColorG = 255
                  ENDIF
                  ratio = ROUND(myRatio[i]*100)/100
                  DRAWTEXT("Match: #ratio#", barindex[i], high[i] + (high[i]-low[i])*0.5) COLOURED(directionColorR, directionColorG, 0)
               ENDIF
            ENDIF
            
            // Update to avoid repeating the same candle (optimization)
            lastBar = i
         ENDIF
      NEXT
      
      // Accuracy adjustment logic
      IF matchesFound < 5 THEN
         accuracy = accuracy + 0.01
      ELSIF matchesFound > 15 THEN
         accuracy = accuracy - 0.005
      ELSE
         ratioNotFindable = 0
         BREAK // Exit the WHILE loop
      ENDIF
      
      IF accuracy > 0.1 AND matchesFound = 0 THEN
         ratioNotFindable = 1
         IF displayLogs = 1 THEN
            DRAWTEXT("WARNING: No matches found.", barindex - 50, high) ANCHOR(TOPLEFT, INDEX, YSHIFT) COLOURED(255,165,0)
         ENDIF
         BREAK
      ENDIF
      
      loopBreaker = loopBreaker + 1
   WEND
   
   // --- DRAWING THE FORECAST LINE ---
   IF ratioNotFindable = 0 AND matchesFound > 0 THEN
      deviation = (ArrayMax($sumArray)/matchesFound - ArrayMin($sumArray)/matchesFound) / 2
      
      FOR i = 0 TO forecast - 2 DO
         avgCurrent = $sumArray[i] / matchesFound
         avgNext = $sumArray[i+1] / matchesFound
         
         // Calculate standard deviation for color
         sumSqCurrent = $sumOfSquaresArray[i]
         stdevCurrent = SQRT((sumSqCurrent / matchesFound) - POW(avgCurrent, 2))
         
         // Simulate gradient color
         lineR = deviationLowR
         lineG = deviationLowG
         lineB = deviationLowB
         IF stdevCurrent > deviation / 2 THEN
            lineR = deviationHighR
            lineG = deviationHighG
            lineB = deviationHighB
         ENDIF
         
         // Draw a segment of the forecast line
         DRAWSEGMENT(barindex + i + 1, close[1] + avgCurrent, barindex + i + 2, close[1] + avgNext) STYLE(Line, 2) COLOURED(lineR, lineG, lineB)
      NEXT
   ENDIF
ENDIF

RETURN