Drawrectangle Evolutif/Astuce

• 12/10/2024 at 12:19 PM #241306
  Alai-n

  Ce post n’a d’autre but que de faire connaître le travail d’un membre du forum, “Blade 106” bien trop peu actif à mon sens!
  Dans le cadre de la représentation graphique de “Fair Value Gap(FVG)” selon l’approche ICT-SMC, il a créé un “Drawrectangle” rétractable. J’ignorais que ce procédé était possible sur Probuilder.
  Il est d’habitude de voir des “Drawrectangle” qui restent fixes et figés dans le temps sur nos graphiques. Avec la formulation de “Blade 106”, les “Drawrectangle” vont disparaître au fur et à mesure que les “FVG” vont être comblés.
  Je trouve ça génial et cela rend vraiment les graphiques beaucoup plus lisibles!
  Je le mets en avant ici, afin de peut-être démocratiser la formule dans la perspective de nouveaux algorithmes…
  Je joins le code et une image, mais il va de soi que seul un accès en temps réel peut permettre de se rendre compte de la beauté de la chose!

  By Blade 106

  DEFPARAM DrawOnLastBarOnly = true DEBUG = 0 // Start of code, don't change anything below IF IsLastBarUpdate THEN $RangeHigh[0] = 0 $RangeLow[0] = 0 $RangeIndex[0] = 0 RangeIdx = 0 BI = 0 B = 0 RI = 0 TotalBars = BarIndex[0] IF DEBUG = 1 THEN DRAWTEXT("Total bars: #TotalBars#", BarIndex[0], High[0]) ENDIF // List all imbalance FOR RI = 1 TO TotalBars - 2 DO BI = BarIndex[RI] //drawtext("#BI#", BI, High[RI]) IF High[BI - 1] < Low[BI + 1] THEN RangeIdx = RangeIdx + 1 $RangeHigh[RangeIdx] = Low[BI + 1] $RangeLow[RangeIdx] = High[BI - 1] $RangeIndex[RangeIdx] = RI ENDIF IF High[BI + 1] < Low[BI - 1] THEN RangeIdx = RangeIdx + 1 $RangeHigh[RangeIdx] = Low[BI - 1] $RangeLow[RangeIdx] = High[BI + 1] $RangeIndex[RangeIdx] = RI ENDIF NEXT IF DEBUG = 1 THEN DRAWTEXT("Imbalance found: #RangeIdx#", BarIndex[0], Low[0]) ENDIF // Remove mitigated imbalance FOR RI = 1 TO RangeIdx DO IF DEBUG = 1 THEN DRAWRECTANGLE($RangeIndex[RI] - 1, $RangeHigh[RI], $RangeIndex[RI] + 1, $RangeLow[RI]) COLOURED(0,0,200) ENDIF Valid = 1 FOR B = $RangeIndex[RI] + 2 TO TotalBars DO LB = Low[BarIndex[B]] HB = High[BarIndex[B]] // Candle is above or below our zone, ignore it IF LB >= $RangeHigh[RI] OR HB <= $RangeLow[RI] THEN IF DEBUG = 1 THEN DRAWTEXT("Out", B, High[BarIndex[B]]) ENDIF CONTINUE ENDIF IF LB <= $RangeLow[RI] THEN // Candle engulfs our zone, so imbalance is mitigated IF HB >= $RangeHigh[RI] THEN IF DEBUG = 1 THEN DRAWTEXT("Mitigated", B, High[BarIndex[B]]) ENDIF Valid = 0 BREAK ENDIF IF DEBUG = 1 THEN DRAWTEXT("High", B, High[BarIndex[B]]) ENDIF $RangeLow[RI] = HB ELSE // In this case, Low is within the zone IF DEBUG = 1 THEN DRAWTEXT("Low", B, High[BarIndex[B]]) ENDIF $RangeHigh[RI] = LB ENDIF NEXT IF Valid = 1 THEN DRAWRECTANGLE($RangeIndex[RI], $RangeHigh[RI], TotalBars+2000, $RangeLow[RI]) COLOURED(0,0,0,0) FILLCOLOR(0,0,0,30) ENDIF NEXT 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 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89

  DEFPARAM DrawOnLastBarOnly = true DEBUG = 0   // Start of code, don't change anything below   IF IsLastBarUpdate THEN $RangeHigh[0] = 0 $RangeLow[0] = 0 $RangeIndex[0] = 0 RangeIdx = 0 BI = 0 B = 0 RI = 0 TotalBars = BarIndex[0]   IF DEBUG = 1 THEN DRAWTEXT("Total bars: #TotalBars#", BarIndex[0], High[0]) ENDIF   // List all imbalance FOR RI = 1 TO TotalBars - 2 DO BI = BarIndex[RI] //drawtext("#BI#", BI, High[RI]) IF High[BI - 1] < Low[BI + 1] THEN RangeIdx = RangeIdx + 1 $RangeHigh[RangeIdx] = Low[BI + 1] $RangeLow[RangeIdx] = High[BI - 1] $RangeIndex[RangeIdx] = RI ENDIF IF High[BI + 1] < Low[BI - 1] THEN RangeIdx = RangeIdx + 1 $RangeHigh[RangeIdx] = Low[BI - 1] $RangeLow[RangeIdx] = High[BI + 1] $RangeIndex[RangeIdx] = RI ENDIF NEXT   IF DEBUG = 1 THEN DRAWTEXT("Imbalance found: #RangeIdx#", BarIndex[0], Low[0]) ENDIF   // Remove mitigated imbalance FOR RI = 1 TO RangeIdx DO IF DEBUG = 1 THEN DRAWRECTANGLE($RangeIndex[RI] - 1, $RangeHigh[RI], $RangeIndex[RI] + 1, $RangeLow[RI]) COLOURED(0,0,200) ENDIF   Valid = 1 FOR B = $RangeIndex[RI] + 2 TO TotalBars DO LB = Low[BarIndex[B]] HB = High[BarIndex[B]] // Candle is above or below our zone, ignore it IF LB >= $RangeHigh[RI] OR HB <= $RangeLow[RI] THEN IF DEBUG = 1 THEN DRAWTEXT("Out", B, High[BarIndex[B]]) ENDIF CONTINUE ENDIF   IF LB <= $RangeLow[RI] THEN // Candle engulfs our zone, so imbalance is mitigated IF HB >= $RangeHigh[RI] THEN IF DEBUG = 1 THEN DRAWTEXT("Mitigated", B, High[BarIndex[B]]) ENDIF Valid = 0 BREAK ENDIF IF DEBUG = 1 THEN DRAWTEXT("High", B, High[BarIndex[B]]) ENDIF $RangeLow[RI] = HB ELSE // In this case, Low is within the zone IF DEBUG = 1 THEN DRAWTEXT("Low", B, High[BarIndex[B]]) ENDIF $RangeHigh[RI] = LB ENDIF NEXT IF Valid = 1 THEN DRAWRECTANGLE($RangeIndex[RI], $RangeHigh[RI], TotalBars+2000, $RangeLow[RI]) COLOURED(0,0,0,0) FILLCOLOR(0,0,0,30) ENDIF   NEXT   ENDIF   RETURN

  

  Alai-n

  Participant

  Topics: 45

  Replies: 225

  Been thanked: 30 times
  12/10/2024 at 12:21 PM #241309
  Alai-n

  https://www.prorealcode.com/user/blade106/?view=forums-replies

  1 user thanked author for this post.

  Iván

  

  Alai-n

  Participant

  Topics: 45

  Replies: 225

  Been thanked: 30 times
  12/10/2024 at 1:53 PM #241313
  Iván

  gracias

  

  Iván

  Moderator

  Topics: 0

  Replies: 1026

  Been thanked: 363 times
  12/10/2024 at 8:30 PM #241318
  LucasBest

  C’est l’instruction ci-dessous qui efface tous les éléments graphiques à chaque nouvelle bougie (c”est par ailleurs le seul moyen d’effacer à ma connaissance), pour ne retracer que les éléments que l’on demande au code de tracer lors de la dernière lecture du code (suite à la dernière bougie donc). Il suffit de stocker tous les éléments que l’on veut retracer dans un tableau (avec possibilité d’en éliminer au passage) pour les retracer tous à chaque nouvelle bougie en parcourant le tableau… Cela fonctionne bien sûre avec toutes les instructions graphiques (segments, ligne triangle, etc)

  DEFPARAM DrawOnLastBarOnly = true

  

  LucasBest

  Participant

  Topics: 16

  Replies: 219

  Been thanked: 78 times
• Author
  Posts