Visualize o caos em uma equação diferencial com atraso 

Estude o início do caos em um sistema dinâmico regido por uma equação diferencial com atraso.

In[1]:=

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

mostre o input completo de Wolfram Languageoculte o input

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]=