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.

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