FIBONACCI AUTOMÁTICO **************************************

• 11/15/2023 at 8:48 PM #223763
  NEOMKEY

  Hola a tod@s, a ver si pudiérais ayudarme con un indicador.

  El indicador debe trazar los niveles de retroceso de Fibonacci usando como máximos y mínimos de los puntos pivote en un periodo de 10 velas.

  Gracias de antemano,

  Un saludo

   

  

  NEOMKEY

  Participant

  Topics: 39

  Replies: 78

  Been thanked: 5 times
  11/24/2023 at 12:30 PM #224241
  robertogozzi

  Ahi esta:

  DEFPARAM CalculateOnLastBars = 3000 DEFPARAM DrawOnLastBarOnly = True // ONCE p = 10 Pivot = (DHigh(1) + DLow(1) + Close[1]) / 3 HH = highest[p](Pivot) LL = lowest[p](Pivot) Diff = HH - LL Fib0236 = Diff * 0.236 Fib0382 = Diff * 0.382 Fib0500 = Diff * 0.500 Fib0618 = Diff * 0.618 Fib0764 = Diff * 0.764 Up = 0 Dn = 0 FOR i = 0 TO (p - 1) IF Pivot[i] = HH THEN Up = 1 BREAK ENDIF IF Pivot[i] = LL THEN Dn = 1 BREAK ENDIF NEXT DRAWHLINE(HH) coloured(238,122,233,255)//(0,128,0,255) DRAWHLINE(LL) coloured(238,122,233,255)//(0,128,0,255) IF Up THEN DRAWTEXT("---------------------------(23.6%)",BarIndex,HH - Fib0236,SansSerif,Bold,10)coloured(238,122,233,255) DRAWTEXT("---------------------------(38.2%)",BarIndex,HH - Fib0382,SansSerif,Bold,10)coloured(238,122,233,255) DRAWTEXT("---------------------------(50.0%)",BarIndex,HH - Fib0500,SansSerif,Bold,10)coloured(238,122,233,255) DRAWTEXT("---------------------------(61.8%)",BarIndex,HH - Fib0618,SansSerif,Bold,10)coloured(238,122,233,255) DRAWTEXT("---------------------------(76.4%)",BarIndex,HH - Fib0764,SansSerif,Bold,10)coloured(238,122,233,255) ELSIF Dn THEN DRAWTEXT("---------------------------(23.6%)",BarIndex,LL + Fib0236,SansSerif,Bold,10)coloured(238,122,233,255) DRAWTEXT("---------------------------(38.2%)",BarIndex,LL + Fib0382,SansSerif,Bold,10)coloured(238,122,233,255) DRAWTEXT("---------------------------(50.0%)",BarIndex,LL + Fib0500,SansSerif,Bold,10)coloured(238,122,233,255) DRAWTEXT("---------------------------(61.8%)",BarIndex,LL + Fib0618,SansSerif,Bold,10)coloured(238,122,233,255) DRAWTEXT("---------------------------(76.4%)",BarIndex,LL + Fib0764,SansSerif,Bold,10)coloured(238,122,233,255) 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

  DEFPARAM CalculateOnLastBars = 3000 DEFPARAM DrawOnLastBarOnly   = True // ONCE p  = 10 Pivot   = (DHigh(1) + DLow(1) + Close[1]) / 3 HH      = highest[p](Pivot) LL      = lowest[p](Pivot) Diff    = HH - LL Fib0236 = Diff * 0.236 Fib0382 = Diff * 0.382 Fib0500 = Diff * 0.500 Fib0618 = Diff * 0.618 Fib0764 = Diff * 0.764 Up     = 0 Dn     = 0 FOR i = 0 TO (p - 1) IF Pivot[i] = HH THEN Up = 1 BREAK ENDIF IF Pivot[i] = LL THEN Dn = 1 BREAK ENDIF NEXT DRAWHLINE(HH) coloured(238,122,233,255)//(0,128,0,255) DRAWHLINE(LL) coloured(238,122,233,255)//(0,128,0,255) IF Up THEN DRAWTEXT("---------------------------(23.6%)",BarIndex,HH - Fib0236,SansSerif,Bold,10)coloured(238,122,233,255) DRAWTEXT("---------------------------(38.2%)",BarIndex,HH - Fib0382,SansSerif,Bold,10)coloured(238,122,233,255) DRAWTEXT("---------------------------(50.0%)",BarIndex,HH - Fib0500,SansSerif,Bold,10)coloured(238,122,233,255) DRAWTEXT("---------------------------(61.8%)",BarIndex,HH - Fib0618,SansSerif,Bold,10)coloured(238,122,233,255) DRAWTEXT("---------------------------(76.4%)",BarIndex,HH - Fib0764,SansSerif,Bold,10)coloured(238,122,233,255) ELSIF Dn THEN DRAWTEXT("---------------------------(23.6%)",BarIndex,LL + Fib0236,SansSerif,Bold,10)coloured(238,122,233,255) DRAWTEXT("---------------------------(38.2%)",BarIndex,LL + Fib0382,SansSerif,Bold,10)coloured(238,122,233,255) DRAWTEXT("---------------------------(50.0%)",BarIndex,LL + Fib0500,SansSerif,Bold,10)coloured(238,122,233,255) DRAWTEXT("---------------------------(61.8%)",BarIndex,LL + Fib0618,SansSerif,Bold,10)coloured(238,122,233,255) DRAWTEXT("---------------------------(76.4%)",BarIndex,LL + Fib0764,SansSerif,Bold,10)coloured(238,122,233,255) ENDIF RETURN

   

  

  robertogozzi

  Moderator

  Topics: 69

  Replies: 17188

  Been thanked: 4064 times
  11/24/2023 at 4:41 PM #224259
  NEOMKEY

  Gracias Roberto por tu tiempo. Voy a probarlo. Un saludo

  

  NEOMKEY

  Participant

  Topics: 39

  Replies: 78

  Been thanked: 5 times
• Author
  Posts