Screening with Price level Profile

• 10/26/2018 at 6:29 PM #83571
  odin

  hello guys,

  this nice code is from nicolas. its a great indicator. but i cannot build it up for the pro screener so please help.

   

  i wann search the highest indicator values of the last 12 nbr bars, to get the screenings result.

   

  price level profile of nicolas

  //PRC_Bull&Bear Volume on Price | indicator //05.07.2018 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge defparam drawonlastbaronly=true defparam calculateonlastbars=1000 // --- settings ScaleFactor = 5 NbrBars=12 lookback=200 // --- end of settings hh=highest[lookback](high) ll=lowest[lookback](low) div = (hh-ll)/NbrBars i=0 volsum=summation[lookback](volume) startbar = barindex[lookback] while i<NbrBars do lrange=ll+div*i hrange=lrange+div volbull=0 volbear=0 for j = 1 to lookback do if close[j]>=lrange and close[j]<=hrange then if close[j]>open[j] then volbull=volbull+volume[j] else volbear=volbear+volume[j] endif endif next bullbar = round((volbull*lookback)/volsum)*scalefactor bearbar = round((volbear*lookback)/volsum)*scalefactor drawrectangle(startbar,lrange,startbar+bullbar,hrange) coloured(46,139,87) drawrectangle(startbar,lrange,startbar+bearbar,hrange) coloured(255,0,0) if bullbar>bearbar then drawtext("■",startbar+bullbar,(lrange+hrange)/2,Dialog,Bold,22) coloured(46,139,87) else drawtext("■",startbar+bearbar,(lrange+hrange)/2,Dialog,Bold,22) coloured(255,0,0) endif i=i+1 wend drawvline(barindex[lookback]) 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

  //PRC_Bull&Bear Volume on Price | indicator //05.07.2018 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge defparam drawonlastbaronly=true defparam calculateonlastbars=1000 // --- settings ScaleFactor = 5 NbrBars=12 lookback=200 // --- end of settings hh=highest[lookback](high) ll=lowest[lookback](low) div = (hh-ll)/NbrBars i=0 volsum=summation[lookback](volume) startbar = barindex[lookback] while i<NbrBars do lrange=ll+div*i hrange=lrange+div volbull=0 volbear=0 for j = 1 to lookback do   if close[j]>=lrange and close[j]<=hrange then    if close[j]>open[j] then     volbull=volbull+volume[j]    else     volbear=volbear+volume[j]    endif   endif next bullbar = round((volbull*lookback)/volsum)*scalefactor bearbar = round((volbear*lookback)/volsum)*scalefactor drawrectangle(startbar,lrange,startbar+bullbar,hrange) coloured(46,139,87) drawrectangle(startbar,lrange,startbar+bearbar,hrange) coloured(255,0,0) if bullbar>bearbar then   drawtext("■",startbar+bullbar,(lrange+hrange)/2,Dialog,Bold,22) coloured(46,139,87) else   drawtext("■",startbar+bearbar,(lrange+hrange)/2,Dialog,Bold,22) coloured(255,0,0) endif i=i+1 wend drawvline(barindex[lookback]) return

  here is my try but it doesnet work:

   

  price level screener

  //PRC_Bull&Bear Volume on Price | indicator //05.07.2018 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge defparam drawonlastbaronly=true defparam calculateonlastbars=1000 // --- settings ScaleFactor = 5 NbrBars=12 lookback=200 // --- end of settings hh=highest[lookback](high) ll=lowest[lookback](low) div = (hh-ll)/NbrBars i=0 volsum=summation[lookback](volume) startbar = barindex[lookback] while i<NbrBars do lrange=ll+div*i hrange=lrange+div volbull=0 volbear=0 for j = 1 to lookback do if close[j]>=lrange and close[j]<=hrange then if close[j]>open[j] then volbull=volbull+volume[j] else volbear=volbear+volume[j] endif endif next bullbar = round((volbull*lookback)/volsum)*scalefactor bearbar = round((volbear*lookback)/volsum)*scalefactor endif c1 = highest[12](bullbar)[1] < bullbar c2 highest[12](bearbar)[1] < beabar c3 = c1 or c2 SCREENER[c3 ] sort by volume*close

  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

  //PRC_Bull&Bear Volume on Price | indicator //05.07.2018 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge defparam drawonlastbaronly=true defparam calculateonlastbars=1000 // --- settings ScaleFactor = 5 NbrBars=12 lookback=200 // --- end of settings hh=highest[lookback](high) ll=lowest[lookback](low) div = (hh-ll)/NbrBars i=0 volsum=summation[lookback](volume) startbar = barindex[lookback] while i<NbrBars do lrange=ll+div*i hrange=lrange+div volbull=0 volbear=0 for j = 1 to lookback do if close[j]>=lrange and close[j]<=hrange then if close[j]>open[j] then volbull=volbull+volume[j] else volbear=volbear+volume[j] endif endif next bullbar = round((volbull*lookback)/volsum)*scalefactor bearbar = round((volbear*lookback)/volsum)*scalefactor endif c1 = highest[12](bullbar)[1] < bullbar c2 highest[12](bearbar)[1] < beabar c3 = c1 or c2 SCREENER[c3 ] sort by volume*close

  thanks for help!

   

   

  

  odin

  Participant

  Topics: 8

  Replies: 30

  Been thanked: 1 time
  10/26/2018 at 6:29 PM #83573
  odin

  for this values i wanna screen:

   

  

  odin

  Participant

  Topics: 8

  Replies: 30

  Been thanked: 1 time
  10/28/2018 at 6:29 PM #83664
  odin

  here is the chart i wanna search for:

  can some help, for examplage nicolas?

  

  odin

  Participant

  Topics: 8

  Replies: 30

  Been thanked: 1 time
  10/28/2018 at 7:37 PM #83671
  Nicolas

  I’ll have a look this week. Please don’t double post, I saw the same request in the german forum too..

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20830

  Been thanked: 4744 times
  10/29/2018 at 10:20 AM #83693
  odin

  hello nicolas, great. thank you thank you.

  and sorry for my double post. i thougt no one would help me.

  next topic i wanna post just one time.

  good start to the week.

  odin

  

  odin

  Participant

  Topics: 8

  Replies: 30

  Been thanked: 1 time
  10/30/2018 at 1:12 PM #83787
  Nicolas

  I made some tests and the problem is that ProScreener is quickly falling into the infinite loop issue.. Reducing the bars and lookback could probably make it possible, but it should also make the screener useless!

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20830

  Been thanked: 4744 times
  10/30/2018 at 1:14 PM #83788
  Nicolas

  Here is the code in its actual state, not accurate, still don’t understand why. I put it here for future reference if needed..

  // --- settings ScaleFactor = 5 NbrBars=10 lookback=50 // --- end of settings //if date=today then hh=highest[lookback](high) ll=lowest[lookback](low) div = (hh-ll)/NbrBars i=0 volsum=summation[lookback](volume) //startbar = barindex[lookback] maxi=0 while i<NbrBars do lrange=ll+div*i hrange=lrange+div volbull=0 volbear=0 for j = 1 to lookback do if close[j]>=lrange and close[j]<=hrange then if close[j]>open[j] then volbull=volbull+volume[j] else volbear=volbear+volume[j] endif endif next bullbar = round((volbull*lookback)/volsum)*scalefactor bearbar = round((volbear*lookback)/volsum)*scalefactor maxi=max(maxi,max(bearbar,bullbar)) if maxi>lastmaxi then lastmaxi=maxi result=(lrange+hrange)/2 endif //drawrectangle(startbar,lrange,startbar+bullbar,hrange) coloured(46,139,87) //drawrectangle(startbar,lrange,startbar+bearbar,hrange) coloured(255,0,0) i=i+1 wend //endif screener[result](result)

  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

  // --- settings ScaleFactor = 5 NbrBars=10 lookback=50 // --- end of settings   //if date=today then hh=highest[lookback](high) ll=lowest[lookback](low) div = (hh-ll)/NbrBars i=0 volsum=summation[lookback](volume) //startbar = barindex[lookback]     maxi=0 while i<NbrBars do lrange=ll+div*i hrange=lrange+div volbull=0 volbear=0   for j = 1 to lookback do if close[j]>=lrange and close[j]<=hrange then if close[j]>open[j] then volbull=volbull+volume[j] else volbear=volbear+volume[j] endif endif next     bullbar = round((volbull*lookback)/volsum)*scalefactor bearbar = round((volbear*lookback)/volsum)*scalefactor   maxi=max(maxi,max(bearbar,bullbar)) if maxi>lastmaxi then lastmaxi=maxi result=(lrange+hrange)/2 endif   //drawrectangle(startbar,lrange,startbar+bullbar,hrange) coloured(46,139,87) //drawrectangle(startbar,lrange,startbar+bearbar,hrange) coloured(255,0,0)   i=i+1 wend //endif   screener[result](result)

   

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20830

  Been thanked: 4744 times
  10/31/2018 at 10:13 AM #83853
  odin

  Hi Nicolas, some result are very good bottom Buys,

  but after 10 results the screener goes to exit… because a loop is detected…

  you are a monster at coding. wow 🙂

  its not perfect but help me well.

  thank you

  

  odin

  Participant

  Topics: 8

  Replies: 30

  Been thanked: 1 time
• Author
  Posts