Fibonacci Pivot Point Afl

Fibonacci Pivot Point Afl
Fibonacci Pivot Point Afl

//www.aflcode.com
_SECTION_BEGIN("Fibo Pivots");

SetChartOptions(0,chartShowDates);
GraphXSpace=5;
Plot(C,"",colorBlack,styleCandle);


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();
Previous
Next Post »