| //————————————– |
| //PRC_DTFX Algo Zones [LuxAlgo] |
| //version = 0 |
| //22.12.2025 |
| //Iván González @ http://www.prorealcode.com |
| //Sharing ProRealTime knowledge |
| //————————————– |
| // — Parameters — |
| //————————————– |
| prd = 10 |
| fibLevel1 = 0.3 |
| fibLevel2 = 0.5 |
| fibLevel3 = 0.7 |
| //————————————– |
| // — Pivot Detection — |
| //————————————– |
| // Pivot high |
| IF high[prd] = HIGHEST[2 * prd + 1](high) THEN |
| ph = high[prd] |
| phx = BARINDEX[prd] |
| boxBreak = 0 |
| drawpoint(phx,ph,1)coloured(“grey”) |
| ENDIF |
| // Pivot Low |
| IF low[prd] = LOWEST[2 * prd + 1](low) THEN |
| pl = low[prd] |
| plx = BARINDEX[prd] |
| boxBreak = 0 |
| drawpoint(plx,pl,1)coloured(“grey”) |
| ENDIF |
| //————————————– |
| // — Breakout Logic — |
| //————————————– |
| conditionUp = close CROSSES OVER ph |
| conditionDown = close CROSSES UNDER pl |
|
| IF (conditionUp OR conditionDown) AND boxBreak = 0 THEN |
| // A new zone is born |
| boxBreak = 1 |
| zoneActive = 1 |
|
| // Determine the box origin |
| IF phx < plx THEN |
| startX = phx |
| ELSE |
| startX = plx |
| ENDIF |
|
| // Store levels for the continuous lines |
| rangeSize = ph – pl |
| // Calculate Fibonacci levels for this specific zone |
| activeFib1 = pl + (rangeSize * fibLevel1) |
| activeFib2 = pl + (rangeSize * fibLevel2) |
| activeFib3 = pl + (rangeSize * fibLevel3) |
|
| // Set colors based on breakout direction |
| IF conditionUp THEN |
| // Bullish colors (Greenish) |
| r = 8 |
| g = 153 |
| b = 129 |
| ELSE |
| // Bearish colors (Reddish) |
| r = 242 |
| g = 54 |
| b = 69 |
| ENDIF |
| // Draw the static rectangle (from origin to breakout bar) |
| DRAWRECTANGLE(startX, ph, BARINDEX, pl) COLOURED(r, g, b, 50) BORDERCOLOR(0, 0, 0, 0) |
| // Update the start bar for the moving lines |
| lastBreakoutBar = BARINDEX |
| ENDIF |
| //————————————– |
| // — Continuous Fibo Line Projection — |
| //————————————– |
| IF zoneActive = 1 AND BARINDEX > lastBreakoutBar THEN // Draw segments from the previous bar to the current one to create a continuous line |
| DRAWSEGMENT(BARINDEX[1], activeFib1, BARINDEX, activeFib1) STYLE(DOTTEDLINE, 1) COLOURED(r, g, b) |
| DRAWSEGMENT(BARINDEX[1], activeFib2, BARINDEX, activeFib2) STYLE(LINE, 1) COLOURED(r, g, b) |
| DRAWSEGMENT(BARINDEX[1], activeFib3, BARINDEX, activeFib3) STYLE(DOTTEDLINE, 1) COLOURED(r, g, b) |
| ENDIF |
| //————————————– |
| // — Internal box lines — |
| //————————————– |
| IF (conditionUp OR conditionDown) AND boxBreak = 1 THEN |
| DRAWSEGMENT(startX, activeFib1, BARINDEX, activeFib1) STYLE(DOTTEDLINE, 1) COLOURED(r, g, b) |
| DRAWSEGMENT(startX, activeFib2, BARINDEX, activeFib2) STYLE(LINE, 1) COLOURED(r, g, b) |
| DRAWSEGMENT(startX, activeFib3, BARINDEX, activeFib3) STYLE(DOTTEDLINE, 1) COLOURED(r, g, b) |
| ENDIF |
| //————————————– |
| RETURN |
.
