Bollinger Divergencia %B

• 05/08/2025 at 10:37 PM #246909
  Maricarmen

  Hola:

  No se si es posible crear un Screener que cumpla con lo siguiente,

  Que localice valores en máximos con sucesivos mínimos decrecientes y que se de en el mismo una Divergencia en el indicador Bollinger %B.

  Adjunto figura en la que se observa, creo, lo que pretendo

  Gracias,

  

  Maricarmen

  Participant

  Topics: 18

  Replies: 36

  Been thanked: 7 times
  05/09/2025 at 8:34 AM #246914
  Maricarmen

  Perdón quise decir con sucesivos máximos decrecientes tal como se aprecia en el gráfico.

  

  Maricarmen

  Participant

  Topics: 18

  Replies: 36

  Been thanked: 7 times
  05/09/2025 at 3:09 PM #246933
  Iván

  buenas. he reutilizado uno de los indicadores publicados para adaptarlo a cualquier oscilador.
  De esta forma definiendo la variable osc se pueden calcular los pivots de ésta, compararlo con el precio y así ver si hay o no divergencia.

  //----------------------------------------------// //PRC_Any OSCILLATOR Divergence Indicator //version = 0 //09.05.25 //Iván González @ www.prorealcode.com //Sharing ProRealTime knowledge //----------------------------------------------// //-----Inputs-----------------------------------// //----------------------------------------------// src=close lbr=5 //pivot lookback Right lbl=5 //pivot lookback Left rangeUpper=60 //Max lookback range rangeLower=5 //Min lookback range plotBull=1 plotHiddenBull=1 plotBear=1 plotHiddenBear=1 //----------------------------------------------// //-----OSCILLATOR Calculation-------------------// //----------------------------------------------// len=20 bbtop=bollingerup[len](src) bbbot=bollingerdown[len](src) pctBol=(src-bbbot)/(bbtop-bbbot)*100 osc=pctBol //----------------------------------------------// //-----Pivots High and Low----------------------// //----------------------------------------------// //---Pivots low if osc > osc[lbr] and lowest[lbr](osc) > osc[lbr] and osc[lbr] < lowest[lbl](osc)[lbr+1] then $ply[z+1] = osc[lbr] $plx[z+1] = barindex[lbr] $pricel[z+1] = low[lbr] drawpoint(barindex[lbr],osc[lbr],2)coloured("red",80) z = z + 1 endif //---Pivots high if osc < osc[lbr] and highest[lbr](osc)<osc[lbr] and osc[lbr]>highest[lbl](osc)[lbr+1] then $phy[t+1]=osc[lbr] $phx[t+1]=barindex[lbr] $priceH[t+1]=high[lbr] drawpoint(barindex[lbr],osc[lbr],2)coloured("blue",80) t=t+1 endif //---Pivot detection if z<>z[1] then plFound=1 elsif t<>t[1] then phFound=1 else plFound=0 phFound=0 endif barsPL=barssince(plFound[1]) inrangePL=rangelower<=barsPL and barsPL<=rangeupper barsPH=barssince(pHFound[1]) inrangePH=rangelower<=barsPH and barsPH<=rangeupper //----------------------------------------------// //-----Regular Bullish--------------------------// //----------------------------------------------// oscHL=osc[lbr]>$ply[max(0,z-1)] and inrangePL priceLL=low[lbr]<$pricel[max(0,z-1)] bullCondAlert=priceLL and oscHL and plFound bullCond=plotBull and bullCondalert if plFound and bullCond then drawsegment($plx[max(0,z-1)],$ply[max(0,z-1)],$plx[z],$ply[z])coloured("green")style(line,2) endif //----------------------------------------------// //-----Hidden Bullish---------------------------// //----------------------------------------------// oscLL=osc[lbr]<$ply[max(0,z-1)] and inrangePL priceHL=low[lbr]>$pricel[max(0,z-1)] hiddenBullCondAlert=priceHL and oscLL and plFound hiddenBullCond=hiddenBullCondAlert and plotHiddenBull if plFound and hiddenBullCond then drawsegment($plx[max(0,z-1)],$ply[max(0,z-1)],$plx[z],$ply[z])coloured("green",80)style(line,2) endif //----------------------------------------------// //-----Regular Bearish--------------------------// //----------------------------------------------// oscLH=osc[lbr]<$phy[max(0,t-1)] and inrangePH priceHH=high[lbr]>$priceH[max(0,t-1)] bearCondAlert=priceHH and oscLH and pHFound bearCond=plotBear and bearCondalert if pHFound and bearCond then drawsegment($phx[max(0,t-1)],$phy[max(0,t-1)],$phx[t],$phy[t])coloured("red")style(line,2) endif //----------------------------------------------// //-----Hidden Bearish---------------------------// //----------------------------------------------// oscHH=osc[lbr]>$phy[max(0,t-1)] and inrangePH priceLH=high[lbr]<$priceh[max(0,t-1)] hiddenBearCondAlert=priceLH and oscHH and phFound hiddenBearCond=hiddenBearCondAlert and plotHiddenBear if pHFound and hiddenBearCond then drawsegment($phx[max(0,t-1)],$phy[max(0,t-1)],$phx[t],$phy[t])coloured("red",80)style(line,2) endif //----------------------------------------------// return osc as "Oscillator"coloured("blue")style(line,2)

  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 99 100 101 102 103 104 105 106 107

  //----------------------------------------------// //PRC_Any OSCILLATOR Divergence Indicator //version = 0 //09.05.25 //Iván González @ www.prorealcode.com //Sharing ProRealTime knowledge //----------------------------------------------// //-----Inputs-----------------------------------// //----------------------------------------------// src=close lbr=5 //pivot lookback Right lbl=5 //pivot lookback Left rangeUpper=60 //Max lookback range rangeLower=5 //Min lookback range plotBull=1 plotHiddenBull=1 plotBear=1 plotHiddenBear=1 //----------------------------------------------// //-----OSCILLATOR Calculation-------------------// //----------------------------------------------// len=20 bbtop=bollingerup[len](src) bbbot=bollingerdown[len](src) pctBol=(src-bbbot)/(bbtop-bbbot)*100   osc=pctBol //----------------------------------------------// //-----Pivots High and Low----------------------// //----------------------------------------------// //---Pivots low if osc > osc[lbr] and lowest[lbr](osc) > osc[lbr] and osc[lbr] < lowest[lbl](osc)[lbr+1] then $ply[z+1] = osc[lbr] $plx[z+1] = barindex[lbr] $pricel[z+1] = low[lbr] drawpoint(barindex[lbr],osc[lbr],2)coloured("red",80) z = z + 1 endif //---Pivots high if osc < osc[lbr] and highest[lbr](osc)<osc[lbr] and osc[lbr]>highest[lbl](osc)[lbr+1] then $phy[t+1]=osc[lbr] $phx[t+1]=barindex[lbr] $priceH[t+1]=high[lbr] drawpoint(barindex[lbr],osc[lbr],2)coloured("blue",80) t=t+1 endif //---Pivot detection if z<>z[1] then plFound=1 elsif t<>t[1] then phFound=1 else plFound=0 phFound=0 endif   barsPL=barssince(plFound[1]) inrangePL=rangelower<=barsPL and barsPL<=rangeupper barsPH=barssince(pHFound[1]) inrangePH=rangelower<=barsPH and barsPH<=rangeupper   //----------------------------------------------// //-----Regular Bullish--------------------------// //----------------------------------------------// oscHL=osc[lbr]>$ply[max(0,z-1)] and inrangePL priceLL=low[lbr]<$pricel[max(0,z-1)] bullCondAlert=priceLL and oscHL and plFound bullCond=plotBull and bullCondalert   if plFound  and bullCond then drawsegment($plx[max(0,z-1)],$ply[max(0,z-1)],$plx[z],$ply[z])coloured("green")style(line,2) endif //----------------------------------------------// //-----Hidden Bullish---------------------------// //----------------------------------------------// oscLL=osc[lbr]<$ply[max(0,z-1)] and inrangePL priceHL=low[lbr]>$pricel[max(0,z-1)] hiddenBullCondAlert=priceHL and oscLL and plFound hiddenBullCond=hiddenBullCondAlert and plotHiddenBull   if plFound and hiddenBullCond then drawsegment($plx[max(0,z-1)],$ply[max(0,z-1)],$plx[z],$ply[z])coloured("green",80)style(line,2) endif //----------------------------------------------// //-----Regular Bearish--------------------------// //----------------------------------------------// oscLH=osc[lbr]<$phy[max(0,t-1)] and inrangePH priceHH=high[lbr]>$priceH[max(0,t-1)] bearCondAlert=priceHH and oscLH and pHFound bearCond=plotBear and bearCondalert   if pHFound  and bearCond then drawsegment($phx[max(0,t-1)],$phy[max(0,t-1)],$phx[t],$phy[t])coloured("red")style(line,2) endif //----------------------------------------------// //-----Hidden Bearish---------------------------// //----------------------------------------------// oscHH=osc[lbr]>$phy[max(0,t-1)] and inrangePH priceLH=high[lbr]<$priceh[max(0,t-1)] hiddenBearCondAlert=priceLH and oscHH and phFound hiddenBearCond=hiddenBearCondAlert and plotHiddenBear   if pHFound and hiddenBearCond then drawsegment($phx[max(0,t-1)],$phy[max(0,t-1)],$phx[t],$phy[t])coloured("red",80)style(line,2) endif //----------------------------------------------// return osc as "Oscillator"coloured("blue")style(line,2)

  

  Iván

  Moderator

  Topics: 0

  Replies: 1464

  Been thanked: 558 times
• Author
  Posts