Bull & Bear Volume-by-Price levels – modo VPOC

• 11/23/2018 at 2:04 PM #85582
  oracle

  Agregar una línea en el indicador Bull & Bear Volume-by-Price levels , indicado el Volumen Máximo .. en modo VPOC”.

  https://www.prorealcode.com/prorealtime-indicators/bull-bear-volume-by-price-levels/

   

   

  

  oracle

  Participant

  Topics: 3

  Replies: 8

  Been thanked: 0 times
  11/26/2018 at 9:53 AM #85704
  Nicolas

  Aquí está el código que identifica y traza el VPOC en la tabla de precios:

  //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 = 3 NbrBars=10 lookback=150 // --- end of settings hh=highest[lookback](high) ll=lowest[lookback](low) div = (hh-ll)/NbrBars i=0 volsum=summation[lookback](volume) startbar = barindex[lookback] maxbar = 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 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 //VPOC if(bullbar>maxbar) then vpocbar=startbar+bullbar vpoclevel = (lrange+hrange)/2 maxbar=bullbar endif if(bearbar>maxbar) then vpocbar=startbar+bearbar vpoclevel = (lrange+hrange)/2 maxbar=bearbar endif i=i+1 wend drawvline(barindex[lookback]) drawsegment(vpocbar,vpoclevel,barindex,vpoclevel) 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 62 63 64 65

  //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 = 3 NbrBars=10 lookback=150 // --- end of settings   hh=highest[lookback](high) ll=lowest[lookback](low) div = (hh-ll)/NbrBars i=0 volsum=summation[lookback](volume) startbar = barindex[lookback] maxbar = 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   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   //VPOC if(bullbar>maxbar) then vpocbar=startbar+bullbar vpoclevel = (lrange+hrange)/2 maxbar=bullbar endif if(bearbar>maxbar) then vpocbar=startbar+bearbar vpoclevel = (lrange+hrange)/2 maxbar=bearbar endif   i=i+1 wend drawvline(barindex[lookback]) drawsegment(vpocbar,vpoclevel,barindex,vpoclevel)   return

   

  1 user thanked author for this post.

  oracle

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20901

  Been thanked: 4846 times
  11/26/2018 at 10:27 AM #85712
  oracle

  Gracias Nicolas. Eres un tio genial..

  

  oracle

  Participant

  Topics: 3

  Replies: 8

  Been thanked: 0 times
  12/13/2018 at 1:56 PM #87005
  oracle

  Hola Nicolas de nuevo…

  Podría añadir otra modificación. ahora detectar el volumen mas bajo en el indicador Bull & Bear Volume-by-Price levels.

  Como se muestra en la imagen.

  Gracias por adelantado por tu gran trabajo y aportaciones en Prorealcode.

   

   

   

  

  oracle

  Participant

  Topics: 3

  Replies: 8

  Been thanked: 0 times
  12/17/2018 at 11:42 AM #87275
  Nicolas

  Éste agrega el área de volúmenes mínimos con una línea roja, como la forma que desee.

  //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 = 3 NbrBars=10 lookback=150 // --- end of settings hh=highest[lookback](high) ll=lowest[lookback](low) div = (hh-ll)/NbrBars i=0 volsum=summation[lookback](volume) startbar = barindex[lookback] maxbar = 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 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 //VPOC if(bullbar>maxbar) then vpocbar=startbar+bullbar vpoclevel = (lrange+hrange)/2 maxbar=bullbar endif if(bearbar>maxbar) then vpocbar=startbar+bearbar vpoclevel = (lrange+hrange)/2 maxbar=bearbar endif //minBAR if i = 0 then minbar=min(bullbar,bearbar) else if(bullbar<minbar) then vpocbarmin=startbar+bullbar vpoclevelmin = (lrange+hrange)/2 minbar=bullbar endif if(bearbar<minbar) then vpocbarmin=startbar+bearbar vpoclevelmin = (lrange+hrange)/2 minbar=bearbar endif endif i=i+1 wend drawvline(barindex[lookback]) drawsegment(vpocbar,vpoclevel,barindex,vpoclevel) drawsegment(vpocbarmin,vpoclevelmin,barindex,vpoclevelmin) coloured(255,0,0) 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 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83

  //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 = 3 NbrBars=10 lookback=150 // --- end of settings   hh=highest[lookback](high) ll=lowest[lookback](low) div = (hh-ll)/NbrBars i=0 volsum=summation[lookback](volume) startbar = barindex[lookback] maxbar = 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   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   //VPOC if(bullbar>maxbar) then vpocbar=startbar+bullbar vpoclevel = (lrange+hrange)/2 maxbar=bullbar endif if(bearbar>maxbar) then vpocbar=startbar+bearbar vpoclevel = (lrange+hrange)/2 maxbar=bearbar endif   //minBAR if i = 0 then minbar=min(bullbar,bearbar) else if(bullbar<minbar) then vpocbarmin=startbar+bullbar vpoclevelmin = (lrange+hrange)/2 minbar=bullbar endif if(bearbar<minbar) then vpocbarmin=startbar+bearbar vpoclevelmin = (lrange+hrange)/2 minbar=bearbar endif endif     i=i+1 wend drawvline(barindex[lookback]) drawsegment(vpocbar,vpoclevel,barindex,vpoclevel) drawsegment(vpocbarmin,vpoclevelmin,barindex,vpoclevelmin) coloured(255,0,0)   return

   

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20901

  Been thanked: 4846 times
  02/26/2019 at 1:48 PM #92361
  dcastellop

  Buenas tardes,  primero agradecer el trabajo que hacéis entre todos con prorealcode.

  Quería preguntar si sería posible ver en el indicador Bull & Bear Volume-by-Price levels el vpoc del día anterior de manera opcional?, solo el tramo del día anterior como opción lookback=[DOpen(1) DClose(1)], gracias de antemano.

  Saludos.

  

  dcastellop

  Participant

  Topics: 0

  Replies: 5

  Been thanked: 2 times
  02/26/2019 at 2:08 PM #92364
  Nicolas

  Este indicador no utiliza un período diario, sino un período en cantidad de barras (el valor predeterminado es 1000). Entonces, lo que está preguntando no está relacionado con la funcionalidad de este indicador.

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20901

  Been thanked: 4846 times
  02/26/2019 at 4:48 PM #92381
  dcastellop

  Gracias por responder, hay algún indicador que muestre el vpoc del día anterior?

  saludos.

  

  dcastellop

  Participant

  Topics: 0

  Replies: 5

  Been thanked: 2 times
  02/27/2019 at 6:34 PM #92480
  dcastellop

  He hecho algún cambio en el código para mostrar el vpoc del día anterior por si a alguien le sirve lo pongo aquí:

  YESTERDAY VPOC

  //PRC_Bull&Bear Volume on Price | indicator //05.07.2018 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge //Modificado 27/2/218 defparam calculateonlastbars=2000 // --- settings ScaleFactor=3 NbrBars=10 lookback=max(1, intradaybarindex) // --- end of settings hh=highest[lookback](high) ll=lowest[lookback](low) div = (hh-ll)/NbrBars i=0 volsum=summation[lookback](volume) maxbar = 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 //VPOC if(bullbar>maxbar) then vpoclevel = (lrange+hrange)/2 maxbar=bullbar endif if(bearbar>maxbar) then vpoclevel = (lrange+hrange)/2 maxbar=bearbar endif i=i+1 wend if intradaybarindex=1 then yesterdayVPOC=vpoclevel[2] drawtext(" ---------------------------- yesterday VPOC [#yesterdayVPOC#]----------------------------------------------",barindex[2],vpoclevel[2],dialog,bold,15) coloured(0,0,0) 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

  //PRC_Bull&Bear Volume on Price | indicator //05.07.2018 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge   //Modificado 27/2/218   defparam calculateonlastbars=2000 // --- settings ScaleFactor=3 NbrBars=10 lookback=max(1, intradaybarindex) // --- end of settings   hh=highest[lookback](high) ll=lowest[lookback](low) div = (hh-ll)/NbrBars i=0 volsum=summation[lookback](volume)   maxbar = 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 //VPOC   if(bullbar>maxbar) then   vpoclevel = (lrange+hrange)/2   maxbar=bullbar   endif   if(bearbar>maxbar) then     vpoclevel = (lrange+hrange)/2     maxbar=bearbar   endif    i=i+1 wend   if intradaybarindex=1 then yesterdayVPOC=vpoclevel[2] drawtext("                                                                                                                                                ---------------------------- yesterday VPOC [#yesterdayVPOC#]----------------------------------------------",barindex[2],vpoclevel[2],dialog,bold,15) coloured(0,0,0)   endif   return

   

  1 user thanked author for this post.

  Nicolas

  

  dcastellop

  Participant

  Topics: 0

  Replies: 5

  Been thanked: 2 times
  02/27/2019 at 6:41 PM #92481
  Carlos Garcia

  Buenas! Da error al ejecutarlo porque dice que hay un bucle infinito y modifique el código

  

  Carlos Garcia

  Participant

  Topics: 4

  Replies: 13

  Been thanked: 2 times
  02/27/2019 at 7:58 PM #92484
  dcastellop

  Hola en tf 5′ me funciona, tendría que revisarlo.

   

   

  saludos

  

  dcastellop

  Participant

  Topics: 0

  Replies: 5

  Been thanked: 2 times
  02/28/2019 at 11:12 AM #92511
  dcastellop

  Hola Carlos,  modificando el lookback ya debería funcionar

  // — settings
  ScaleFactor=3
  NbrBars=10
  lookback=150
  // — end of settings

  lookback

  //PRC_Bull&Bear Volume on Price | indicator //05.07.2018 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge //Modificado 28/2/2019 defparam calculateonlastbars=2000 // --- settings ScaleFactor=3 NbrBars=10 lookback=150 // --- end of settings hh=highest[lookback](high) ll=lowest[lookback](low) div = (hh-ll)/NbrBars i=0 volsum=summation[lookback](volume) maxbar = 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 //VPOC if(bullbar>maxbar) then vpoclevel = (lrange+hrange)/2 maxbar=bullbar endif if(bearbar>maxbar) then vpoclevel = (lrange+hrange)/2 maxbar=bearbar endif i=i+1 wend if intradaybarindex=1 then yesterdayVPOC=vpoclevel[2] drawtext(" ---------------------------- yesterday VPOC [#yesterdayVPOC#]----------------------------------------------",barindex[2],vpoclevel[2],dialog,bold,15) coloured(0,0,0) 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

  //PRC_Bull&Bear Volume on Price | indicator //05.07.2018 //Nicolas @ www.prorealcode.com //Sharing ProRealTime knowledge //Modificado 28/2/2019 defparam calculateonlastbars=2000 // --- settings ScaleFactor=3 NbrBars=10 lookback=150 // --- end of settings hh=highest[lookback](high) ll=lowest[lookback](low) div = (hh-ll)/NbrBars i=0 volsum=summation[lookback](volume) maxbar = 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 //VPOC   if(bullbar>maxbar) then   vpoclevel = (lrange+hrange)/2   maxbar=bullbar   endif   if(bearbar>maxbar) then     vpoclevel = (lrange+hrange)/2     maxbar=bearbar   endif    i=i+1 wend if intradaybarindex=1 then yesterdayVPOC=vpoclevel[2] drawtext("                                                                                                                                                ---------------------------- yesterday VPOC [#yesterdayVPOC#]----------------------------------------------",barindex[2],vpoclevel[2],dialog,bold,15) coloured(0,0,0) endif return

   

   

  1 user thanked author for this post.

  Carlos Garcia

  

  dcastellop

  Participant

  Topics: 0

  Replies: 5

  Been thanked: 2 times
  02/28/2019 at 2:43 PM #92537
  Nicolas

  Me alegra que descubras cómo codificarlo y me alegra que hayas aprendido algo, gracias por compartirlo;)

  

  Nicolas

  Keymaster

  Topics: 81

  Replies: 20901

  Been thanked: 4846 times
  02/28/2019 at 3:20 PM #92538
  Carlos Garcia

  Ahora sí! Muchas gracias 🙂

  

  Carlos Garcia

  Participant

  Topics: 4

  Replies: 13

  Been thanked: 2 times
  12/29/2019 at 11:40 PM #115593
  Gianluca

  Nicolas wrote:

  Éste agrega el área de volúmenes mínimos con una línea roja, como la forma que desee.

  Disculpe, Nicolas, ¿puede hacer un cambio y asegurarse de que también se muestre una visión global y una visión cotidiana de la versión que hizo?

  

  Gianluca

  Participant

  Topics: 64

  Replies: 418

  Been thanked: 55 times
• Author
  Posts