ヴォルテラ(Volterra)積分方程式を解く
DSolveValueを使って，ヴォルテラ積分方程式を解く．
In[1]:=
eqn = y[x] == x^3 + \[Lambda] \!\(
\*SubsuperscriptBox[\(\[Integral]\), \(0\), \(x\)]\(\((t - \ x)\) y[
t] \[DifferentialD]t\)\);In[2]:=
sol = DSolveValue[eqn, y[x], x]Out[2]=
λ のさまざまな値に対する解をプロットする．
In[3]:=
Plot[Table[sol, {\[Lambda], 1, 3, 0.5}] // Evaluate, {x, 0, 20}]Out[3]=
弱い特異性を持つヴォルテラ積分方程式を解く．
In[4]:=
eqn = y[x] == x^a - \!\(
\*SubsuperscriptBox[\(\[Integral]\), \(0\), \(x\)]\(
\*FractionBox[\(y[t]\),
SqrtBox[\(x - t\)]] \[DifferentialD]t\)\);DSolveValueを使って，解の式を得る．
In[5]:=
sol = DSolveValue[eqn, y[x], x]Out[5]=
解をプロットする．
In[6]:=
Plot[Table[sol, {a, 1, 4, 0.7}] // Evaluate, {x, 0, 2}]Out[6]=
