Решение основной задачи Штурма-Лиувилля
Решить задачу нахождения собственных значений с условиями Дирихле.
In[1]:=
sol = DSolve[{y''[x] + \[Lambda] y[x] == 0, y[0] == 0, y[\[Pi]] == 0},
y[x], x]Out[1]=
Построить таблицу, содержащую первые 5 собственных функций.
In[2]:=
eigfuns =
Table[y[x] /.
sol[[1]] //. {\[FormalN] -> i, \[Lambda] -> \[FormalN]^2} /. {C[
1] -> 1}, {i, 5}]Out[2]=
Графически изобразиить собственные функции.
In[3]:=
Plot[Evaluate[eigfuns], {x, 0, Pi}]Out[3]=
Решить задачу нахождения собственных значений с граничными условиями Неймана.
In[4]:=
sol = DSolve[{y''[x] + \[Lambda] y[x] == 0, y'[0] == 0,
y'[\[Pi]] == 0}, y[x], x]Out[4]=
Построить таблицу, содержащую первые 5 собственных функций.
In[5]:=
eigfuns =
Table[y[x] /.
sol[[1]] //. {\[FormalN] -> i, \[Lambda] -> \[FormalN]^2} /. {C[
1] -> 1}, {i, 5}]Out[5]=
Графически изобразить собственные функции.
In[6]:=
Plot[Evaluate[eigfuns], {x, 0, Pi}]Out[6]=
