Rectangles superposés

• 11/06/2025 at 5:23 PM #253376
  Bernard13

  Bonjour,
  Je ne sais pas comment m’y prendre pour transformer mon code ci-dessous afin d’obtenir sur le graph que les derniers rectangles des Ranges Bollinger sur l’historique et éviter ainsi les superpositions. Merci d’avance.

  #I BYP Bollinger Range

  // Bollinger Range //DEFPARAM DrawOnLastBarOnly= True // Force the graph to the right. => Uniquement le dernier rectangle dessiné. DEFPARAM DrawOnLastBarOnly= False // No force the graph to the right. => Tous les rectangles mais tous repeints. Src= Close deltaRangeBB= 5 // Range de 5 points sur le Spot Gold: XAUUSD BBup= BollingerUp[20](close) BBdn= BollingerDown[20](close) RangeBB= BBup - BBdn // En points LenRange= LenRange + 1 // longueur du range IF RangeBB >= deltaRangeBB THEN lenRange= 1 xRange= BarIndex ELSE // Range en court HH= Highest[LenRange](Src) LL= Lowest[LenRange](Src) DrawRectangle(xRange, LL, Barindex, HH) Coloured("Yellow", 50) BorderColor("Yellow", 0) ENDIF RETURN

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

  // Bollinger Range   //DEFPARAM DrawOnLastBarOnly= True // Force the graph to the right.   => Uniquement le dernier rectangle dessiné. DEFPARAM DrawOnLastBarOnly= False // No force the graph to the right. => Tous les rectangles mais tous repeints.   Src= Close deltaRangeBB= 5 // Range de 5 points sur le Spot Gold: XAUUSD   BBup= BollingerUp[20](close) BBdn= BollingerDown[20](close) RangeBB= BBup - BBdn // En points LenRange= LenRange + 1 // longueur du range   IF RangeBB >= deltaRangeBB THEN lenRange= 1 xRange= BarIndex ELSE // Range en court HH= Highest[LenRange](Src) LL= Lowest[LenRange](Src) DrawRectangle(xRange, LL, Barindex, HH) Coloured("Yellow", 50) BorderColor("Yellow", 0) ENDIF   RETURN

  

  Bernard13

  Participant

  Topics: 14

  Replies: 28

  Been thanked: 2 times
  11/07/2025 at 9:36 AM #253390
  Iván

  //DEFPARAM DrawOnLastBarOnly = False deltaRangeBB = 15 period = 20 BBup = BollingerUp[period](close) BBdn = BollingerDown[period](close) RangeBB = BBup - BBdn ONCE isInRange = 0 ONCE xStartRange = 0 ONCE HH = 0 ONCE LL = 0 IF RangeBB >= deltaRangeBB THEN IF isInRange = 1 THEN DrawRectangle(xStartRange, LL, BarIndex - 1, HH) COLOURED("Blue", 50) BorderColor("Blue", 0) ENDIF isInRange = 0 ELSE IF isInRange = 0 THEN isInRange = 1 xStartRange = BarIndex HH = high LL = low ELSE HH = MAX(HH, high) LL = MIN(LL, low) ENDIF ENDIF IF isInRange = 1 AND islastbarupdate THEN DrawRectangle(xStartRange, LL, BarIndex, HH) COLOURED("Blue", 50) BorderColor("Blue") ENDIF RETURN

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40

  //DEFPARAM DrawOnLastBarOnly = False   deltaRangeBB = 15 period = 20   BBup = BollingerUp[period](close) BBdn = BollingerDown[period](close) RangeBB = BBup - BBdn   ONCE isInRange = 0 ONCE xStartRange = 0 ONCE HH = 0 ONCE LL = 0   IF RangeBB >= deltaRangeBB THEN   IF isInRange = 1 THEN DrawRectangle(xStartRange, LL, BarIndex - 1, HH) COLOURED("Blue", 50) BorderColor("Blue", 0) ENDIF isInRange = 0   ELSE   IF isInRange = 0 THEN isInRange = 1 xStartRange = BarIndex HH = high LL = low ELSE HH = MAX(HH, high) LL = MIN(LL, low) ENDIF ENDIF   IF isInRange = 1 AND islastbarupdate THEN DrawRectangle(xStartRange, LL, BarIndex, HH) COLOURED("Blue", 50) BorderColor("Blue") ENDIF   RETURN

  1 user thanked author for this post.

  Bernard13

  

  Iván

  Moderator

  Topics: 0

  Replies: 1881

  Been thanked: 826 times
  11/07/2025 at 9:42 AM #253391
  Bernard13

  Bonjour,
  Finalement, j’ai trouvé la solution sans passer par les DEFPARAM, ou un LookBack et des tableaux.
  C’est en forgeant, qu’on devient forgeron !
  Bon codage à Toutes et à Tous. 🙂

  // Bollinger Range

  //DEFPARAM DrawOnLastBarOnly= True // Force the graph to the right. => Uniquement le dernier rectangle dessiné.
  //DEFPARAM DrawOnLastBarOnly= False // No force the graph to the right. => Tous les rectangles mais tous repeint.

  src= Close
  //deltaRangeBB= 5 // Range de 5 points sur le Spot Gold: XAUUSD

  BBup= BollingerUp[pBB](src)
  BBdn= BollingerDown[pBB](src)
  RangeBB= BBup – BBdn // En points

  LenRange= LenRange + 1 // longueur du range

  IF RangeBB >= deltaRangeBB THEN // Extinction du Range
  lenRange= 1
  HH= Highest[LenRange](Src)
  LL= HH //Lowest[LenRange](Src) // Evite les bavures à 0 de ColorBetween
  a= 0
  ELSE // Range en court
  HH= Highest[LenRange](Src)
  LL= Lowest[LenRange](Src)
  a= 200
  ENDIF

  ColorBetween(HH,LL,”Yellow”,a)

  RETURN

  

  Bernard13

  Participant

  Topics: 14

  Replies: 28

  Been thanked: 2 times
  11/07/2025 at 9:52 AM #253393
  Bernard13

  Merci Ivan,
  Ce matin, nos publications se sont presque télescopées ! …
  Je vais expérimenter ta solution.

  Merci encore pour l’immense travail que tu fournis en publications et traductions sur ce site.

  

  Bernard13

  Participant

  Topics: 14

  Replies: 28

  Been thanked: 2 times
  11/07/2025 at 10:15 AM #253394
  Bernard13

  Rebonjour Ivan,
  Voici la superposition des 2 solutions: Rectangles / ColorBetween
  Bons Trades.

  

  Bernard13

  Participant

  Topics: 14

  Replies: 28

  Been thanked: 2 times
• Author
  Posts