High Volume Day – VWAP lines

• 09/26/2024 at 2:07 PM #238074
  trwcapital

  I’m trying to create an indicator that looks back x number of bars on the daily chart for days where volume exceeded y threshold, or just identify the top 3-5 volume days and then draws a horizontal line on the daily chart that also displays on inferior timeframes. A bonus would be to add text to the line for the date and shares traded on that day. Any help would be appreciated.

  

  trwcapital

  Participant

  Topics: 8

  Replies: 8

  Been thanked: 3 times
  09/26/2024 at 4:22 PM #238081
  robertogozzi

  There you go:

  DEFPARAM DrawOnLastBarOnly = true Bars = 50 Treshold = 50000 Vol1 = 0 Vol2 = 0 Vol3 = 0 Bar1 = 0 Bar2 = 0 Bar3 = 0 FOR i = 0 TO (Bars - 1) IF Volume[i] > Treshold THEN IF (Volume[i] > Vol3) THEN Vol1 = Vol2 Bar1 = Bar2 Vol2 = Vol3 Bar2 = Bar3 Vol3 = volume[i] Bar3 = i ELSIF Volume[i] > Vol2 THEN Vol1 = Vol2 Bar1 = Bar2 Vol2 = volume[i] Bar2 = i ELSIF Volume[i] > Vol1 THEN Vol1 = volume[i] Bar1 = i ENDIF ENDIF NEXT IF Vol1 THEN yy = OpenYear[Bar1] MOD 100 //drop Centtury mm = OpenMonth[Bar1] dd = OpenDay[Bar1] Offset = highest[Bars](high) + range*0.5 DrawText("#yy##mm##dd#v#Vol1#",BarIndex[Bar1],offset) ENDIF IF Vol2 THEN yy = OpenYear[Bar2] MOD 100 //drop Centtury mm = OpenMonth[Bar2] dd = OpenDay[Bar2] Offset = highest[Bars](high) + range*1 DrawText("#yy##mm##dd#v#Vol2#",BarIndex[Bar2],offset) ENDIF IF Vol3 THEN yy = OpenYear[Bar3] MOD 100 //drop Centtury mm = OpenMonth[Bar3] dd = OpenDay[Bar3] Offset = highest[Bars](high) + range*1.5 DrawText("#yy##mm##dd#v#Vol3#",BarIndex[Bar3],offset) 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

  DEFPARAM DrawOnLastBarOnly = true Bars     = 50 Treshold = 50000 Vol1     = 0 Vol2     = 0 Vol3     = 0 Bar1     = 0 Bar2     = 0 Bar3     = 0 FOR i = 0 TO (Bars - 1)    IF Volume[i] > Treshold THEN       IF (Volume[i] > Vol3) THEN          Vol1 = Vol2          Bar1 = Bar2          Vol2 = Vol3          Bar2 = Bar3          Vol3 = volume[i]          Bar3 = i       ELSIF Volume[i] > Vol2 THEN          Vol1 = Vol2          Bar1 = Bar2          Vol2 = volume[i]          Bar2 = i       ELSIF Volume[i] > Vol1 THEN          Vol1 = volume[i]          Bar1 = i       ENDIF    ENDIF NEXT IF Vol1 THEN    yy     = OpenYear[Bar1] MOD 100   //drop Centtury    mm     = OpenMonth[Bar1]    dd     = OpenDay[Bar1]    Offset = highest[Bars](high) + range*0.5    DrawText("#yy##mm##dd#v#Vol1#",BarIndex[Bar1],offset) ENDIF IF Vol2 THEN    yy     = OpenYear[Bar2] MOD 100  //drop Centtury    mm     = OpenMonth[Bar2]    dd     = OpenDay[Bar2]    Offset = highest[Bars](high) + range*1    DrawText("#yy##mm##dd#v#Vol2#",BarIndex[Bar2],offset) ENDIF IF Vol3 THEN    yy     = OpenYear[Bar3] MOD 100  //drop Centtury    mm     = OpenMonth[Bar3]    dd     = OpenDay[Bar3]    Offset = highest[Bars](high) + range*1.5    DrawText("#yy##mm##dd#v#Vol3#",BarIndex[Bar3],offset) ENDIF RETURN

  It only prints some text for the highest 3 volume values > treshold in the last BARS periods, where exactly do you want the lines to be plotted?

   

   

  2 users thanked author for this post.

  Iván, trwcapital

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17188

  Been thanked: 4064 times
  09/26/2024 at 4:27 PM #238083
  robertogozzi

  All graphical objects and text are only visible on the chart  where the indicator has been added. Only PRT tools can plot objects than can be made visible in other timeframes.

   

  1 user thanked author for this post.

  trwcapital

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17188

  Been thanked: 4064 times
  09/27/2024 at 12:52 AM #238111
  trwcapital

  This is great. I want the horizontal line to be drawn at the Typical Price on the identified days. I use this more on small cap stocks that trade wildly varying amounts of volume. By identifying where the “VWAP” (or typical price) is on prior high volume days, it helps me to identify where supply might come into play.

  Thank you!

  

  trwcapital

  Participant

  Topics: 8

  Replies: 8

  Been thanked: 3 times
  09/27/2024 at 3:03 AM #238112
  trwcapital

  DEFPARAM DrawOnLastBarOnly = true Bars = 504 Threshold = 1000000 Vol1 = 0 Vol2 = 0 Vol3 = 0 Bar1 = 0 Bar2 = 0 Bar3 = 0 FOR i = 0 TO (Bars - 1) IF Volume[i] > Threshold THEN IF (Volume[i] > Vol3) THEN Vol1 = Vol2 Bar1 = Bar2 Vol2 = Vol3 Bar2 = Bar3 Vol3 = volume[i] Bar3 = i ELSIF Volume[i] > Vol2 THEN Vol1 = Vol2 Bar1 = Bar2 Vol2 = volume[i] Bar2 = i ELSIF Volume[i] > Vol1 THEN Vol1 = volume[i] Bar1 = i ENDIF ENDIF NEXT // Handle Bar1 IF Vol1 THEN yy = OpenYear[Bar1] MOD 100 // Drop century mm = OpenMonth[Bar1] dd = OpenDay[Bar1] Offset = ((DLow(Bar1) + DHigh(Bar1) + DClose(Bar1)) / 3) + ((DHigh(Bar1) - DLow(Bar1)) / 8) DrawText("#mm#/#dd#/#yy#- #Vol1#", BarIndex[Bar1] - 15, Offset) ANCHOR(left, INDEX, VALUE) DRAWHLINE((DLow(Bar1) + DHigh(Bar1) + DClose(Bar1)) / 3) ENDIF // Handle Bar2 IF Vol2 THEN yy = OpenYear[Bar2] MOD 100 // Drop century mm = OpenMonth[Bar2] dd = OpenDay[Bar2] Offset = ((DLow(Bar2) + DHigh(Bar2) + DClose(Bar2)) / 3) + ((DHigh(Bar2) - DLow(Bar2)) / 8) DrawText("#mm#/#dd#/#yy#- #Vol2#", BarIndex[Bar2] - 15, Offset) ANCHOR(left, INDEX, VALUE) DRAWHLINE((DLow(Bar2) + DHigh(Bar2) + DClose(Bar2)) / 3) ENDIF // Handle Bar3 IF Vol3 THEN yy = OpenYear[Bar3] MOD 100 // Drop century mm = OpenMonth[Bar3] dd = OpenDay[Bar3] Offset = ((DLow(Bar3) + DHigh(Bar3) + DClose(Bar3)) / 3) + ((DHigh(Bar3) - DLow(Bar3)) / 8) DrawText("#mm#/#dd#/#yy#- #Vol3#", BarIndex[Bar3] - 15, Offset) ANCHOR(left, INDEX, VALUE) DRAWHLINE((DLow(Bar3) + DHigh(Bar3) + DClose(Bar3)) / 3) 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

  DEFPARAM DrawOnLastBarOnly = true Bars     = 504 Threshold = 1000000 Vol1     = 0 Vol2     = 0 Vol3     = 0 Bar1     = 0 Bar2     = 0 Bar3     = 0 FOR i = 0 TO (Bars - 1) IF Volume[i] > Threshold THEN IF (Volume[i] > Vol3) THEN Vol1 = Vol2 Bar1 = Bar2 Vol2 = Vol3 Bar2 = Bar3 Vol3 = volume[i] Bar3 = i ELSIF Volume[i] > Vol2 THEN Vol1 = Vol2 Bar1 = Bar2 Vol2 = volume[i] Bar2 = i ELSIF Volume[i] > Vol1 THEN Vol1 = volume[i] Bar1 = i ENDIF ENDIF NEXT   // Handle Bar1 IF Vol1 THEN yy     = OpenYear[Bar1] MOD 100   // Drop century mm     = OpenMonth[Bar1] dd     = OpenDay[Bar1] Offset = ((DLow(Bar1) + DHigh(Bar1) + DClose(Bar1)) / 3) + ((DHigh(Bar1) - DLow(Bar1)) / 8) DrawText("#mm#/#dd#/#yy#- #Vol1#", BarIndex[Bar1] - 15, Offset) ANCHOR(left, INDEX, VALUE) DRAWHLINE((DLow(Bar1) + DHigh(Bar1) + DClose(Bar1)) / 3) ENDIF   // Handle Bar2 IF Vol2 THEN yy     = OpenYear[Bar2] MOD 100   // Drop century mm     = OpenMonth[Bar2] dd     = OpenDay[Bar2] Offset = ((DLow(Bar2) + DHigh(Bar2) + DClose(Bar2)) / 3) + ((DHigh(Bar2) - DLow(Bar2)) / 8) DrawText("#mm#/#dd#/#yy#- #Vol2#", BarIndex[Bar2] - 15, Offset) ANCHOR(left, INDEX, VALUE) DRAWHLINE((DLow(Bar2) + DHigh(Bar2) + DClose(Bar2)) / 3) ENDIF   // Handle Bar3 IF Vol3 THEN yy     = OpenYear[Bar3] MOD 100   // Drop century mm     = OpenMonth[Bar3] dd     = OpenDay[Bar3] Offset = ((DLow(Bar3) + DHigh(Bar3) + DClose(Bar3)) / 3) + ((DHigh(Bar3) - DLow(Bar3)) / 8) DrawText("#mm#/#dd#/#yy#- #Vol3#", BarIndex[Bar3] - 15, Offset) ANCHOR(left, INDEX, VALUE) DRAWHLINE((DLow(Bar3) + DHigh(Bar3) + DClose(Bar3)) / 3) ENDIF   RETURN

  Made a few changes and will probably continue to tweak but you helped immensely. Thank you

  1 user thanked author for this post.

  robertogozzi

  

  trwcapital

  Participant

  Topics: 8

  Replies: 8

  Been thanked: 3 times
• Author
  Posts