10 biggest bars

• 03/22/2025 at 4:52 PM #245134
  Ludde

  I would appreciate help with an indicator under the following conditions.
  The indicator should display the 10 largest bars from the last 60 bars.
  The bars should be measured from the opening price to the closing price.
  If the bar is negative, it should display a blue arrow below the bar. If the bar is positive, it should display a yellow arrow below the bar.
  I would be grateful for your help.

   

  

  Ludde

  Participant

  Topics: 6

  Replies: 1

  Been thanked: 0 times
  03/22/2025 at 10:14 PM #245140
  robertogozzi

  There you go:

  DEFPARAM DrawOnLastBarOnly = True ONCE P = 60 //last 60 bars ONCE N = 10 //10 largest bars within the last 60 bars Body = abs(close - open) IF BarIndex > P THEN FOR i = 0 TO (P - 1) $LargestBody[i] = Body[i] $LargestBar[i] = BarIndex[i] $Bull[i] = 0 $Bear[i] = 0 IF (close[i] > open[i]) THEN $Bull[i] = 1 ENDIF IF (close[i] < open[i]) THEN $Bear[i] = 1 ENDIF $xLow[i] = low[i] $xRange[i] = range[i] NEXT ////////////////////////////////////////////////////////////////// // (Bubble Sort) FOR i = 0 TO (P - 1) FOR j = 0 TO (P - i - 1) IF $LargestBody[j] < $LargestBody[j + 1] THEN // swap data temp = $LargestBody[j] $LargestBody[j] = $LargestBody[j + 1] $LargestBody[j + 1] = temp // swap labels temp = $LargestBar[j] $LargestBar[j] = $LargestBar[j + 1] $LargestBar[j + 1] = temp // swap Bullish status temp = $Bull[j] $Bull[j] = $Bull[j + 1] $Bull[j + 1] = temp // swap Bearish status temp = $Bear[j] $Bear[j] = $Bear[j + 1] $Bear[j + 1] = temp // swap LOWs temp = $xLow[j] $xLow[j] = $xLow[j + 1] $xLow[j + 1] = temp // swap LOWs temp = $xRange[j] $xRange[j] = $xRange[j + 1] $xRange[j + 1] = temp ENDIF NEXT NEXT ////////////////////////////////////////////////////////////////// // plot Sorted arrays FOR i = 0 TO (N - 1) tempBAR = $LargestBar[i] tempLOW = $xLow[i] tempRANGE = $xRange[i] tempBODY = $LargestBody[i] tempBULL = $Bull[i] tempBEAR = $Bear[i] IF tempBULL THEN DrawArrowUP(tempBAR,tempLOW - tempRANGE) coloured("Yellow") ELSIF tempBEAR THEN DrawArrowUP(tempBAR,tempLOW - tempRANGE) coloured("Blue") ENDIF //drawtext("#tempBAR#",barindex + 2,close * (1 + (0.002 * i))) //drawtext("#tempBODY#",barindex + 8,close * (1 + (0.002 * i))) //drawtext("#tempLOW#",barindex + 14,close * (1 + (0.002 * i))) //drawtext("#tempRANGE#",barindex + 20,close * (1 + (0.002 * i))) //drawtext("#tempBULL#",barindex + 26,close * (1 + (0.002 * i))) //drawtext("#tempBEAR#",barindex + 32,close * (1 + (0.002 * i))) 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

  DEFPARAM DrawOnLastBarOnly = True ONCE P  = 60    //last 60 bars ONCE N  = 10    //10 largest bars within the last 60 bars Body    = abs(close - open) IF BarIndex > P THEN FOR i = 0 TO (P - 1) $LargestBody[i] = Body[i] $LargestBar[i]  = BarIndex[i] $Bull[i]        = 0 $Bear[i]        = 0 IF (close[i] > open[i]) THEN $Bull[i]     = 1 ENDIF IF (close[i] < open[i]) THEN $Bear[i]     = 1 ENDIF $xLow[i]        = low[i] $xRange[i]      = range[i] NEXT ////////////////////////////////////////////////////////////////// // (Bubble Sort) FOR i = 0 TO (P - 1) FOR j = 0 TO (P - i - 1) IF $LargestBody[j] < $LargestBody[j + 1] THEN // swap data temp                = $LargestBody[j] $LargestBody[j]     = $LargestBody[j + 1] $LargestBody[j + 1] = temp // swap labels temp                = $LargestBar[j] $LargestBar[j]      = $LargestBar[j + 1] $LargestBar[j + 1]  = temp // swap Bullish status temp                = $Bull[j] $Bull[j]            = $Bull[j + 1] $Bull[j + 1]        = temp // swap Bearish status temp                = $Bear[j] $Bear[j]            = $Bear[j + 1] $Bear[j + 1]        = temp // swap LOWs temp                = $xLow[j] $xLow[j]            = $xLow[j + 1] $xLow[j + 1]        = temp // swap LOWs temp                = $xRange[j] $xRange[j]          = $xRange[j + 1] $xRange[j + 1]      = temp ENDIF NEXT NEXT ////////////////////////////////////////////////////////////////// // plot Sorted arrays FOR i = 0 TO (N - 1) tempBAR   = $LargestBar[i] tempLOW   = $xLow[i] tempRANGE = $xRange[i] tempBODY  = $LargestBody[i] tempBULL  = $Bull[i] tempBEAR  = $Bear[i] IF tempBULL THEN DrawArrowUP(tempBAR,tempLOW - tempRANGE) coloured("Yellow") ELSIF tempBEAR THEN DrawArrowUP(tempBAR,tempLOW - tempRANGE) coloured("Blue") ENDIF //drawtext("#tempBAR#",barindex + 2,close * (1 + (0.002 * i))) //drawtext("#tempBODY#",barindex + 8,close * (1 + (0.002 * i))) //drawtext("#tempLOW#",barindex + 14,close * (1 + (0.002 * i))) //drawtext("#tempRANGE#",barindex + 20,close * (1 + (0.002 * i))) //drawtext("#tempBULL#",barindex + 26,close * (1 + (0.002 * i))) //drawtext("#tempBEAR#",barindex + 32,close * (1 + (0.002 * i))) NEXT ENDIF RETURN

   

  3 users thanked author for this post.

  Iván, Ludde, druby

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17461

  Been thanked: 4235 times
• Author
  Posts