Acumular variable bb

• 07/24/2024 at 3:28 PM #235725
  Iván

  Buenas,
  Mira a ver si este te vale.

  //DEFPARAM DrawOnLastBarOnly = true // Parabolic Psar psar = SAR[0.02, 0.02, 0.2] if close > psar then r=0 g=255 b=250 else r=255 g=0 b=250 endif // Bandas de Bollinger ema20 = ExponentialAverage[20](close) dev = 2 Bbup = ema20 + std[20](close) * dev Bbdown = ema20 - std[20](close) * dev //------------------------------------------------// barsPsarDN=barssince(close>psar) barsPsarUP=barssince(close<psar) //------------------------------------------------// if close<psar then countdw=1+countdw minLow=min(low,minLow) barsminLow=barssince(minLow=low) countup=0 maxhigh=high elsif close>psar then countdw=0 minLow=low countup=1+countup maxhigh=max(high,maxhigh) barsmaxhigh=barssince(high=maxhigh) endif if close>psar and close[1]<psar[1] then lastbarsPsarDN=barsPsarDN[1] lastbarsMinLow=barsminLow[1] BBdn=Bbdown[lastbarsMinLow+1] PEdn=lowest[lastbarsPsarDN](low) endif if close<psar and close[1]>psar[1] then lastbarsPsarUP=barsPsarUP[1] lastbarsMaxHigh=barsmaxhigh[1] BollUp=Bbup[lastbarsMaxHigh+1] PEdn=lowest[lastbarsPsarDN](low) endif drawsegment(barindex,BBdn,barindex[lastbarsMinLow+1],BBdn)style(line,2) drawsegment(barindex,BollUp,barindex[lastbarsMaxHigh+1],BollUp)style(line,2) //------------------------------------------------// return bbUp as "BBUp" coloured("yellow")style(line,2),Bbdown as "BBDown" coloured("yellow")style(line,2), psar as "PSAR" coloured(r,g,b)

  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

  //DEFPARAM DrawOnLastBarOnly = true // Parabolic Psar psar = SAR[0.02, 0.02, 0.2] if close > psar then r=0 g=255 b=250 else r=255 g=0 b=250 endif // Bandas de Bollinger ema20 = ExponentialAverage[20](close) dev = 2 Bbup = ema20 + std[20](close) * dev Bbdown = ema20 - std[20](close) * dev //------------------------------------------------// barsPsarDN=barssince(close>psar) barsPsarUP=barssince(close<psar) //------------------------------------------------// if close<psar then countdw=1+countdw minLow=min(low,minLow) barsminLow=barssince(minLow=low)   countup=0 maxhigh=high elsif close>psar then countdw=0 minLow=low   countup=1+countup maxhigh=max(high,maxhigh) barsmaxhigh=barssince(high=maxhigh) endif   if close>psar and close[1]<psar[1] then lastbarsPsarDN=barsPsarDN[1] lastbarsMinLow=barsminLow[1] BBdn=Bbdown[lastbarsMinLow+1] PEdn=lowest[lastbarsPsarDN](low)   endif   if close<psar and close[1]>psar[1] then lastbarsPsarUP=barsPsarUP[1] lastbarsMaxHigh=barsmaxhigh[1] BollUp=Bbup[lastbarsMaxHigh+1] PEdn=lowest[lastbarsPsarDN](low)   endif   drawsegment(barindex,BBdn,barindex[lastbarsMinLow+1],BBdn)style(line,2) drawsegment(barindex,BollUp,barindex[lastbarsMaxHigh+1],BollUp)style(line,2) //------------------------------------------------// return bbUp as "BBUp" coloured("yellow")style(line,2),Bbdown as "BBDown" coloured("yellow")style(line,2), psar as "PSAR" coloured(r,g,b)

  Lo que hace es almacenar el valor de la banda de bollinger en el punto extremo.
  Con esto podrás adaptarlo a tu gusto.

  1 user thanked author for this post.

  robertogozzi

  

  Iván

  Moderator

  Topics: 0

  Replies: 956

  Been thanked: 329 times
  07/25/2024 at 9:42 AM #235748
  Patrickgarridoo

  Buenas Iván, no lo hace bien. Lo que quiero es que cuando el close deje de ser igual al PE me dibuje una linea en la bbup y en la bbdown y se queden fijas como te pongo en la imagen y no se actualicen hasta que el close vuelva a ser igual al PE o que el precio rebase la parabolica sar. En la imagen te señalo con una flecha la vela que ha realizado el PE y luego una simulación de donde irían las líneas. Te adjunto el código modificado por si te serviría de algo. Un saludo

  bbup y bbdown con pe

  DEFPARAM DrawOnLastBarOnly = true //-------------------------------PE------------------------------------------------------------------------------------- psar = SAR[0.02,0.02,0.2] C1 = CLOSE > PSAR C2 = CLOSE < PSAR IF C1 AND NOT C1[1] THEN CONTADOR = 1 TENDENCIAANTERIOR = 1 ELSIF C2 AND NOT C2[1] THEN CUENTA = 1 TENDENCIAANTERIOR = -1 ELSIF TENDENCIAANTERIOR = 1 THEN CONTADOR = CONTADOR[1] + 1 ELSIF TENDENCIAANTERIOR = -1 THEN CUENTA = CUENTA[1] + 1 ENDIF IF C1 THEN IF CONTADOR > 1 THEN PE = HIGHEST[CONTADOR](HIGH) ELSE PE = HIGH ENDIF ENDIF IF C2 THEN IF CUENTA > 1 THEN PE = LOWEST[CUENTA](LOW) ELSE PE = LOW ENDIF ENDIF Offset = psar - (average[100,0](range) / 1) IF close <= psar THEN Offset = psar + (average[100,0](range) / 1) endif Offset2 = psar - (average[100,0](range) / 2) IF close <= psar THEN Offset2 = psar + (average[100,0](range) / 2) endif IF C1 AND NOT C1[1] THEN CONTADOR = 1 TENDENCIAANTERIOR = 1 ELSIF C2 AND NOT C2[1] THEN CUENTA = 1 TENDENCIAANTERIOR = -1 ELSIF TENDENCIAANTERIOR = 1 THEN CONTADOR = CONTADOR[1] + 1 ELSIF TENDENCIAANTERIOR = -1 THEN CUENTA = CUENTA[1] + 1 ENDIF IF C1 THEN IF CONTADOR > 1 THEN PE = HIGHEST[CONTADOR](HIGH) ELSE PE = HIGH ENDIF DRAWSEGMENT(barindex+510, PE, barindex[510], PE) COLOURED(0,0,255)STYLE(dottedline1,3) ENDIF IF C2 THEN IF CUENTA > 1 THEN PE = LOWEST[CUENTA](LOW) ELSE PE = LOW ENDIF DRAWSEGMENT(barindex+510, PE, barindex[510], PE) COLOURED(0,0,255) STYLE(dottedline1,3) ENDIF // Bandas de Bollinger ema20 = ExponentialAverage[20](close) dev = 2 Bbup = ema20 + std[20](close) * dev Bbdown = ema20 - std[20](close) * dev //------------------------------------------------// barsPsarDN=barssince(close>PE) barsPsarUP=barssince(close<PE) //------------------------------------------------// if close<PE then countdw=1+countdw minLow=min(low,minLow) barsminLow=barssince(minLow=low) countup=0 maxhigh=high elsif close>PE then countdw=0 minLow=low countup=1+countup maxhigh=max(high,maxhigh) barsmaxhigh=barssince(high=maxhigh) endif if close>psar and close[1]<psar[1] then lastbarsPsarDN=barsPsarDN lastbarsMinLow=barsminLow BBdn=Bbdown[lastbarsMinLow+1] PEdn=lowest[lastbarsPsarDN](low) endif if close<psar and close[1]>psar[1] then lastbarsPsarUP=barsPsarUP[1] lastbarsMaxHigh=barsmaxhigh[1] BollUp=Bbup[lastbarsMaxHigh+2] PEdn=lowest[lastbarsPsarDN](low) endif drawsegment(barindex,BBdn,barindex[lastbarsMinLow+1],BBdn)style(line,2) drawsegment(barindex,BollUp,barindex[lastbarsMaxHigh+1],BollUp)style(line,2) //------------------------------------------------// 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 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119

  DEFPARAM DrawOnLastBarOnly = true //-------------------------------PE------------------------------------------------------------------------------------- psar = SAR[0.02,0.02,0.2] C1 = CLOSE > PSAR C2 = CLOSE < PSAR IF C1 AND NOT C1[1] THEN CONTADOR = 1 TENDENCIAANTERIOR = 1 ELSIF C2 AND NOT C2[1] THEN CUENTA = 1 TENDENCIAANTERIOR = -1 ELSIF TENDENCIAANTERIOR = 1 THEN CONTADOR = CONTADOR[1] + 1 ELSIF TENDENCIAANTERIOR = -1 THEN CUENTA = CUENTA[1] + 1 ENDIF IF C1 THEN IF CONTADOR > 1 THEN PE = HIGHEST[CONTADOR](HIGH) ELSE PE = HIGH ENDIF ENDIF IF C2 THEN IF CUENTA > 1 THEN PE = LOWEST[CUENTA](LOW) ELSE PE = LOW ENDIF ENDIF Offset = psar  - (average[100,0](range) / 1) IF close <= psar THEN Offset = psar  + (average[100,0](range) / 1) endif Offset2 = psar  - (average[100,0](range) / 2) IF close <= psar THEN Offset2 = psar  + (average[100,0](range) / 2) endif     IF C1 AND NOT C1[1] THEN CONTADOR = 1 TENDENCIAANTERIOR = 1 ELSIF C2 AND NOT C2[1] THEN CUENTA = 1 TENDENCIAANTERIOR = -1 ELSIF TENDENCIAANTERIOR = 1 THEN CONTADOR = CONTADOR[1] + 1 ELSIF TENDENCIAANTERIOR = -1 THEN CUENTA = CUENTA[1] + 1 ENDIF   IF C1 THEN IF CONTADOR > 1 THEN PE = HIGHEST[CONTADOR](HIGH) ELSE PE = HIGH ENDIF DRAWSEGMENT(barindex+510, PE, barindex[510], PE)  COLOURED(0,0,255)STYLE(dottedline1,3)   ENDIF   IF C2 THEN IF CUENTA > 1 THEN PE = LOWEST[CUENTA](LOW) ELSE PE = LOW ENDIF DRAWSEGMENT(barindex+510, PE, barindex[510], PE)  COLOURED(0,0,255) STYLE(dottedline1,3)   ENDIF       // Bandas de Bollinger ema20 = ExponentialAverage[20](close) dev = 2 Bbup = ema20 + std[20](close) * dev Bbdown = ema20 - std[20](close) * dev //------------------------------------------------// barsPsarDN=barssince(close>PE) barsPsarUP=barssince(close<PE) //------------------------------------------------// if close<PE then countdw=1+countdw minLow=min(low,minLow) barsminLow=barssince(minLow=low) countup=0 maxhigh=high elsif close>PE then countdw=0 minLow=low countup=1+countup maxhigh=max(high,maxhigh) barsmaxhigh=barssince(high=maxhigh) endif if close>psar and close[1]<psar[1] then lastbarsPsarDN=barsPsarDN lastbarsMinLow=barsminLow BBdn=Bbdown[lastbarsMinLow+1] PEdn=lowest[lastbarsPsarDN](low) endif if close<psar and close[1]>psar[1] then lastbarsPsarUP=barsPsarUP[1] lastbarsMaxHigh=barsmaxhigh[1] BollUp=Bbup[lastbarsMaxHigh+2] PEdn=lowest[lastbarsPsarDN](low) endif drawsegment(barindex,BBdn,barindex[lastbarsMinLow+1],BBdn)style(line,2) drawsegment(barindex,BollUp,barindex[lastbarsMaxHigh+1],BollUp)style(line,2) //------------------------------------------------// return

  

  Patrickgarridoo

  Participant

  Topics: 25

  Replies: 67

  Been thanked: 1 time
  07/25/2024 at 10:57 AM #235756
  Iván

  Ok, entonces sería así:

  DEFPARAM DrawOnLastBarOnly = true // Parabolic Psar psar = SAR[0.02, 0.02, 0.2] if close > psar then r=0 g=255 b=250 else r=255 g=0 b=250 endif // Bandas de Bollinger ema20 = ExponentialAverage[20](close) dev = 2 Bbup = ema20 + std[20](close) * dev Bbdown = ema20 - std[20](close) * dev //------------------------------------------------// if close<psar then countdw=1+countdw minLow=min(low,minLow) barsminLow=barssince(minLow=low) countup=0 maxhigh=high drawsegment(barindex[barsminLow],Bbup[barsminLow],barindex+10,Bbup[barsminLow])style(line,2)coloured("red") drawsegment(barindex[barsminLow],Bbdown[barsminLow],barindex+10,Bbdown[barsminLow])style(line,2)coloured("red") drawpoint(barindex[barsminLow],minLow,2)coloured("blue") elsif close>psar then countdw=0 minLow=low countup=1+countup maxhigh=max(high,maxhigh) barsmaxhigh=barssince(high=maxhigh) drawsegment(barindex[barsmaxhigh],Bbup[barsmaxhigh],barindex+10,Bbup[barsmaxhigh])style(line,2)coloured("red") drawsegment(barindex[barsmaxhigh],Bbdown[barsmaxhigh],barindex+10,Bbdown[barsmaxhigh])style(line,2)coloured("red") drawpoint(barindex[barsmaxhigh],maxhigh,2)coloured("blue") endif //------------------------------------------------// //------------------------------------------------// return bbUp as "BBUp" coloured("yellow")style(dottedline,2),Bbdown as "BBDown" coloured("yellow")style(dottedline,2), psar as "PSAR" coloured(r,g,b)style(point,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

  DEFPARAM DrawOnLastBarOnly = true // Parabolic Psar psar = SAR[0.02, 0.02, 0.2] if close > psar then r=0 g=255 b=250 else r=255 g=0 b=250 endif // Bandas de Bollinger ema20 = ExponentialAverage[20](close) dev = 2 Bbup = ema20 + std[20](close) * dev Bbdown = ema20 - std[20](close) * dev //------------------------------------------------// if close<psar then countdw=1+countdw minLow=min(low,minLow) barsminLow=barssince(minLow=low)   countup=0 maxhigh=high   drawsegment(barindex[barsminLow],Bbup[barsminLow],barindex+10,Bbup[barsminLow])style(line,2)coloured("red") drawsegment(barindex[barsminLow],Bbdown[barsminLow],barindex+10,Bbdown[barsminLow])style(line,2)coloured("red") drawpoint(barindex[barsminLow],minLow,2)coloured("blue")   elsif close>psar then countdw=0 minLow=low   countup=1+countup maxhigh=max(high,maxhigh) barsmaxhigh=barssince(high=maxhigh) drawsegment(barindex[barsmaxhigh],Bbup[barsmaxhigh],barindex+10,Bbup[barsmaxhigh])style(line,2)coloured("red") drawsegment(barindex[barsmaxhigh],Bbdown[barsmaxhigh],barindex+10,Bbdown[barsmaxhigh])style(line,2)coloured("red") drawpoint(barindex[barsmaxhigh],maxhigh,2)coloured("blue") endif //------------------------------------------------// //------------------------------------------------// return bbUp as "BBUp" coloured("yellow")style(dottedline,2),Bbdown as "BBDown" coloured("yellow")style(dottedline,2), psar as "PSAR" coloured(r,g,b)style(point,2)

  

  Iván

  Moderator

  Topics: 0

  Replies: 956

  Been thanked: 329 times
  07/25/2024 at 11:30 AM #235760
  JAVIERG

  Hola, me gustaría tener un indicador donde dibuje por ejemplo en 4 velas de 15 minutos, lo que supone en una hora, es decir, que la vela de 1 hora envuelva las 4 de 15 minutos, sin relleno, ya que el relleno de la vela de 1 hora son las 4 de 15 minutos.

   

  no sé dónde poner esto en el foro…..

  

  JAVIERG

  Participant

  Topics: 2

  Replies: 4

  Been thanked: 1 time
  07/26/2024 at 11:18 AM #235804
  Patrickgarridoo

  Buenas Iván, si me sale perfecto, pero al cambiarlo en alguna temporalidad me sale el siguiente error: Se espera un campo positivo con barsminLow. Y se me borra el indicador entero cuando sale es error. Como podría solucionarlo. Un saludo

  

  Patrickgarridoo

  Participant

  Topics: 25

  Replies: 67

  Been thanked: 1 time
  07/30/2024 at 11:03 AM #235929
  Patrickgarridoo

  Alguien me puede ayudar con este error. Un saludo

  

  Patrickgarridoo

  Participant

  Topics: 25

  Replies: 67

  Been thanked: 1 time
  07/31/2024 at 3:55 PM #235982
  Iván

  ok, escribe entonces max(1,barsminLow) y ya no te dará el error

  

  Iván

  Moderator

  Topics: 0

  Replies: 956

  Been thanked: 329 times
  09/17/2024 at 5:00 PM #237722
  Patrickgarridoo

  Buenas, despues de probarlo me da error ya que cuando hace un nuevo maximo funciona perfectamente y las lineas de dibujan en la vela actual pero cuando le toca hacer nuevos minimos las lineas se dibujas 1 mas atras que la actual y hace mal el indicador, no se como se podría solucionar. Un saludo

  

  Patrickgarridoo

  Participant

  Topics: 25

  Replies: 67

  Been thanked: 1 time
• Author
  Posts