Pocket pivot indicator

• 01/04/2021 at 10:14 AM #156159
  Alfy

  Good morning guys, happy new year. i found this code for the “pocket pivot” indicator on the site but i think its coded incorrectly and i wondered if one of you guys could help me fix it please? The indicator should find when the volume of a stock on an “up day” is greater than the volume of the last 10 days “down days.” I believe the code I’ve posted just looks back at the last 10 days rather than the last 10 days “down days.” Any help as always would be appreciated.

  Best regards

  Pocket pivot indicator

  daystoconfirmuptrend = 50 cPrc1 = (close > Average[daysToConfirmUpTrend](close) AND Close > open) maxDay = 10 maxDownDay = 0 maxdown = 0 FOR d = 1 TO maxDay DO r = Close[d] - open[d] IF r <0 and volume[d]> maxDown THEN maxDown = volume[d] maxDownDay = d ENDIF NEXT IF maxDownday = 0 THEN maxDowndayVol=0 ELSE maxDowndayvol = volume[maxdownday] ENDIF cVol2 = (volume > maxDownDayvol) Cprc2 = (close >= Average[20](close)) Cprc3 = (close CROSSES OVER Average[10](close) OR Close CROSSES OVER Average[50](close)) cPrc11 = (close > (high + low) *0.5) Cprc13 = (close[1] < highest[65](close)) ind1 = (cPrc1 AND cPrc2 AND (cPrc3 OR 1) AND cVol2 AND (cPrc11 OR 1) AND (cPrc13 OR 1)) RETURN ind1 COLOURED (0,0,200) AS "Pivot Pocket"

  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

  daystoconfirmuptrend = 50 cPrc1 = (close > Average[daysToConfirmUpTrend](close) AND Close > open) maxDay = 10 maxDownDay = 0 maxdown = 0 FOR d = 1 TO maxDay DO r = Close[d] - open[d] IF r <0 and volume[d]> maxDown THEN maxDown = volume[d] maxDownDay = d ENDIF   NEXT   IF maxDownday = 0 THEN maxDowndayVol=0 ELSE maxDowndayvol = volume[maxdownday] ENDIF   cVol2 = (volume > maxDownDayvol) Cprc2 = (close >= Average[20](close)) Cprc3 = (close CROSSES OVER Average[10](close) OR Close CROSSES OVER Average[50](close)) cPrc11 = (close > (high + low) *0.5) Cprc13 = (close[1] < highest[65](close)) ind1 = (cPrc1 AND cPrc2 AND (cPrc3 OR 1) AND cVol2 AND (cPrc11 OR 1) AND (cPrc13 OR 1)) RETURN ind1 COLOURED (0,0,200) AS "Pivot Pocket"

  

  Alfy

  Participant

  Topics: 34

  Replies: 53

  Been thanked: 5 times
  01/04/2021 at 10:41 AM #156167
  Vonasi

  Alfy wrote:

  is greater than the volume of the last 10 days “down days.”

  Do you mean greater than the last 10 down days volumes combined or greater than the largest volume day in the last 10 down days?

  1 user thanked author for this post.

  Alfy

  

  Vonasi

  Moderator

  Topics: 192

  Replies: 5088

  Been thanked: 1810 times
  01/04/2021 at 10:47 AM #156169
  Alfy

  Sorry, i wasnt clear. i mean greater than the largest volume down day in the last 10 down days. Thanks for your reply!

  

  Alfy

  Participant

  Topics: 34

  Replies: 53

  Been thanked: 5 times
  01/04/2021 at 10:50 AM #156172
  Vonasi

  This code checks for greater than the largest volume day in the last 10 down days. I left all your other conditions in the code.

  daystoconfirmuptrend = 50 cPrc1 = (close > Average[daysToConfirmUpTrend](close) AND Close > open) maxDay = 10 maxDownDayVol = 0 maxdown = 0 count = 0 if barindex >= maxday then FOR d = 1 TO barindex DO IF Close[d] < open[d] THEN count = count + 1 maxDownDayVol = max(volume[d],maxdowndayvol) if count = maxday then break endif ENDIF NEXT cVol2 = (volume > maxDownDayvol) Cprc2 = (close >= Average[20](close)) Cprc3 = (close CROSSES OVER Average[10](close) OR Close CROSSES OVER Average[50](close)) cPrc11 = (close > (high + low) *0.5) Cprc13 = (close[1] < highest[65](close)) ind1 = (cPrc1 AND cPrc2 AND (cPrc3 OR 1) AND cVol2 AND (cPrc11 OR 1) AND (cPrc13 OR 1)) endif RETURN ind1 COLOURED (0,0,200) AS "Pivot Pocket"

  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

  daystoconfirmuptrend = 50 cPrc1 = (close > Average[daysToConfirmUpTrend](close) AND Close > open) maxDay = 10 maxDownDayVol = 0 maxdown = 0 count = 0 if barindex >= maxday then FOR d = 1 TO barindex DO IF Close[d] < open[d] THEN count = count + 1 maxDownDayVol = max(volume[d],maxdowndayvol) if count = maxday then break endif ENDIF NEXT   cVol2 = (volume > maxDownDayvol) Cprc2 = (close >= Average[20](close)) Cprc3 = (close CROSSES OVER Average[10](close) OR Close CROSSES OVER Average[50](close)) cPrc11 = (close > (high + low) *0.5) Cprc13 = (close[1] < highest[65](close)) ind1 = (cPrc1 AND cPrc2 AND (cPrc3 OR 1) AND cVol2 AND (cPrc11 OR 1) AND (cPrc13 OR 1)) endif   RETURN ind1 COLOURED (0,0,200) AS "Pivot Pocket"

   

  1 user thanked author for this post.

  Alfy

  

  Vonasi

  Moderator

  Topics: 192

  Replies: 5088

  Been thanked: 1810 times
  01/04/2021 at 10:54 AM #156173
  Alfy

  wow, thanks so much

  

  Alfy

  Participant

  Topics: 34

  Replies: 53

  Been thanked: 5 times
  01/04/2021 at 10:55 AM #156174
  Vonasi

  This does the other option. It is unlikely to get many hits as adding together the volume of 10 down day candles equals a lot of volume to have in just one up candle!

  daystoconfirmuptrend = 50 cPrc1 = (close > Average[daysToConfirmUpTrend](close) AND Close > open) maxDay = 10 maxDownDayVol = 0 maxdown = 0 count = 0 if barindex >= maxday then FOR d = 1 TO barindex DO IF Close[d] < open[d] THEN count = count + 1 maxDownDayVol = maxdowndayvol+volume[d] if count = maxday then break endif ENDIF NEXT cVol2 = (volume > maxDownDayvol) Cprc2 = (close >= Average[20](close)) Cprc3 = (close CROSSES OVER Average[10](close) OR Close CROSSES OVER Average[50](close)) cPrc11 = (close > (high + low) *0.5) Cprc13 = (close[1] < highest[65](close)) ind1 = (cPrc1 AND cPrc2 AND (cPrc3 OR 1) AND cVol2 AND (cPrc11 OR 1) AND (cPrc13 OR 1)) endif RETURN ind1 COLOURED (0,0,200) AS "Pivot Pocket"

  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

  daystoconfirmuptrend = 50 cPrc1 = (close > Average[daysToConfirmUpTrend](close) AND Close > open) maxDay = 10 maxDownDayVol = 0 maxdown = 0 count = 0 if barindex >= maxday then FOR d = 1 TO barindex DO IF Close[d] < open[d] THEN count = count + 1 maxDownDayVol = maxdowndayvol+volume[d] if count = maxday then break endif ENDIF NEXT   cVol2 = (volume > maxDownDayvol) Cprc2 = (close >= Average[20](close)) Cprc3 = (close CROSSES OVER Average[10](close) OR Close CROSSES OVER Average[50](close)) cPrc11 = (close > (high + low) *0.5) Cprc13 = (close[1] < highest[65](close)) ind1 = (cPrc1 AND cPrc2 AND (cPrc3 OR 1) AND cVol2 AND (cPrc11 OR 1) AND (cPrc13 OR 1)) endif   RETURN ind1 COLOURED (0,0,200) AS "Pivot Pocket"

   

  

  Vonasi

  Moderator

  Topics: 192

  Replies: 5088

  Been thanked: 1810 times
  01/04/2021 at 11:02 AM #156178
  Vonasi

  I notice that your description requires an up day – this is not in the original code! Here is a pure version that just does what you ask for. It looks for a green day that has volume greater than the biggest volume in the last ten down days.

  maxDay = 10 maxDownDayVol = 0 count = 0 if barindex >= maxday then FOR d = 1 TO barindex DO IF Close[d] < open[d] THEN count = count + 1 maxDownDayVol = max(volume[d],maxdowndayvol) if count = 10 then break endif ENDIF NEXT ind1 = (volume > maxDownDayvol) and (close > open) endif RETURN ind1 COLOURED (0,0,200) AS "Pivot Pocket"

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

  maxDay = 10 maxDownDayVol = 0 count = 0 if barindex >= maxday then FOR d = 1 TO barindex DO IF Close[d] < open[d] THEN count = count + 1 maxDownDayVol = max(volume[d],maxdowndayvol) if count = 10 then break endif ENDIF NEXT   ind1 = (volume > maxDownDayvol) and (close > open) endif   RETURN ind1 COLOURED (0,0,200) AS "Pivot Pocket"

   

   

  1 user thanked author for this post.

  Alfy

  

  Vonasi

  Moderator

  Topics: 192

  Replies: 5088

  Been thanked: 1810 times
  01/04/2021 at 11:15 AM #156179
  Alfy

  Fabulous, thanks so much for your help.

  

  Alfy

  Participant

  Topics: 34

  Replies: 53

  Been thanked: 5 times
  01/04/2021 at 4:46 PM #156298
  Alfy

  One final question if i may? How does one turn the indicator into a screener please?

  Pocket pivot

  daystoconfirmuptrend = 50 cPrc1 = (close > Average[daysToConfirmUpTrend](close) AND Close > open) maxDay = 10 maxDownDayVol = 0 maxdown = 0 count = 0 if barindex >= maxday then FOR d = 1 TO barindex DO IF Close[d] < open[d] THEN count = count + 1 maxDownDayVol = max(volume[d],maxdowndayvol) if count = maxday then break endif ENDIF NEXT cVol2 = (volume > maxDownDayvol) Cprc2 = (close >= Average[20](close)) Cprc3 = (close CROSSES OVER Average[10](close) OR Close CROSSES OVER Average[50](close)) cPrc11 = (close > (high + low) *0.5) Cprc13 = (close[1] < highest[65](close)) ind1 = (cPrc1 AND cPrc2 AND (cPrc3 OR 1) AND cVol2 AND (cPrc11 OR 1) AND (cPrc13 OR 1)) endif RETURN ind1 COLOURED (0,0,200) AS "Pivot Pocket"

  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

  daystoconfirmuptrend = 50 cPrc1 = (close > Average[daysToConfirmUpTrend](close) AND Close > open) maxDay = 10 maxDownDayVol = 0 maxdown = 0 count = 0 if barindex >= maxday then FOR d = 1 TO barindex DO IF Close[d] < open[d] THEN count = count + 1   maxDownDayVol = max(volume[d],maxdowndayvol) if count = maxday then break endif ENDIF NEXT cVol2 = (volume > maxDownDayvol) Cprc2 = (close >= Average[20](close)) Cprc3 = (close CROSSES OVER Average[10](close) OR Close CROSSES OVER Average[50](close)) cPrc11 = (close > (high + low) *0.5) Cprc13 = (close[1] < highest[65](close)) ind1 = (cPrc1 AND cPrc2 AND (cPrc3 OR 1) AND cVol2 AND (cPrc11 OR 1) AND (cPrc13 OR 1)) endif RETURN ind1 COLOURED (0,0,200) AS "Pivot Pocket"

  

  Alfy

  Participant

  Topics: 34

  Replies: 53

  Been thanked: 5 times
  01/04/2021 at 5:41 PM #156314
  Vonasi

  Just call it from a screener:

  result = call "Pocket Pivot" SCREENER[result]

  1 2	result = call "Pocket Pivot" SCREENER[result]

  Change the name from Pocket Pivot if you have called the indicator something different.

  1 user thanked author for this post.

  Alfy

  

  Vonasi

  Moderator

  Topics: 192

  Replies: 5088

  Been thanked: 1810 times
  01/04/2021 at 6:40 PM #156326
  Alfy

  Sorry, im sure im doing something stupid but i get a syntax error “This variable is not used in the code:maxdown”. Would you mind taking a look and tell me where im going wrong?
  Thanks for all your help.

  Best regards

  Pocket pivot screener

  daystoconfirmuptrend = 50 cPrc1 = (close > Average[daysToConfirmUpTrend](close) AND Close > open) maxDay = 10 maxDownDayVol = 0 maxdown = 0 count = 0 if barindex >= maxday then FOR d = 1 TO barindex DO IF Close[d] < open[d] THEN count = count + 1 maxDownDayVol = max(volume[d],maxdowndayvol) if count = maxday then break endif ENDIF NEXT cVol2 = (volume > maxDownDayvol) Cprc2 = (close >= Average[20](close)) Cprc3 = (close CROSSES OVER Average[10](close) OR Close CROSSES OVER Average[50](close)) cPrc11 = (close > (high + low) *0.5) Cprc13 = (close[1] < highest[65](close)) ind1 = (cPrc1 AND cPrc2 AND (cPrc3 OR 1) AND cVol2 AND (cPrc11 OR 1) AND (cPrc13 OR 1)) endif screener[ind1]

  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

  daystoconfirmuptrend = 50 cPrc1 = (close > Average[daysToConfirmUpTrend](close) AND Close > open) maxDay = 10 maxDownDayVol = 0 maxdown = 0 count = 0 if barindex >= maxday then FOR d = 1 TO barindex DO IF Close[d] < open[d] THEN count = count + 1 maxDownDayVol = max(volume[d],maxdowndayvol) if count = maxday then break endif ENDIF NEXT cVol2 = (volume > maxDownDayvol) Cprc2 = (close >= Average[20](close)) Cprc3 = (close CROSSES OVER Average[10](close) OR Close CROSSES OVER Average[50](close)) cPrc11 = (close > (high + low) *0.5) Cprc13 = (close[1] < highest[65](close)) ind1 = (cPrc1 AND cPrc2 AND (cPrc3 OR 1) AND cVol2 AND (cPrc11 OR 1) AND (cPrc13 OR 1)) endif screener[ind1]

  

  Alfy

  Participant

  Topics: 34

  Replies: 53

  Been thanked: 5 times
  01/04/2021 at 6:57 PM #156329
  Vonasi

  Just delete line 5.

  

  Vonasi

  Moderator

  Topics: 192

  Replies: 5088

  Been thanked: 1810 times
  01/04/2021 at 7:05 PM #156333
  Alfy

  Thanks so much!

  

  Alfy

  Participant

  Topics: 34

  Replies: 53

  Been thanked: 5 times
  01/04/2021 at 7:23 PM #156341
  Alfy

  Sir, im sorry to be a pain…i just took a look at the indicator you kindly helped me with and it doesn’t seem to do what i wanted it to. I wanted it to tell me: if volume on a up day was greater than the highest volume of the previous 10 down days. I just looked manually at an ETF (PHSP) which i think should have done this today but the indicator didnt pick it up?

  pocket pivot indicator

  maxDay = 10 maxDownDayVol = 0 maxdown = 0 count = 0 if barindex >= maxday then FOR d = 1 TO barindex DO IF Close[d] < open[d] THEN count = count + 1 maxDownDayVol = max(volume[d],maxdowndayvol) if count = maxday then break endif ENDIF NEXT cVol2 = (volume > maxDownDayvol) endif RETURN cVol2 COLOURED (0,0,200)

  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

  maxDay = 10 maxDownDayVol = 0 maxdown = 0 count = 0 if barindex >= maxday then FOR d = 1 TO barindex DO IF Close[d] < open[d] THEN count = count + 1 maxDownDayVol = max(volume[d],maxdowndayvol) if count = maxday then break endif ENDIF NEXT cVol2 = (volume > maxDownDayvol)   endif RETURN cVol2 COLOURED (0,0,200)

  

  Alfy

  Participant

  Topics: 34

  Replies: 53

  Been thanked: 5 times
  01/04/2021 at 8:50 PM #156344
  Vonasi

  The code you posted is not the same as I posted in this post:

  https://www.prorealcode.com/topic/pocket-pivot-indicator/#post-156178

  Look at line 16 – there is an additional condition for this current candle being green.

  

  Vonasi

  Moderator

  Topics: 192

  Replies: 5088

  Been thanked: 1810 times
• Author
  Posts