MODELO DISCRETO LOGÍSTICO

PRIMER CASO. Estabilidad II

r:=2.5
k:=100

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

Plot[f[x],{x,0,200}]

orbita=NestList[f,3,15]

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

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

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