Lösen Sie eine Integro-Differentialgleichung

Lösen Sie eine Integro-Differentiagleichung.

In[1]:=

eqn = Derivative[1][y][x] == 1 + Sin[a x] + \!\( \*SubsuperscriptBox[\(\[Integral]\), \(0\), \(x\)]\(y[ t] \[DifferentialD]t\)\);

Ermitteln Sie die allgemeine Lösung.

In[2]:=

sol1 = DSolveValue[eqn, y[x], x]

Out[2]=

Spezifizieren Sie eine Anfangsbedingung, um eine bestimmte Lösung zu erhalten.

In[3]:=

init = y[0] == -1;

In[4]:=

sol2 = DSolveValue[{eqn, init}, y[x], x]

Out[4]=

Plotten Sie die Lösung.

In[5]:=

Plot[Table[sol2, {a, -1, 4, 0.7}] // Evaluate, {x, 0, 3}]

Out[5]=