// Indicateur PB Support 20241005
// Renvoie le prochain support à la Baisse, 0 lorsque on est dans une phase en dessous de tous les Cours déjà enregistrés sans qu'un nouveau PB sur 3 barres n'ai été détecté,
// dans ce cas, on a un ATL, (All Times Low) et on renvoie 0 jusqu'à ce qu'un nouveau PB sur 3 barres ait été détecté
// pas de gestion des numéros de barres
// dans cet indicateur, on gère un tableau $PB qui stocke toutes les vlaeurs des PB rencontrés inférieurs au Low actuel
// l'indicatgeur renvoie le PB le plus proche de la barre actuelle
CondPB = (low[1] < low) and (low[1] < low[2])
if condPB then
// on a détecté un nouvel élément... il faut le mettre dans la pile
valPB = low[1]
// l'idée est dee stocker ce nouveau PB dans la pile
// On le stocke dans la valeur maximale de la pile
$PB[LastSet($PB) + 1] = valPB
// on classe le tableau $PB par valeurs décroissantes
ArraySort($PB, Descend)
// c'est termine pour la pile
// fin de if condPB then
endif
// nettoyage de la pile si on a franchi un support existant
if (Low < $PB[0]) then
// en partique la condition and ($PB[0] <>0) est inutile car (Low < $PB[0]) sous-entend que $PB[0] est non nul
// il faut dépiler et répéter le dépilage tant que la condition sera respectée, la condition (low < $PB[0]) sous-entend que la pile est non vide
// donc que LastSet($PB) vaut au moins 0
while (low < $PB[0]) do
// on annulle la valeur $PB[>0]
$PB[0] = 0
// on classe le tableau en mode descendant
ArraySort($PB, Descend)
// fin de la boucle while
wend
// fin de if (Low < $PB[0]) then
endif
Return $PB[0] as "Prochain Support à la baisse"
.
