Fibonacci Pivot Points for Amibroker (AFL)

This indicator plots Fibonacci pivots points on an intraday chart. The pivot levels are based on the daily trading range and plotted at 38%, 62% and 99%. You can use the pivot levels to trade reversals or break-outs and fib retracements to buy dips in uptrends and sell rallies in downtrends.

In uptrends, traders should look to buy near the 38% Fibonacci Retracement level (buy on dips). In downtrends, traders look to sell near the 38% Fibonacci Retracement level (sell on rallies).

by K.Vidyasagar, vkunisetty@yahoo.com

_SECTION_BEGIN("Fibo Pivots");
 
SetChartOptions(0,chartShowDates);
GraphXSpace=5;
Plot(C,"",colorBlack,styleCandle);
 
//by K.Vidyasagar, vkunisetty@yahoo.com
PH = DayH = TimeFrameGetPrice("H", inDaily, -1);    DayHI = LastValue (DayH,1);   // yesterdays high
PL = DayL = TimeFrameGetPrice("L", inDaily, -1);    DayLI = LastValue (DayL,1); // yesterdays low
PC = DayC = TimeFrameGetPrice("C", inDaily, -1);    // yesterdays close
PR = PH - PL;
//DayO = TimeFrameGetPrice("O", inDaily);   // current day open
 
numbars = LastValue(Cum(Status("barvisible")));
hts = -33.5;
R=PH-PL;//range
P=(PH+PL+PC)/3; pI = LastValue (p,1);// Standard Pivot
fr1 = p + (R * 0.38); fr1I = LastValue (fr1,1);
fr2 = p + (R * 0.62); fr2I = LastValue (fr2,1);
fr3 = p + (R * 0.99); fr3I = LastValue (fr3,1);
fs1 = p - (R * 0.38); fs1I = LastValue (fs1,1);
fs2 = p - (R * 0.62); fs2I = LastValue (fs2,1);
fs3 = p - (R * 0.99); fs3I = LastValue (fs3,1);
 
Plot(p,"Pivot",colorBlue,styleDots|styleNoLine|styleNoRescale);
Plot(fr1,"R1",colorRed,styleDots|styleNoLine|styleNoRescale);
Plot(fr2,"R2",colorPink,styleDots|styleNoLine|styleNoRescale);
Plot(fr3,"R3",colorRose,styleDots|styleNoLine|styleNoRescale);
Plot(fs1,"S1",colorGreen,styleDots|styleNoLine|styleNoRescale);
Plot(fs2,"S2",colorLime,styleDots|styleNoLine|styleNoRescale);
Plot(fs3,"S3",colorPaleGreen,styleDots|styleNoLine|styleNoRescale);
PlotText(" Pivot ", LastValue(BarIndex())-(numbars/Hts), pI, colorBlue);
PlotText(" Fib R1 " , LastValue(BarIndex())-(numbars/Hts), fr1I, colorRed);
PlotText(" Fib R2 " , LastValue(BarIndex())-(numbars/Hts), fr2I, colorPink);
PlotText(" Fib R3 " , LastValue(BarIndex())-(numbars/Hts), fr3I, colorRose);
PlotText(" Fib S1 " , LastValue(BarIndex())-(numbars/Hts), fs1I, colorGreen);
PlotText(" Fib S2 " , LastValue(BarIndex())-(numbars/Hts), fs2I, colorLime);
PlotText(" Fib S3 " , LastValue(BarIndex())-(numbars/Hts), fs3I, colorPaleGreen);
_SECTION_END();