Encontre soluções simbólicas para equações diferenciais com atraso 

Resolva uma equação com atraso de primeira ordem usando DSolve.

In[1]:=

X sol = DSolve[{x'[t] == x[t - 1]^2, x[t /; t < 0] == a t}, x[t], {t, 0, 2}]

Out[1]=

In[2]:=

X Plot[Evaluate[Table[x[t] /. sol[[1]], {a, 1, 5}]], {t, -1, 2}, Exclusions -> None]

Out[2]=

Resolva uma equação com atraso de quinta ordem.

In[3]:=

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

In[4]:=

X Plot[Evaluate[Table[x[t] /. sol[[1]], {a, 1, 4, 1/3}], {t, -1, 10}], WorkingPrecision -> 400, PlotRange -> All, Exclusions -> None]

Out[4]=

Resolva um sistema de equações com atraso.

In[5]:=

X eqns = {x'[t] == a y[t - 1] + y[t - 3], y'[t] == x[t - 1], x[t /; t <= 0] == t, y[t /; t <= 0] == t^2};

In[6]:=

X sol = DSolve[eqns, {x, y}, {t, 0, 5}];

In[7]:=

X ParametricPlot[ Evaluate[Table[{x[t], y[t]} /. sol, {a, -1, 2, 1/3}]], {t, 0, 5}, WorkingPrecision -> 200, Exclusions -> None]

Out[7]=