Chaos in einer retardierten Differentialgleichung visualisieren 

Untersuchen Sie das Einsetzen von Chaos in einem durch eine retardierte Differentialrechnung beschriebenen dynamischen System.

In[1]:=

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

Die gesamte Wolfram-Language Eingabe zeigenEingabe verbergen

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