DrawPoint et For Next : erreur sur plus hauts/bas

Essayez ceci :

DEFPARAM DrawOnlastBarOnly= True // Force the graph to the right


X= BarIndex // X-axis
Bars= 60    // 1 hour on UT 1m
a= 255      // Opacity


//=======================================================================================================================
//                                  1. CURRENT BLOCK (X, X[Bars])
//=======================================================================================================================
//----- Calculations
xATH= HighestBars[Bars](High)
yATH= Highest[Bars](High)
dATH= yATH - Close
vATH= ROUND((yATH / Close - 1) * 100, 2)


xATL= LowestBars[Bars](Low)
yATL= Lowest[Bars](Low)
dATL= yATL - Close
vATL= ROUND((yATL / Close - 1) * 100, 2)


//----- Graphic display
DrawSegment(X-Bars+1, yATH, X, yATH) Coloured("Cyan",a) Style(Line,2)
DrawSegment(X-Bars+1, yATL, X, yATL) Coloured("Cyan",a) Style(Line,2)


DrawPoint(X-Bars+1, yATH, 2) Coloured("Cyan",a)
DrawPoint(X-xATH, yATH, 4) Coloured("Cyan",a)
DrawPoint(X, yATH, 2) Coloured("Cyan",a)


DrawPoint(X-Bars+1, yATL, 2) Coloured("Cyan",a)
DrawPoint(X-xATL, yATL, 4) Coloured("Cyan",a)
DrawPoint(X, yATL, 2) Coloured("Cyan",a)


//----- Digital display
DrawText("Current block #Bars#bars: ATH: #yATH#  Δ: #dATH#  #vATH#%", 200, -10) Coloured("Cyan",a) Anchor(Top)
DrawText("Current block #Bars#bars: ATL: #yATL#  Δ: #dATL#  #vATL#%", 200, +10) Coloured("Cyan",a) Anchor(Bottom)


//----- Tag for a visual ATR of the price
ATR= ROUND(AverageTrueRange[13](Close), 5)
DrawPoint(X+2, yATL, 2) Coloured("White",a) Anchor(TopRight,Index,Value)
DrawPoint(X+2, yATL+ATR, 2) Coloured("White",a) Anchor(TopRight,Index,Value)
DrawSegment(X+2, yATL, X+2, yATL+ATR) Coloured("White",a) Style(Line,2) Anchor(TopRight,Index,Value)
DrawText("ATR[13]= #ATR#", X+2, yATL-ATR/2) Coloured("White",a) Anchor(TopRight,Index,Value)


//=======================================================================================================================
//                                 1.1 Subdivisions 15m of the current block 1H
//=======================================================================================================================
aRec= 30 // Opacity rectangle
step= 15

IF IsLastBarUpdate THEN
   FOR i= 0 TO 3 DO // 4 Blocks of 15m
      
      // Seed the candidate WITH its own X coordinate. The extreme of the block can be
      // the very first bar scanned, and in that case the inner IF never fires: without
      // this seed xHH / xLL would still hold the value left by the previous block.
      yHH= High[i*step]
      xHH= X - i*step
      yLL= Low[i*step]
      xLL= X - i*step
      
      FOR j= i*step + 1 TO i*step + 14 DO // 14 bars to compare
         IF yHH  Low[j] THEN
            yLL= Low[j]
            xLL= X - j
         ENDIF
      NEXT //...// 14 bars to compare
      
      // Display
      aRec= aRec + 20 // Opacity
      DrawRectangle(X-i*step, yHH, X-i*step-14, yLL) Coloured("Yellow",aRec)BorderColor("Yellow",0)
      DrawPoint(xHH, yHH, 3) Coloured("Yellow")
      DrawPoint(xLL, yLL, 3) Coloured("Yellow")
      
   NEXT //... 4 Block of 15m
ENDIF


//=======================================================================================================================
RETURN
//=======================================================================================================================

Modifiez la dernière partie du code (celle qui précède RETURN) comme suit :

IF IsLastBarUpdate THEN
FOR i= 0 TO 3 // 4 Blocks of 15m (15 bars, de 0 a 14)
yHH= High[i*step]
yLL= Low[i*step]




FOR j= i*step  TO i*step + 14 // 15 bars to compare
IF yHH < High[j] THEN
yHH= High[j]
xHH= X[j]
ENDIF
IF yLL > Low[j] THEN
yLL= Low[j]
xLL= X[j]
ENDIF
NEXT //...// 15 bars to compare




// Display
aRec= aRec + 20 // Opacity
DrawRectangle(X-i*step, yHH, X-i*step-14, yLL) Coloured("Yellow",aRec)BorderColor("Yellow",0)
DrawPoint(xHH, yHH, 3) Coloured("Yellow")
DrawPoint(xLL, yLL, 3) Coloured("Yellow")




NEXT //... 4 Block of 15m (15 bars)
ENDIF

x-2.jpg