DDP[t_,γ_,ω_,ω0_,β_,ϕ0_,ϕd0_]:=ϕ[t]/.NDSolve[{ϕ''[t]+2 β ϕ'[t]+ω0^2 Sin[ϕ[t]]==γ ω0^2 Cos[ω t],ϕ[0]==ϕ0,ϕ'[0]==ϕd0},ϕ[t],{t,0,100}][[1]]

Plot[{Evaluate[DDP[t,1/5,2π,3/2*2π,3/2*2π/4,0,0]],Evaluate[DDP[T,1,2π,3/2*2π,3/2*2π/4,0,0]/.{T->t+.22}]/8.5},{t,5,6},PlotStyle->Thickness[.002]]

Plot[{Evaluate[DDP[t,1/5,2π,3/2*2π,3/2*2π/4,0,0]],Evaluate[DDP[t,1,2π,3/2*2π,3/2*2π/4,0,0]]},{t,0,6},PlotStyle->Thickness[.002]]

Plot[{Evaluate[DDP[t,1+6/100,2π,3/2*2π,3/2*2π/4,-π/2,0]]},{t,0,20},PlotStyle->Thickness[.002]]

Table[Evaluate[DDP[t,1+6/100,2π,3/2*2π,3/2*2π/4,-π/2,0]],{t,20,40,1}]

Plot[{Evaluate[DDP[t,1+73/1000,2π,3/2*2π,3/2*2π/4,-π/2,0]]},{t,0,30},PlotStyle->Thickness[.002]]

Plot[{Evaluate[DDP[t,1+73/1000,2π,3/2*2π,3/2*2π/4,0,0]]},{t,17,40},PlotStyle->Thickness[.002],PlotRange->{-8.55,-8.2}]

Table[Evaluate[DDP[t,1+73/1000,2π,3/2*2π,3/2*2π/4,0,0]],{t,20,40,1}]

Plot[{Evaluate[DDP[t,1+77/1000,2π,3/2*2π,3/2*2π/4,0,0]]},{t,0,15},PlotStyle->Thickness[.002]]

Table[Evaluate[DDP[t,1+77/1000,2π,3/2*2π,3/2*2π/4,-π/2,0]],{t,55.1,65.1,1}]

Plot[{Evaluate[DDP[t,1+77/1000,2π,3/2*2π,3/2*2π/4,-π/2,0]]},{t,0,15},PlotStyle->Thickness[.002]]

ListPlot[Table[Evaluate[DDP[t,1+77/1000,2π,3/2*2π,3/2*2π/4,-π/2,0]],{t,25,35,1}]]

ListPlot[Table[Evaluate[{t,DDP[t,1+6/100,2π,3/2*2π,3/2*2π/4,-π/2,0]}],{t,24.75,34.75,1}],PlotRange->{-2.5,-1.5}]

ListPlot[Table[Evaluate[{t,DDP[t,1+78/1000,2π,3/2*2π,3/2*2π/4,-π/2,0]}],{t,24.75,34.75,1}],PlotRange->{-2.5,-1}]

ListPlot[Table[Evaluate[{t,DDP[t,1+81/1000,2π,3/2*2π,3/2*2π/4,-π/2,0]}],{t,28.75,38.75,1}],PlotRange->{-2.5,-1}]

ListPlot[Table[Evaluate[{t,DDP[t,1+826/10000,2π,3/2*2π,3/2*2π/4,-π/2,0]}],{t,18.75,38.75,1}],PlotRange->{-2.15,-1.4},GridLines->Automatic]

BIFtab=Table[{γ,DDP[T,γ,2π,3/2*2π,3/2*2π/4,-π/2,0]/.{T->t}},{γ,1+6/100,1+87/1000,1/10000},{t,50,100,1}];

G1=1.0633;G2=1.0793;

DOUBTAB={G1,G2};

FBNUM=4.6692016;

For[i=3,i≤10,i++,AppendTo[DOUBTAB,1/FBNUM(DOUBTAB[[i-1]]-DOUBTAB[[i-2]])+DOUBTAB[[i-1]]]];

DOUBTAB

?GridLines

ListPlot[BIFtab,PlotStyle->Black,GridLines->{DOUBTAB,{}},GridLinesStyle->Red]