MODELO LINEAL OSCILATORIO

a:=-1

f[x_]:=a*x

orbita=NestList[f,3,10]

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

ListPlot[orbita,PlotJoined->True]