Distribution of Index indicator bug fix

• 02/10/2021 at 1:38 PM #160934
  Vonasi

  When I developed the Distribution of Index indicator that can be found in the library I only had v11 end of day data and it has come to light that on live data it continuously updates the distribution chart tick by tick leading to an incorrect chart being displayed.

  I have fixed the bug and suggest that anyone who uses v1.1 updates to v1.2.

  ITF file attached.

  Distribution of Index v1.2

  //Distribution of Index v1.2 //PRT v11 onwards //By Vonasi //Date: 20210210 //p = 14 // Period used in indicator //k = 3 // K% setting for stochastic //d = 9 // Period used for signal line //RSIndex = 1 // Select RSI //Stoch = 0 // Select Stochastic //WilliamsR = 0 // Select Williams%R //ADXindex = 0 // Select ADX //SignalLine = 1 // Turn on/off display of signal line //StartDate = 19950101 // Date to start analysis from. Zero = all data if date >= startdate then if islastbarupdate then $lastopen[0]=open endif p = max(1,p) k = max(1,k) d = max(1,d) once signal = undefined if RSIndex or (not Stoch and not WilliamsR and not ADXindex) then indicator = rsi[p](close) endif if Stoch then indicator = stochastic[p,k](close) endif if WilliamsR then indicator = williams[p](close)+100 endif if ADXindex then indicator = ADX[p] endif if signalline then signal = average[d](indicator) endif rindicator = round(indicator) if open<>$lastopen[0] then for a = 1 to 100 if rindicator = a then $perc[a] = $perc[a]+1 maxval = max(maxval,$perc[a]) break endif next endif if islastbarupdate then for a = 1 to 100 thisperc = round(($perc[a]/maxval)*100) if rindicator = a then drawpoint(barindex+thisperc+5,a,3) coloured(0,0,255) drawtext("#thisperc#%",barindex+115,a,sansserif,bold,14) coloured(0,0,128) endif r = 255 g = 0 if thisperc >= 25 then r = 128 g = 0 endif if thisperc >= 50 then r = 0 g = 255 endif if thisperc >= 75 then r = 0 g = 128 endif drawrectangle(barindex+5,a,barindex+thisperc+5,a) coloured(r,g,128) next for a = 1 to 4 if ADXindex then drawtext("ADX #p# = #rindicator#",barindex+5,108,sansserif,bold,14) coloured(0,0,128) break endif if WilliamsR then drawtext("Williams%R #p# = #rindicator#",barindex+5,108,sansserif,bold,14) coloured(0,0,128) break endif if Stoch then drawtext("Stochastic #p##k##d# = #rindicator#",barindex+5,108,sansserif,bold,14) coloured(0,0,128) break endif if RSIndex or (not Stoch and not WilliamsR and not ADXindex) then drawtext("RSI #p# = #rindicator#",barindex+5,108,sansserif,bold,14) coloured(0,0,128) break endif next endif endif return 0 coloured(0,0,0,0) as "Line",108 coloured(0,0,0,0) as "Line",indicator as "Indicator",signal style(dottedline) as "Signal"

  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 90 91 92 93 94 95 96 97 98 99 100 101 102 103

  //Distribution of Index v1.2 //PRT v11 onwards //By Vonasi //Date: 20210210   //p = 14                // Period used in indicator //k = 3                 // K% setting for stochastic //d = 9                 // Period used for signal line //RSIndex = 1           // Select RSI //Stoch = 0             // Select Stochastic //WilliamsR = 0         // Select Williams%R //ADXindex = 0          // Select ADX //SignalLine = 1        // Turn on/off display of signal line //StartDate = 19950101  // Date to start analysis from. Zero = all data   if date >= startdate then if islastbarupdate then $lastopen[0]=open endif   p = max(1,p) k = max(1,k) d = max(1,d)   once signal = undefined   if RSIndex or (not Stoch and not WilliamsR and not ADXindex) then indicator = rsi[p](close) endif   if Stoch then indicator = stochastic[p,k](close) endif   if WilliamsR then indicator = williams[p](close)+100 endif   if ADXindex then indicator = ADX[p] endif   if signalline then signal = average[d](indicator) endif   rindicator = round(indicator)   if open<>$lastopen[0] then for a = 1 to 100 if rindicator = a then $perc[a] = $perc[a]+1 maxval = max(maxval,$perc[a]) break endif next endif if islastbarupdate then for a = 1 to 100 thisperc = round(($perc[a]/maxval)*100) if rindicator = a then drawpoint(barindex+thisperc+5,a,3) coloured(0,0,255) drawtext("#thisperc#%",barindex+115,a,sansserif,bold,14) coloured(0,0,128) endif r = 255 g = 0 if thisperc >= 25 then r = 128 g = 0 endif if thisperc >= 50 then r = 0 g = 255 endif if thisperc >= 75 then r = 0 g = 128 endif drawrectangle(barindex+5,a,barindex+thisperc+5,a) coloured(r,g,128) next   for a = 1 to 4 if ADXindex then drawtext("ADX #p# = #rindicator#",barindex+5,108,sansserif,bold,14) coloured(0,0,128) break endif if WilliamsR then drawtext("Williams%R #p# = #rindicator#",barindex+5,108,sansserif,bold,14) coloured(0,0,128) break endif if Stoch then drawtext("Stochastic #p##k##d# = #rindicator#",barindex+5,108,sansserif,bold,14) coloured(0,0,128) break endif if RSIndex or (not Stoch and not WilliamsR and not ADXindex) then drawtext("RSI #p# = #rindicator#",barindex+5,108,sansserif,bold,14) coloured(0,0,128) break endif next endif endif   return 0 coloured(0,0,0,0) as "Line",108 coloured(0,0,0,0) as "Line",indicator as "Indicator",signal style(dottedline) as "Signal"

   

  1 user thanked author for this post.

  willi

  

  Vonasi

  Moderator

  Topics: 192

  Replies: 5088

  Been thanked: 1811 times
  04/02/2021 at 2:33 PM #166052
  snucke

  Hey Vonasi

  is it possible you can help me add % of moves in the market to the indicator?

   

  

  snucke

  Participant

  Topics: 9

  Replies: 143

  Been thanked: 21 times
  04/02/2021 at 4:49 PM #166060
  Vonasi

  I did start coding something that showed distribution of price movements for a candle shown on a price chart but it requires some auto-scaling improvements before it is finished. At the moment I am not coding due to other commitments (plus I destroyed my keyboard with a cup of tea and my temporary replacement is horrible to type on. Also the results of Brexit are making getting a UK layout replacement keyboard delivered to Greece rather more challenging than it should be!)

  Have you seen these other indicators that I coded for distributions?

  https://www.prorealcode.com/prorealtime-indicators/price-rating-and-distribution/

  https://www.prorealcode.com/prorealtime-indicators/distribution-of-returns-prtv11/

  

  Vonasi

  Moderator

  Topics: 192

  Replies: 5088

  Been thanked: 1811 times
  04/03/2021 at 2:02 PM #166102
  snucke

  https://www.prorealcode.com/prorealtime-indicators/distribution-of-returns-prtv11/

  looks interesting, not really sure how to make use of it? do you have any suggestion on how to use it? or any place one can learn more about it?

  did some searching and could not really get my head around how to interpret it to a strategy

  

  snucke

  Participant

  Topics: 9

  Replies: 143

  Been thanked: 21 times
  04/03/2021 at 3:07 PM #166104
  Vonasi

  I can’t tell you how to use it in a strategy. Distribution curves really just tell us how often an event has happened in the past and that can tell us the probability of it happening in the future. Also if we can see where we are on the curve at the moment then we can see how extreme recent price movements have been which can help us decide how likely a reversal is.

  

  Vonasi

  Moderator

  Topics: 192

  Replies: 5088

  Been thanked: 1811 times
  11/20/2021 at 1:16 PM #181939
  jmf125

  For some reason the indicator is not displaying the bar chart, any idea ?

  

  jmf125

  Participant

  Topics: 8

  Replies: 111

  Been thanked: 14 times
  11/20/2021 at 3:54 PM #181952
  robertogozzi

  It won’t display on any chart, as its scale doesn’t not match prices. It must be installed BELOW the chart.

  ON you chart you can spot it, but, say on DAX, it’s around level 50, while prices are at about 16100, so you need to use your mouse to reach 50 or shrink the chart about 300 times (making both bars and the indicator almost flat lines).

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17138

  Been thanked: 4032 times
  11/21/2021 at 8:46 AM #181978
  jmf125

  Sorry I should have been more precise. I does not display below the chart.

  What I am getting for the bar chart is N/A see attached picture

  

  jmf125

  Participant

  Topics: 8

  Replies: 111

  Been thanked: 14 times
  11/23/2021 at 4:06 PM #182121
  robertogozzi

  It’s because of the second FOR…NEXT iteration the one after if islastbarupdate then, if you set it to max 20 it’ll always work (still I couldn’t see any percentage, but there’s no error). With RSI that limit can be 50 and 40 with Williams’R, but ADX requires 20 max.

   

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17138

  Been thanked: 4032 times
• Author
  Posts