Visualice caos en una ecuación diferencial de retardo 

Estudie la aparición de caos en un sistema dinámico gobernado por una ecuación diferencial de retardo.

In[1]:=

X sol = DSolve[{x'[t] == Sign[x[t - 2]] - x[t - 2], x[t /; t <= 0] == 1/10}, x, {t, 0, 25}];

muestre la entrada completa de Wolfram Languageoculte la entrada

In[2]:=

X Grid[{{Plot[x[t] /. sol, {t, 0, 25}, ImageSize -> 225, PlotLabel -> Row[{x[t], " vs. ", t}], AspectRatio -> 1], ParametricPlot[Evaluate[{x[t - 2], x[t]} /. sol], {t, 2, 25}, ImageSize -> 225, PlotLabel -> Row[{x[t], " vs. ", x[t - 2]}]]}}]

Out[2]=