Cet indicateur ne renvoie aucune valeur ni aucun signal.
Pouvez-vous m’expliquer quels sont les points (du graphique) qui vous intéressent, en joignant une photo ?

Salut ! Attention, car ce que tu montres dans ta capture ne pourra pas être réalisé. Je t’explique pourquoi.
Le bloc d’ordres se génère lorsqu’il y a une cassure à la hausse ou à la baisse des variables *topy* (ou *mytop*) et *boty* (ou *mybot*).
Quand cette cassure se produit, le code regarde alors en arrière pour calculer le *blockorder*.
Il serait en revanche possible de générer des signaux à partir du moment où le bloc d’ordres est généré jusqu’à son expiration.
Tu peux le voir dans l’image suivante.

2025-06-05_09-43.png

Je te donne un autre exemple pour que tu voies quelles signaux pourraient être pris en compte et lesquels non.

2025-06-05_10-08-1.png

Possible avec le PSR (Precise support and resistance) que j’ai déjà posté je ne sais où dans le forum.

Photo ci dessous c’est c’est matin sur us500 en 15min

DefParam DrawOnLastBarOnly = true

once PHn = -1
once PLn = -1
once Bindex = -1
once LastHigh= 0
once LastLow = 0

IF barindex >= prdG+prdD+1 then

If high[prdD] = highest[prdG+prdD+1](high) and barindex > LastHigh+prdD then
Bindex = Bindex+1
$BoxI[Bindex]=barindex-prdG-prdD
$BoxH[Bindex]=high[prdD]
$BoxL[Bindex]=highest[prdG+prdD+1](close)
LastHigh = barindex
Endif

If low[prdD] = lowest[prdG+prdD+1](low) and barindex > LastLow+prdD then
Bindex = Bindex+1
$BoxI[Bindex]=barindex-prdG-prdD
$BoxH[Bindex]=lowest[prdG+prdD+1](close)
$BoxL[Bindex]=low[prdD]
LastLow = barindex
Endif

If islastbarupdate then

unset($BH)
unset($BL)
unset($BI)
unset($BS)
Bi = -1

Start = Max(0,Bindex-MinPivotsCheck+1)

For i = start to Bindex do
BH1 = $BoxH[i]
BL1 = $BoxL[i]
BS = 1

For j = i+1 to Bindex do

if j = i then
break
endif

BH2 = $BoxH[j]
BL2 = $BoxL[j]

plushaut = BL2 > BH1
plusbas = BH2 < BL1
if not plushaut and not plusbas then
BH1 = min(BH1,BH2)
BL1 = max(BL1,BL2)
BS = BS+1
endif
Next

If BS >= MinReject then
ok = 1
for k = 0 to Bi do
BH2 = $BH[k]
BL2 = $BL[k]
plushaut = BL2 > BH1
plusbas = BH2 < BL1
if not plushaut and not plusbas then
BH1 = min(BH1,BH2)
BL1 = max(BL1,BL2)
ok = 0
$BH[k]= BH1
$BL[k]= BL1
$BS[k]= BS
break
endif
next
if ok then
Bi = Bi+1
$BH[Bi]= BH1
$BL[Bi]= BL1
$BI[Bi]= $BoxI[i]
$BS[Bi]= BS
endif
endif
Next

For i = 0 to Bi do
if high < $BH[i] then
Drawrectangle($BI[i],$BH[i],barindex+1,$BL[i]) bordercolor("darkred",255) style(line,1) coloured("darkred",30)
elsif low > $BL[i] then
Drawrectangle($BI[i],$BH[i],barindex+1,$BL[i]) bordercolor("Darkgreen",255) style(line,1) coloured("darkgreen",30)
else
Drawrectangle($BI[i],$BH[i],barindex+1,$BL[i]) bordercolor("grey",255) style(line,1) coloured("grey",30)
endif
Next
Endif
Endif

Return

Capture-decran-2025-06-05-105555.png PSR-Light.itf