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