Решение интегрального уравнения Фредгольма
Решить интегро-дифференциальное уравнение.
In[1]:=
eqn = Derivative[1][y][x] == 1 + Sin[a x] + \!\(
\*SubsuperscriptBox[\(\[Integral]\), \(0\), \(x\)]\(y[
t] \[DifferentialD]t\)\);Получить общее решение.
In[2]:=
sol1 = DSolveValue[eqn, y[x], x]Out[2]=
Задать начальное условие для получения решения.
In[3]:=
init = y[0] == -1;In[4]:=
sol2 = DSolveValue[{eqn, init}, y[x], x]Out[4]=
Отобразить полученный результат на графике.
In[5]:=
Plot[Table[sol2, {a, -1, 4, 0.7}] // Evaluate, {x, 0, 3}]Out[5]=
