MODELO DE RICKER. ESTABILIDAD

r:=0.8
k:=30

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

orbita=NestList[f,3,75]

Existe un punto asintóticamente estable (30)

ListPlot[orbita,PlotStyle->PointSize[0.02]]

Diagrama de Cobweb

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

Show[{ruta,funciones},PlotRange->{{0,40},{0,40}},AxesOrigin->{0.0,0}]