MODELO DE RICKER. CAOS

r:=2.9
k:=30

f[x_]=x*(E^(r*(1-(x/k))))

orbita=NestList[f,3,200]

ListPlot[orbita,PlotStyle->{RGBColor[1,0,0],PointSize[0.02]}]

ruta=ListPlot[Partition[Flatten[Transpose[{orbita,orbita}]],2,1],PlotJoined->True,DisplayFunction->Identity];
funciones=Plot[{x,f[x]},{x,0,50},PlotStyle->{RGBColor[1,0,0],RGBColor[0,0,1]},DisplayFunction->Identity];

Show[ruta,funciones,AspectRatio->1]

DIAGRAMA DE BIFURCACIÓN