// Downloaded From https://www.WiseStockTrader.com
_SECTION_BEGIN("PIVOT FIBONACCI");{

ShowFibHiProbZone=ParamToggle("Show FIb High-Probability Zone","No|Yes",1);
HpzColor = ParamColor("Line Color",colorWhite);
Periodicity = inDaily;

if(ShowFibHiProbZone AND Interval()<inHourly)
{
Periodicity = inDaily;
}
else if(ShowFibHiProbZone AND Interval()==inHourly)
{
Periodicity = inWeekly;
}
else if (ShowFibHiProbZone AND Interval()>=inDaily AND Interval()<inMonthly)
{
Periodicity = inMonthly;
}
else if(ShowFibHiProbZone AND Interval()>inWeekly AND Interval()<inYearly)
{
Periodicity = inYearly;
}
else

Hi=Ref(H,-1);
Lo=Ref(L,-1);
Cl=Ref(C,-1);


bi = BarIndex();
lvbi = LastValue(bi);
fb = EndValue(bi);

Hi=LastValue(TimeFrameGetPrice("H",Periodicity,-1));
Lo=LastValue(TimeFrameGetPrice("L",Periodicity ,-1));
Cl=LastValue(TimeFrameGetPrice("C",Periodicity ,-1));

p=round((Hi+Lo+Cl)/3);

as1b=round(p-((Hi-Lo)*0.382));
as2b=round(p-((Hi-Lo)*0.618));
as3b=round(p-((Hi-Lo)*1.000));
as4b=round(p-((Hi-Lo)*1.382));

ar1b=round(((Hi-Lo)*0.382)+p);
ar2b=round(((Hi-Lo)*0.618)+p);
ar3b=round(((Hi-Lo)*1.000)+p);
ar4b=round(((Hi-Lo)*1.382)+p);

as1bl = LineArray((fb-7), as1b, fb, as1b, 0);
as2bl = LineArray((fb-7), as2b, fb, as2b, 0);
as3bl = LineArray((fb-7), as3b, fb, as3b, 0);
as4bl = LineArray((fb-7), as4b, fb, as4b, 0);
pl 	  = LineArray((fb-7), p, fb, p, 0);
ar1bl = LineArray((fb-7), ar1b, fb, ar1b, 0);
ar2bl = LineArray((fb-7), ar2b, fb, ar2b, 0);
ar3bl = LineArray((fb-7), ar3b, fb, ar3b, 0);
ar4bl = LineArray((fb-7), ar4b, fb, ar4b, 0);

extnd=0;
sty=styleNoLabel|styleStaircase|styleDashed|styleNoRescale;
Plot(ar1bl,"",colorWhite,styleNoLabel);
Plot(ar2bl,"",colorWhite,styleNoLabel);
Plot(ar3bl,"",colorWhite,styleNoLabel);
//Plot(ar4bl,"",colorwhite); comment out for fourth level

Plot(pl,"",colorWhite,styleNoLabel);
Plot(as1bl,"",colorWhite,styleNoLabel);
Plot(as2bl,"",colorWhite,styleNoLabel);
Plot(as3bl,"",colorWhite,styleNoLabel);
//Plot(as4bl,"",colorwhite); comment out for fourth level

PlotText("S1:  " + WriteVal(as1b, 1.0 ), BarCount, SelectedValue(as1b), colorBrightGreen, colorDefault, -3);
PlotText("S2:  " + WriteVal(as2b, 1.0 ), BarCount, SelectedValue(as2b), colorBrightGreen, colorDefault, -3);
PlotText("S3:  " + WriteVal(as3b, 1.0 ), BarCount, SelectedValue(as3b), colorBrightGreen, colorDefault, -3);
PlotText("P:  " + WriteVal(p, 1.0 ), BarCount, SelectedValue(p), colorWhite, colorDefault, -3);
PlotText("R1:  " + WriteVal(ar1b, 1.0 ), BarCount, SelectedValue(ar1b), colorRed, colorDefault, -3);
PlotText("R2:  " + WriteVal(ar2b, 1.0 ), BarCount, SelectedValue(ar2b), colorRed, colorDefault, -3);
PlotText("R3:  " + WriteVal(ar3b, 1.0 ), BarCount, SelectedValue(ar3b), colorRed, colorDefault, -3);

_SECTION_END();}