Bogies renko

[Lurubu]

Bonjour,
J'ai écris un programme censé simuler le renko dans un graphe avec bougies, dans le but de pouvoir tester des stratégies en renko.
Cela fonctionne correctement tant que les LimH et LimB ne sont pas franchies sur la même bougie.
J'aimerais que l'effet de ces bougies soit éliminé .
Pouvez-vous me proposez une solution ?
Je vous envoie le programme et une image d'un cas gênant.

Merci d'avance.

Voici le programme :

------------------------------------------------------------------------------------------------------------------------
Express RG_RenkoPerso

Vars

Input $Renko(0,100,20);
Numeric Ecart;
Series PH,PB,LimH,LimH2,LimB,n,hh,bb;

Calculation

If IsFirstbar() then
begin
SetExpertsMode();
// NoDrawingOHLCinMC();
Ecart = $Renko * TickSize();
PH = Round(High,0);
PB = Round(Low,0);
LimH = High + Ecart;
LimB = Low - Ecart;
end
else
begin
PH = PH[1];
PB = PB[1];
LimH = LimH[1];
LimB = LimB[1];
end

If (High > LimH) and IsBarCompleted() then
begin
hh = Round((High - LimH)/Ecart,0);
LimH = Max(LimH + hh * Ecart,LimH + Ecart) ;
PH = LimH - Ecart;
PB = PH - Ecart;
LimB = PB - Ecart;
end

if (Low < LimB) and IsBarCompleted() then
begin
bb = Round((LimB - Low)/Ecart,0);
LimB = Min(LimB - bb * Ecart,LimB - Ecart);
PB = LimB[1];
PH = PB + Ecart;
LimH = PH + Ecart;
end

If (High > LimH) and (Low < LimB) then
begin
LimH = LimH[1];
PH = PH[1];
PB = PB[1];
LimB = LimB[1];
end


Interpretation
begin
end

PlotBand(PH,"Green",1,PB,"LightRed",1,"Green");
//Plot(PH,Green,0);
//Plot(PB,LightRed,0);
Plot(LimH,LightBlue,1);
Plot(LimB,Black,1);