Price Level Profile zum Scrennen

• 10/28/2018 at 6:43 PM #83666
  odin

  Hey Leute, Nicolas hat hier einen sehr mächtigen Indikator gebaut, welcher Price Level Profile anzeigt, auf welchem

  Kursniveau besonders viel Handel stattgefunden hat.

  Ich möchte diesen Indikator jetzt zum scrennen verwenden, doch ich schaffe es leider nicht. Ich möchte den von allen Bars, Aktien angezeigt bekommen,

  welche aktuell den höchsten Indikatorwert, der Rückschauperiode haben.

  Price Level Profile

  //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*clos

  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

  //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*clos

  

  odin

  Participant

  Topics: 8

  Replies: 30

  Been thanked: 1 time
  10/28/2018 at 6:44 PM #83667
  odin

  Hier ist mein Screening Versuch:

   

  Price Level Profile 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 //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 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

  //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       //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

   

  

  odin

  Participant

  Topics: 8

  Replies: 30

  Been thanked: 1 time
  06/28/2020 at 9:59 PM #137439
  Fabian

  Hi Odin,

  ich habe gesehen dass es den gleichen Post nochmal im englischen Bereich gibt, aber ich antworte dir hier auf deutsch.

  Hast du den Screener nochmals weiterentwickeln können und/oder setzt du diesen bei deiner Aktienauswahl ein (Problematik Endlosschleife)?

  LG
  Fabian

   

  

  Fabian

  Participant

  Topics: 9

  Replies: 33

  Been thanked: 1 time
• Author
  Posts