Wolfram 语言

符号与数值微积分

求解弗雷德霍姆 (Fredholm) 积分方程

DSolveValue 解一个弗雷德霍姆积分方程

In[1]:=
Click for copyable input
eqn = y[x] == Sin[7 x] - x/a + \!\( \*SubsuperscriptBox[\(\[Integral]\), \(0\), FractionBox[\(\[Pi]\), \(2\)]]\(\(x\ y[t]\) \[DifferentialD]t\)\);
In[2]:=
Click for copyable input
sol = DSolveValue[eqn, y[x], x]
Out[2]=

绘制解的曲线.

In[3]:=
Click for copyable input
Plot[Table[sol, {a, -1, 4, 0.7}] // Evaluate, {x, 0, Pi/2}]
Out[3]=

解一个第二类齐次弗雷德霍姆方程.

In[4]:=
Click for copyable input
eqn = y[x] == \[Lambda] \!\( \*SubsuperscriptBox[\(\[Integral]\), \(0\), \(\[Pi]\)]\(Cos[x + t] y[ t] \[DifferentialD]t\)\);
In[5]:=
Click for copyable input
sol = DSolveValue[eqn, y[x], x]
Out[5]=

绘制解的曲线.

In[6]:=
Click for copyable input
Plot[Table[ sol /. {C[1] -> 1, C[2] -> 1}, {\[Lambda], {-2/Pi, 2/Pi}}] // Evaluate, {x, 0, 3 \[Pi]}]
Out[6]=

相关范例

de en es fr ja ko pt-br ru