MODELO DISCRETO LOGISTICO

COMPARTIMIENTO CAÓTICO

r:=3.9
k:=100

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

orbita=NestList[f,3,60]

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

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

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