Color the Relative Volume Histogram

• 12/13/2023 at 8:58 AM #225168
  Marcel van Vliet

  Hi, Some how I cannot manage to color the histogram of the intraday Relative Volume indicator by Nicolas below, into blue for positive and red for negative (attached picture).

  Does anybody know which line must be added to the code for this?

   

   

  Intraday Relative Volume

  //Relative Volume indicator by Nicolas Period = 21 //X days averaging period intraindex = intradaybarindex $ivol[intraindex] = volume $gvol[barindex] = volume $gintraindex[barindex] = intraindex count = 0 sum = 0 for i = barindex downto 0 do if $gintraindex[i]=intraindex then //found same intraday bar sum=sum+$gvol[i] count=count+1 endif if count=period then break endif next avg = sum/period rvol = $ivol[intraindex] / avg return rvol style(histogram)//$ivol[intraindex], avg coloured(0,0,0)

  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

  //Relative Volume indicator by Nicolas   Period = 21 //X days averaging period intraindex = intradaybarindex $ivol[intraindex] = volume $gvol[barindex] = volume $gintraindex[barindex] = intraindex count = 0 sum = 0 for i = barindex downto 0 do if $gintraindex[i]=intraindex then //found same intraday bar sum=sum+$gvol[i] count=count+1 endif if count=period then break endif next avg = sum/period rvol = $ivol[intraindex] / avg return rvol style(histogram)//$ivol[intraindex], avg coloured(0,0,0)

   

  

  Marcel van Vliet

  Participant

  Topics: 62

  Replies: 98

  Been thanked: 7 times
  12/13/2023 at 9:42 AM #225178
  JS

  Hi Marcel

  The values of the indicator are always greater than zero (no negative values) so you can only set the color of the positive values manually.

  Here is the code to color the histogram:

  Relative Volume Histogram

  //Relative Volume indicator by Nicolas Period = 21 //X days averaging period intraindex = intradaybarindex $ivol[intraindex] = volume $gvol[barindex] = volume $gintraindex[barindex] = intraindex count = 0 sum = 0 for i = barindex downto 0 do if $gintraindex[i]=intraindex then //found same intraday bar sum=sum+$gvol[i] count=count+1 endif if count=period then break endif next avg = sum/period rvol = $ivol[intraindex] / avg If rvol>rvol[1] then R=0 G=255 B=0 ElsIf rvol<rvol[1] then R=255 G=0 B=0 EndIf return rvol style(histogram)Coloured(R,G,B)//$ivol[intraindex], avg coloured(0,0,0)

  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

  //Relative Volume indicator by Nicolas Period = 21 //X days averaging period intraindex = intradaybarindex $ivol[intraindex] = volume $gvol[barindex] = volume $gintraindex[barindex] = intraindex count = 0 sum = 0 for i = barindex downto 0 do if $gintraindex[i]=intraindex then //found same intraday bar sum=sum+$gvol[i] count=count+1 endif if count=period then break endif next avg = sum/period rvol = $ivol[intraindex] / avg   If rvol>rvol[1] then R=0 G=255 B=0 ElsIf rvol<rvol[1] then R=255 G=0 B=0 EndIf return rvol style(histogram)Coloured(R,G,B)//$ivol[intraindex], avg coloured(0,0,0)

  1 user thanked author for this post.

  Marcel van Vliet

  

  JS

  Participant

  Topics: 26

  Replies: 1716

  Been thanked: 778 times
  12/13/2023 at 9:59 AM #225182
  JS

  into blue for positive and red for negative 🙂

  Relative Volume Histogram

  //Relative Volume indicator by Nicolas Period = 21 //X days averaging period intraindex = intradaybarindex $ivol[intraindex] = volume $gvol[barindex] = volume $gintraindex[barindex] = intraindex count = 0 sum = 0 for i = barindex downto 0 do if $gintraindex[i]=intraindex then //found same intraday bar sum=sum+$gvol[i] count=count+1 endif if count=period then break endif next avg = sum/period rvol = $ivol[intraindex] / avg If rvol>rvol[1] then R=0 G=0 B=255 ElsIf rvol<rvol[1] then R=255 G=0 B=0 EndIf return rvol style(histogram)Coloured(R,G,B)//$ivol[intraindex], avg coloured(0,0,0)

  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

  //Relative Volume indicator by Nicolas Period = 21 //X days averaging period intraindex = intradaybarindex $ivol[intraindex] = volume $gvol[barindex] = volume $gintraindex[barindex] = intraindex count = 0 sum = 0 for i = barindex downto 0 do if $gintraindex[i]=intraindex then //found same intraday bar sum=sum+$gvol[i] count=count+1 endif if count=period then break endif next avg = sum/period rvol = $ivol[intraindex] / avg   If rvol>rvol[1] then R=0 G=0 B=255 ElsIf rvol<rvol[1] then R=255 G=0 B=0 EndIf return rvol style(histogram)Coloured(R,G,B)//$ivol[intraindex], avg coloured(0,0,0)

  1 user thanked author for this post.

  Marcel van Vliet

  

  JS

  Participant

  Topics: 26

  Replies: 1716

  Been thanked: 778 times
  12/14/2023 at 10:18 AM #225241
  Marcel van Vliet

  Thanks JS,

  I have adjusted your idea for the code slightly to my original idea, so that the colors now correspond to the colors of the candles. This works a bit easier for me because I have built a screener that selects American stocks with RVol >2.

  Relative Volume indicator

  //Relative Volume indicator by Nicolas Period = 21 //X days averaging period intraindex = intradaybarindex $ivol[intraindex] = volume $gvol[barindex] = volume $gintraindex[barindex] = intraindex count = 0 sum = 0 for i = barindex downto 0 do if $gintraindex[i]=intraindex then //found same intraday bar sum=sum+$gvol[i] count=count+1 endif if count=period then break endif next avg = sum/period rvol = $ivol[intraindex] / avg If open>close then //If rvol>rvol[1] then R=204 G=51 B=0 ElsIf open<close then //ElsIf rvol<rvol[1] then R=0 G=51 B=153 EndIf return rvol style(histogram)Coloured(R,G,B)//$ivol[intraindex], avg coloured(0,0,0)

  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

  //Relative Volume indicator by Nicolas Period = 21 //X days averaging period intraindex = intradaybarindex $ivol[intraindex] = volume $gvol[barindex] = volume $gintraindex[barindex] = intraindex count = 0 sum = 0 for i = barindex downto 0 do if $gintraindex[i]=intraindex then //found same intraday bar sum=sum+$gvol[i] count=count+1 endif if count=period then break endif next avg = sum/period rvol = $ivol[intraindex] / avg   If open>close then //If rvol>rvol[1] then R=204 G=51 B=0 ElsIf open<close then //ElsIf rvol<rvol[1] then R=0 G=51 B=153   EndIf return rvol style(histogram)Coloured(R,G,B)//$ivol[intraindex], avg coloured(0,0,0)

   

  1 user thanked author for this post.

  JS

  

  Marcel van Vliet

  Participant

  Topics: 62

  Replies: 98

  Been thanked: 7 times
  12/15/2023 at 12:44 PM #225276
  Marcel van Vliet

  Hi,

  Here’s the next hurdle.

  It appears that the horizontal line (image) is not held by the indicator as an added indicator or loose line.

  This means that every time I open the graph the line has disappeared.

  Does anyone know how I can add a solid horizontal line (at 1.5) to the indicator?

  Relative Volume

  //Relative Volume indicator by Nicolas Period = 21 //X days averaging period intraindex = intradaybarindex $ivol[intraindex] = volume $gvol[barindex] = volume $gintraindex[barindex] = intraindex count = 0 sum = 0 for i = barindex downto 0 do if $gintraindex[i]=intraindex then //found same intraday bar sum=sum+$gvol[i] count=count+1 endif if count=period then break endif next avg = sum/period rvol = $ivol[intraindex] / avg If open>close then //If rvol>rvol[1] then R=204 G=51 B=0 ElsIf open<close then //ElsIf rvol<rvol[1] then R=0 G=51 B=153 EndIf return rvol style(histogram)Coloured(R,G,B)//$ivol[intraindex], avg coloured(0,0,0)

  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

  //Relative Volume indicator by Nicolas Period = 21 //X days averaging period intraindex = intradaybarindex $ivol[intraindex] = volume $gvol[barindex] = volume $gintraindex[barindex] = intraindex count = 0 sum = 0 for i = barindex downto 0 do if $gintraindex[i]=intraindex then //found same intraday bar sum=sum+$gvol[i] count=count+1 endif if count=period then break endif next avg = sum/period rvol = $ivol[intraindex] / avg   If open>close then //If rvol>rvol[1] then R=204 G=51 B=0 ElsIf open<close then //ElsIf rvol<rvol[1] then R=0 G=51 B=153   EndIf return rvol style(histogram)Coloured(R,G,B)//$ivol[intraindex], avg coloured(0,0,0)

   

  

  Marcel van Vliet

  Participant

  Topics: 62

  Replies: 98

  Been thanked: 7 times
  12/15/2023 at 5:05 PM #225290
  JS

  Hi Marcel,

  If you only want a permanent horizontal line in the indicator, you can add the following line in your code (before “Return”):

  DrawHLine(1.5) Coloured(“Red”)

  1 user thanked author for this post.

  Marcel van Vliet

  

  JS

  Participant

  Topics: 26

  Replies: 1716

  Been thanked: 778 times
• Author
  Posts