Ecco!!
//----------------------------------------------
//PRC_FVG Fair value MS
//version = 0
//01.04.24
//Iván González @ www.prorealcode.com
//Sharing ProRealTime knowledge
//----------------------------------------------
// User Inputs
//----------------------------------------------
ONCE fvgTog = 1 // 1="Structural", 2="All", 3="None"
// --- Colores FVG ---
ONCE upColR = 58
ONCE upColG = 170
ONCE upColB = 69
ONCE downColR = 255
ONCE downColG = 3
ONCE downColB = 62
ONCE upFillColR = 0
ONCE upFillColG = 0
ONCE upFillColB = 0
ONCE upFillColA = 100
ONCE downFillColR = 0
ONCE downFillColG = 0
ONCE downFillColB = 0
ONCE downFillColA = 100
// --- Áreas de Interés (AOI) ---
ONCE aoiNum = 3 // Número de AOIs a extender
ONCE bullColorR = 58
ONCE bullColorG = 170
ONCE bullColorB = 69
ONCE bullColorA = 20
ONCE bearColorR = 255
ONCE bearColorG = 3
ONCE bearColorB = 62
ONCE bearColorA = 20
ONCE bullFillColorR = 58
ONCE bullFillColorG = 170
ONCE bullFillColorB = 69
ONCE bullFillColorA = 20
ONCE bearFillColorR = 255
ONCE bearFillColorG = 3
ONCE bearFillColorB = 62
ONCE bearFillColorA = 20
ONCE textTog = 0 // 0=false, 1=true
ONCE textColorR = 255
ONCE textColorG = 255
ONCE textColorB = 255
ONCE textColorA = 60
ONCE textSize = 10
// --- Líneas de Reflexión ---
ONCE refTog = 1 // 0=false, 1=true
ONCE refDownColR = 255
ONCE refDownColG = 60
ONCE refDownColB = 0
ONCE refUpColR = 0
ONCE refUpColG = 77
ONCE refUpColB = 146
ONCE refCount = 3
// --- Estructura de Mercado (MS) ---
ONCE msTog = 1 // 0=false, 1=true
ONCE msStyle = 1 // 1=Solid, 2=Dashed, 3=Dotted
ONCE mssBullTog = 1 // 0=false, 1=true
ONCE mssBullStyle = 2 // 1=Solid, 2=Dashed, 3=Dotted
ONCE mssBullColR = 58
ONCE mssBullColG = 170
ONCE mssBullColB = 69
ONCE mssBearTog = 1 // 0=false, 1=true
ONCE mssBearStyle = 2 // 1=Solid, 2=Dashed, 3=Dotted
ONCE mssBearColR = 255
ONCE mssBearColG = 3
ONCE mssBearColB = 62
// --- Sesión ---
ONCE seshinStart = 093000
ONCE seshinEnd = 160000
ONCE stog = 1 // 0=false, 1=true
ONCE sstyle = 2 // 1=Solid, 2=Dashed, 3=Dotted
ONCE scR = 128
ONCE scG = 128
ONCE scB = 128
ONCE scA = 50
ONCE etog = 1 // 0=false, 1=true
ONCE estyle = 2 // 1=Solid, 2=Dashed, 3=Dotted
ONCE ecR = 255
ONCE ecG = 3
ONCE ecB = 62
ONCE ecA = 50
//----------------------------------------------
// Variables y Arrays
//----------------------------------------------
ONCE dir = 0
ONCE mssdir = 0
ONCE bullaoicheck = 0
ONCE bearaoicheck = 0
ONCE hstPrice = 0
ONCE hstBar = 0
ONCE lstPrice = 0
ONCE lstBar = 0
ONCE pivhiPrice = 0
ONCE pivhiBar = 0
ONCE pivloPrice = 0
ONCE pivloBar = 0
ONCE phaoiTopPrice = high
ONCE phaoiTopBar = 0
ONCE phaoiBotPrice = high
ONCE phaoiBotBar = 0
ONCE plaoiTopPrice = low
ONCE plaoiTopBar = 0
ONCE plaoiBotPrice = low
ONCE plaoiBotBar = 0
ONCE pivloclaimed = 0
ONCE pivhiclaimed = 0
// Arrays para AOIs Bullish
ONCE bullAoisCount = 0
// Arrays para AOIs Bearish
ONCE bearAoisCount = 0
// Arrays para Líneas de Reflexión
ONCE rValsCount = 0
fvgup = (low > high[2]) AND (close[1] > high[2])
fvgdown = (high < low[2]) AND (close[1] < low[2])
ctop = MAX(open, close)
cbot = MIN(open, close)
//----------------------------------------------
// Lógica FVG y Estructura
//----------------------------------------------
IF fvgTog = 2 THEN // "All"
IF fvgdown THEN
DRAWRECTANGLE(barindex[2], low[2], barindex, high) COLOURED(downColR, downColG, downColB)
$fvgTop[fvgCount+1] = high
$fvgBottom[fvgCount+1] = low[2]
$fvgLeft[fvgCount+1] = barindex[2]
$fvgType[fvgCount+1] = -1
fvgCount = fvgCount + 1
ENDIF
IF fvgup THEN
DRAWRECTANGLE(barindex[2], high[2], barindex, low) COLOURED(upColR, upColG, upColB)
$fvgTop[fvgCount+1] = low
$fvgBottom[fvgCount+1] = high[2]
$fvgLeft[fvgCount+1] = barindex[2]
$fvgType[fvgCount+1] = 1
fvgCount = fvgCount + 1
ENDIF
ENDIF
IF dir = 0 THEN
IF fvgup THEN
dir = 1
hstPrice = high
hstBar = barindex
lstPrice = low
lstBar = barindex
ENDIF
IF fvgdown THEN
dir = -1
hstPrice = high
hstBar = barindex
lstPrice = low
lstBar = barindex
ENDIF
ENDIF
IF dir = 1 THEN
IF high >= hstPrice THEN
hstPrice = high
hstBar = barindex
lstPrice = low
lstBar = barindex
elsif low <= lstPrice THEN
lstPrice = low
lstBar = barindex
ENDIF
IF fvgdown THEN
dir = -1
pivhiPrice = hstPrice
pivhiBar = hstBar
pivhiclaimed = 0
IF hstPrice > pivhiPrice[1] THEN
IF (pivhiPrice >= phaoiTopPrice AND bearaoicheck) OR NOT bearaoicheck THEN
phaoiTopPrice = pivhiPrice
phaoiTopBar = pivhiBar
phaoiBotPrice = low[2]
phaoiBotBar = barindex
bearaoicheck = 1
ENDIF
ENDIF
hstPrice = high
hstBar = barindex
// lst se mantiene
IF msTog THEN
DRAWSEGMENT(pivhiBar, pivhiPrice, pivloBar, pivloPrice) COLOURED(128,128,128,60) STYLE(line, 2)
ENDIF
IF fvgTog = 1 THEN // "Structural"
DRAWRECTANGLE(barindex[2], low[2], barindex, high) COLOURED(downColR, downColG, downColB, downFillColA)
$fvgTop[fvgCount+1] = high
$fvgBottom[fvgCount+1] = low[2]
$fvgLeft[fvgCount+1] = barindex[2]
$fvgType[fvgCount+1] = -1
fvgCount = fvgCount + 1
ENDIF
ENDIF
ENDIF
IF dir = -1 THEN
IF low <= lstPrice THEN
hstPrice = high
hstBar = barindex
lstPrice = low
lstBar = barindex
ENDIF
IF high >= hstPrice THEN
hstPrice = high
hstBar = barindex
ENDIF
IF fvgup THEN
dir = 1
pivloPrice = lstPrice
pivloBar = lstBar
pivloclaimed = 0
IF lstPrice < pivloPrice[1] THEN
IF (pivloPrice <= plaoiBotPrice AND bullaoicheck) OR NOT bullaoicheck THEN
plaoiTopPrice = high[2]
plaoiTopBar = barindex
plaoiBotPrice = pivloPrice
plaoiBotBar = pivloBar
bullaoicheck = 1
ENDIF
ENDIF
// hst se mantiene
lstPrice = low
lstBar = barindex
IF msTog THEN
DRAWSEGMENT(pivhiBar, pivhiPrice, pivloBar, pivloPrice) COLOURED(128,128,128,60) STYLE(line, 2)
ENDIF
IF fvgTog = 1 THEN // "Structural"
DRAWRECTANGLE(barindex[2], high[2], barindex, low) COLOURED(upColR, upColG, upColB, upFillColA)
$fvgTop[fvgCount+1] = low
$fvgBottom[fvgCount+1] = high[2]
$fvgLeft[fvgCount+1] = barindex[2]
$fvgType[fvgCount+1] = 1
fvgCount = fvgCount + 1
ENDIF
ENDIF
ENDIF
//----------------------------------------------
// --- Detección de Ruptura de Estructura (MSS) y Activación de AOIs ---
//----------------------------------------------
// --- Ruptura Alcista ---
IF close CROSSES OVER pivhiPrice AND pivhiPrice > 0 THEN
DRAWSEGMENT(pivhiBar, pivhiPrice, barindex, pivhiPrice) STYLE(dottedline) COLOURED(mssBullColR, mssBullColG, mssBullColB)
// ACTIVAMOS Y GUARDAMOS EL AOI ALCISTA
IF bullaoicheck THEN
cumvol = 0
FOR i = plaoiTopBar DOWNTO plaoiBotBar DO
cumvol = cumvol + volume[barindex-i]
NEXT
// Guardamos los datos del AOI en los arrays para dibujarlos al final
$bullAoisTop[bullAoisCount] = plaoiTopPrice
$bullAoisBottom[bullAoisCount] = plaoiBotPrice
$bullAoisLeftBar[bullAoisCount] = plaoiBotBar
$bullAoisRightBar[bullAoisCount] = barindex
$bullAoisVolume[bullAoisCount] = cumvol
$bullAoisBreak[bullAoisCount] = 0
bullAoisCount = bullAoisCount + 1
// Reseteamos el check para que este AOI no se guarde dos veces
bullaoicheck = 0
// Guardamos el nivel del pivote bajo para la Línea de Reflexión
$rValsPrice[rValsCount] = plaoiBotPrice // Precio del pivote bajo
$rValsBar[rValsCount] = plaoiBotBar // Barindex del pivote bajo
rValsCount = rValsCount + 1
ENDIF
// --- Ruptura Bajista ---
ELSIF close CROSSES UNDER pivloPrice AND pivloPrice > 0 THEN
// Dibujamos la línea de ruptura
DRAWSEGMENT(pivloBar, pivloPrice, barindex, pivloPrice) STYLE(dottedline,3) COLOURED(mssBearColR, mssBearColG, mssBearColB)
// ACTIVAMOS Y GUARDAMOS EL AOI BAJISTA
IF bearaoicheck THEN
// Calculamos el volumen
cumvol = 0
FOR i = phaoiBotBar DOWNTO phaoiTopBar DO
cumvol = cumvol + volume[barindex-i]
NEXT
// Guardamos los datos del AOI en los arrays
$bearAoisTop[bearAoisCount] = phaoiTopPrice
$bearAoisBottom[bearAoisCount] = phaoiBotPrice
$bearAoisLeftBar[bearAoisCount] = phaoiTopBar
$bearAoisRightBar[bearAoisCount] = barindex
$bearAoisVolume[bearAoisCount] = cumvol
$bearAoisBreak[bearAoisCount] = 0
bearAoisCount = bearAoisCount + 1
// Reseteamos el check
bearaoicheck = 0
// Guardamos el nivel del pivote alto para la Línea de Reflexión
$rValsPrice[rValsCount] = phaoiTopPrice // Precio del pivote alto
$rValsBar[rValsCount] = phaoiTopBar // Barindex del pivote alto
rValsCount = rValsCount + 1
ENDIF
ENDIF
//----------------------------------------------
// Draw AOIs
//----------------------------------------------
if islastbarupdate then
for i=bearAoisCount downto 1 do
dist = barindex-$bearAoisLeftBar[i]
if $bearAoisBreak[i] = 0 then
for j=dist downto 0 do
if high[j] > $bearAoisTop[i] and $bearAoisBreak[i] = 0 then
$bearAoisBreak[i] = 1
$bearAoisRightBar[i] = barindex[j]
break
endif
next
endif
if $bearAoisBreak[i] = 1 then
drawrectangle($bearAoisLeftBar[i],$bearAoisBottom[i],$bearAoisRightBar[i],$bearAoisTop[i])coloured(downColR,downColG,downColB)fillcolor(downColR,downColG,downColB,50)
else
drawrectangle($bearAoisLeftBar[i],$bearAoisBottom[i],barindex,$bearAoisTop[i])coloured(downColR,downColG,downColB)fillcolor(downColR,downColG,downColB,50)
endif
next
for i=bullAoisCount downto 1 do
dist = barindex-$bullAoisLeftBar[i]
if $bullAoisBreak[i] = 0 then
for j=dist downto 0 do
if low[j] < $bullAoisBottom[i] and $bullAoisBreak[i] = 0 then
$bullAoisBreak[i] = 1
$bullAoisRightBar[i] = barindex[j]
break
endif
next
endif
if $bullAoisBreak[i] = 1 then
drawrectangle($bullAoisLeftBar[i],$bullAoisBottom[i],$bullAoisRightBar[i],$bullAoisTop[i])coloured(upColR,upColG,upColB)fillcolor(upColR,upColG,upColB,50)
else
drawrectangle($bullAoisLeftBar[i],$bullAoisBottom[i],barindex,$bullAoisTop[i])coloured(upColR,upColG,upColB)fillcolor(upColR,upColG,upColB,50)
endif
next
// --- DIBUJO DE LÍNEAS DE REFLEXIÓN ---
IF refTog THEN
// Calculamos el precio medio suavizado
threshold = averagetruerange[14]
ONCE rope = close
move = close - rope
rope = rope + MAX(ABS(move) - threshold, 0) * SGN(move)
mean = rope
// Controlamos que el array no supere refCount
WHILE rValsCount > refCount DO
// Simular un desplazamiento (shift) para eliminar el elemento más antiguo
FOR i = 0 TO rValsCount - 2 DO
$rValsPrice[i] = $rValsPrice[i+1]
$rValsBar[i] = $rValsBar[i+1]
NEXT
rValsCount = rValsCount - 1
WEND
// Dibujamos las líneas
FOR i = 0 TO rValsCount - 1 DO
valPrice = $rValsPrice[i]
valBar = $rValsBar[i]
// Lógica de color
IF mean < valPrice THEN
// Resistencia
DRAWSEGMENT(valBar, valPrice, barindex + 1, valPrice) COLOURED(refDownColR, refDownColG, refDownColB) STYLE(line, 2)
ELSE
// Soporte
DRAWSEGMENT(valBar, valPrice, barindex + 1, valPrice) COLOURED(refUpColR, refUpColG, refUpColB) STYLE(line, 2)
ENDIF
NEXT
ENDIF
endif
return
