Od[F_,x0_,n_,d_,cmin_,cmax_,cstep_,xmin_,xmax_,ptsize_]:=Module[{mylist,c,x,i},mylist={};For[c=cmin,c≤cmax,c=c+cstep,x=x0;For[i=1,i<d,i=i+1,x=F[x,c]];For[i=1,i<n,i=i+1,x=F[x,c];mylist=Append[mylist,{c,x}];];];ListPlot[mylist,PlotStyle->PointSize[ptsize],PlotRange->{xmin,xmax}]];

Od[#2 Cos[#1]&,0.0,100,100,-2.96,0.0,0.01,-Pi,Pi,0.002]

Od[#2 Cos[#1]&,0.0,100,100,-2.5,-1.8,0.0025,-Pi,Pi,0.002]

Od[#2 Cos[#1]&,0.0,100,100,-2.2,-2.15,0.0001,-Pi,Pi,0.002]

Od[#2 Cos[#1]&,0.0,400,100,-2.177,-2.165,0.00004,-0.4,0.4,0.002]

Od[#2 Cos[#1]&,0.0,100,100,-2.1,-1.95,0.0005,-2.3,-1,0.002]

Od[#2 Cos[#1]&,0.0,100,100,-2.0,-1.9,0.00025,-2.1,-1.3,0.002]